The following example can be used to invoke CTMAPI in BAPI mode:
LOAD EP=CTMAPI
LR R15,R0
OI BAPIADR,X'80'
LA R1,BAPIADR POINT TO BAPI AREA ADDRESS
BALR R14,R15 CALL CTMAPI
....
BAPIADR DC A(BAPIDSLN) BAPI DSECT + HALFW LEN
DS 0D DOUBLEWORD ALIGNMENT
DS CL6 6 BYTE FILLER
BAPIDSLN DC Y(BAPILEN) HALFWORD LENGTH FROM CTMBAPI DSECT
CTMBAPI DSECT=NO
For resolving, setting, or check pointing variables in the IOA Variable Database, use the following example to invoke CTMAPI in BAPI mode:
OI BAPIADR,X'80'
LA R1,BAPIADR POINT TO BAPI AREA ADDRESS
ATTACH EP=CTMAPI,ECB=ECB ATTACH CTMAPI as a subtask
WAIT ECB=ECB Wait for the subtask to end
....
....
ECB DC A(0)
BAPIADR DC A(BAPIDSLN) BAPI DSECT + HALFW LEN
DS 0D DOUBLEWORD ALIGNMENT
DS CL6 6 BYTE FILLER
BAPIDSLN DC Y(BAPILEN) HALFWORD LENGTH FROM CTMBAPI DSECT
CTMBAPI DSECT=NO
Parent Topic |