BPX1EXM (execmvs) example

The following code invokes program APPL92 and passes the length and parameter MONTH9,PRELIM,(232/74.99). There is no exit routine associated with program APPL92. For the callable service, see execmvs (BPX1EXM, BPX4EXM) — Run an MVS program. AMODE 64 callers use BPX4EXM (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  BPX1EXM,              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: -1 or not return    +
               RETCODE,              Return code                       +
               RSNCODE),             Reason code                       +
               VL,MF=(E,PLIST)       ----------------------------------