BPX4ATM (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 associated with program APPL92. For the callable service, see attach_execmvs (BPX1ATM, BPX4ATM) — Attach an MVS program. AMODE 31 callers use BPX1ATM (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  BPX4ATM,              Invoke a MVS program              +
               (PGMNAMEL,            Input: Length of program name     +
               PGMNAME,              Input: Program name               +
               BUFLENA,              Input: Length of program argument +
               BUFFERA,              Input: Program argument           +
               =AD(0),               Input: Exit routine address or 0  +
               =AD(0),               Input: Exit Parm list address or 0+
               RETVAL,               Return value: Child PID Or -1     +
               RETCODE,              Return code                       +
               RSNCODE),             Reason code                       +
               MF=(E,PLIST)          ----------------------------------