Replacing program names
Sample statements to replace a program name
In Assembler:
MVICUEXCNTL,C'I' Must always be 'I'
MVICUEXRQST,C'4' Replace program name
MVICUEXTYPE,C'J' User-chosen identifying code
MVCCUEXNAME,pgmname May contain any identifying info
LAR1,CUEXPARM Pass the parameters to CMRCUEX
LR15,=V(CMRCUEX) Get CMRCUEX's addr from linkage editor
BALR R14,R15 Transfer control to CMRCUEX
In COBOL:
MOVE 'I' TO CUEX-INIT-TERM-OR-USER-CALL
MOVE '4' TO CUEX-4GL-OR-DB
MOVE 'J' TO CUEX-4GL-OR-DB-ID
MOVE pgm name TO CUEX-FILE-OR-PGM-NAME
CALL 'CMRCCUEX' USING CMRCUEX-PARAMETERS.
MVICUEXCNTL,C'I' Must always be 'I'
MVICUEXRQST,C'4' Replace program name
MVICUEXTYPE,C'J' User-chosen identifying code
MVCCUEXNAME,pgmname May contain any identifying info
LAR1,CUEXPARM Pass the parameters to CMRCUEX
LR15,=V(CMRCUEX) Get CMRCUEX's addr from linkage editor
BALR R14,R15 Transfer control to CMRCUEX
In COBOL:
MOVE 'I' TO CUEX-INIT-TERM-OR-USER-CALL
MOVE '4' TO CUEX-4GL-OR-DB
MOVE 'J' TO CUEX-4GL-OR-DB-ID
MOVE pgm name TO CUEX-FILE-OR-PGM-NAME
CALL 'CMRCCUEX' USING CMRCUEX-PARAMETERS.
Tip: For faster searching, add an asterisk to the end of your partial query. Example: cert*