Ansicht
Dokumentation
EXIT_SAPLJHF3_003 - IS-M/AM: Modify Matchcode ID for Collective Processing
General Material Data General Data in Customer MasterThis documentation is copyright by SAP AG.
Functionality
Example
The following coding is required to ensure downwards compatibility:
DATA: INTERFACE_WA TYPE LINE OF SHLP_DESCR_T-INTERFACE,
PHELP LIKE PHELP,
LV_DYNNR LIKE D020S-DNUM,
LV_X_TABLECONTROL LIKE SY-BATCH,
LV_FIELDNAME(132),
LV_SAMMG LIKE JHTAK-SAMMG,
LV_MCID LIKE DD23L-MCID.
IF CALLCONTROL-STEP = 'SELONE' AND
CALLCONTROL-SHORTCUT IS INITIAL.
CALLCONTROL-SHORTCUT = 'X'.
READ TABLE SHLP-INTERFACE
INTO INTERFACE_WA
WITH KEY SHLPFIELD = 'SAMMG'
TRANSPORTING VALUE.
LV_SAMMG = INTERFACE_WA-VALUE.
IMPORT PHELP FROM MEMORY ID 'PHELP'.
LV_DYNNR = PHELP-DYNPRO.
READ TABLE SHLP-INTERFACE
INTO INTERFACE_WA
WITH KEY F4FIELD = 'X'
TRANSPORTING VALTABNAME VALFIELD.
CONCATENATE INTERFACE_WA-VALTABNAME INTERFACE_WA-VALFIELD
INTO LV_FIELDNAME
SEPARATED BY '-'.
IF NOT PHELP-STEPL IS INITIAL.
LV_X_TABLECONTROL = 'X'.
ENDIF.
* Access using the old interface
IN_PROGRAM = PHELP-DYNPPROG
IN_DYNNR = LV_DYNNR
IN_FIELDNAME = LV_FIELDNAME
X_TABLECONTROL = LV_X_TABLECONTROL
IO_SAMMG = LV_SAMMG
MATCHCODE_ID = LV_MCID.
CONCATENATE '=' LV_MCID INTO INTERFACE_WA-VALUE.
MODIFY SHLP-INTERFACE FROM INTERFACE_WA
TRANSPORTING VALUE
WHERE F4FIELD <> SPACE.
ENDIF.
Notes
Further information
Documentation for the example exit
Parameters
CALLCONTROLRECORD_TAB
SHLP
SHLP_TAB
Exceptions
Function Group
XJHFGeneral Data in Customer Master BAL Application Log Documentation
This documentation is copyright by SAP AG.
Length: 2300 Date: 20240523 Time: 075949 sap01-206 ( 21 ms )