32 lines
2.5 KiB
Plaintext
32 lines
2.5 KiB
Plaintext
//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..PROCLIB 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
|