XDSPGMETC

See CLP/400 examples

• This program is setup to run regularly from the job scheduler
• XDSPGMETC = submit XDSPOBJPGM to JOBQ

Actual Source Code

Columns . . . :    1  71           Browse                     CIIIBPMOD/QCLSRC 
SEU==>                                                               XDSPGMETC 
FMT **  ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7  
       *************** Beginning of data ************************************* 
/*********************************************************************/ 
                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                                                     
       ****************** End of data ****************************************