BPX1ATM (attach_execmvs) example
The following code invokes program APPL92 on a subtask
and as a child process of the caller, passing the length and parameter
MONTH9,PRELIM,(232/74.99). There is no exit routine that is associated
with program APPL92. For the callable service, see attach_execmvs (BPX1ATM, BPX4ATM) — Attach an MVS program.
AMODE 64 callers use BPX4ATM (attach_execmvs) example.
MVC PGMNAMEL,=F'6'
MVC PGMNAME(06),=CL6'APPL92'
MVC BUFLENA,=F'24'
MVC BUFFERA(24),=CL24'MONTH9,PRELIM,(232/74.99)'
SPACE ,
CALL BPX1ATM, Invoke a MVS program +
(PGMNAMEL, Input: Length of program name +
PGMNAME, Input: Program name +
BUFLENA, Input: Length of program argument +
BUFFERA, Input: Program argument +
=A(0), Input: Exit routine address or 0 +
=A(0), Input: Exit Parm list address or 0+
RETVAL, Return value: Child PID Or -1 +
RETCODE, Return code +
RSNCODE), Reason code +
VL,MF=(E,PLIST) ----------------------------------