//DTSRQ469 JOB (UI,4300,3400,P),CLASS=A,MSGCLASS=X,REGION=4000K, 00010002 // USER=#DOADTS, 00020003 // NOTIFY=ECNTSUP 00020103 //* 00021002 //* PRODUCE A LISTING OF WAGE ITEMS UPDATED FOR A GIVEN DAY 00022002 //* JOB WILL RUN EVERY MORNING FROM THE SCHEDULER 00023002 //* 00023102 // SET PRGNODE='PROD' 00024003 // SET UINODE='PROD' 00025000 //PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB 00026000 //JOBLIB DD DSN=DOESTAX.&PRGNODE..BATCH.LOADLIB,DISP=SHR 00027000 // DD DSN=UI.&UINODE..DOCS.LOADLIB,DISP=SHR 00028000 //* 00029000 //******************************************************************** 00030000 //******************************************************************** 00190000 //STEP3 EXEC PGM=DTSBX469 00200100 //DOCSMSTR INCLUDE MEMBER=DOCIMSTR 00210000 //*AGE DD SYSOUT=* OUTLIM=10000 00211004 //WAGE DD DSN=DOESTAX.CONV.WAGE.TODAY(+1), 00211104 //* DISP=OLD 00212000 // DISP=(NEW,CATLG,DELETE), 00213004 // DCB=(LRECL=59,BLKSIZE=5900), 00213104 // UNIT=SYSDA, 00214004 // SPACE=(CYL,(50,1),RLSE) 00216004 //SYSUDUMP DD SYSOUT=* 00230000 //SYSCOUNT DD SYSOUT=* 00240000 //SYSOUT DD SYSOUT=* 00250000 //SYSPRINT DD SYSOUT=* 00260000 //SYSDBOUT DD SYSOUT=* 00270000 //************************************************** 00280000 // 00300000