XDSPGMETC

• 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