XDSPGMETC

From MidrangeWiki
Jump to: navigation, search
  • This program is setup to run regularly from the job scheduler
  • XDSPGMETC = submit XDSPOBJPGM to JOBQ

Actual Source Code

                 PGM                                                        
                                                                         
              DCL        VAR(&WORK) TYPE(*CHAR) LEN(10) VALUE(XWARE) +   
                           /* CALL delivers 10 character PARAMETER # +   
                          1 */                                          
                                                                        
 /*                                             send this to another JOB 
              SBMJOB     CMD(CALL PGM(XDSPOBJPGM) PARM(&WORK)) +         
                           JOB(XDSPOBJPGM) JOBQ(*LIBL/QBATCH3)           
                                                                         
               ENDPGM