94 lines
7.4 KiB
Plaintext
94 lines
7.4 KiB
Plaintext
//*********************** DTSWGE07 00010010
|
|
//******************************************************************** 00010100
|
|
//* SORT DUTAS W4 WAGE FILE 00010202
|
|
//* 11/10/11 ZL1 00010302
|
|
//******************************************************************** 00010400
|
|
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0' SORT REPORT RECORDS 00011000
|
|
//SYSOUT DD SYSOUT=(*) 00012000
|
|
//SYSPRINT DD SYSOUT=(*) 00013000
|
|
//SORTIN DD DSN=DOESTAX.&LVLNODE..DTS.W4FILE,DISP=SHR 00014009
|
|
//SORTOUT DD DSN=&&SRTWAGE, 00015000
|
|
// DISP=(NEW,PASS,DELETE), 00016000
|
|
// UNIT=SYSDA,SPACE=(CYL,(25,5),RLSE), 00017001
|
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=32000) 00018000
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 00019100
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 00019202
|
|
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 00019302
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(SRTW4FIL),DISP=SHR 00019404
|
|
//* 00019502
|
|
//******************************************************************** 00020000
|
|
//* VALIDATE THERE ARE WAGES READY FOR PROCESSING. IF FILE IS EMPTY 00030000
|
|
//* JOB WILL RETURN WITH CODE 1. 11/10/11 ZL1 00040009
|
|
//******************************************************************** 00050000
|
|
//STEP0200 EXEC PGM=DTSVAL05 00060002
|
|
//* 00100000
|
|
//DTS4FILE DD DSN=&&SRTWAGE,DISP=(OLD,PASS,DELETE) 00130002
|
|
//WAGEFILE DD DSN=DOESTAX.&LVLNODE..W4FILE, 00132003
|
|
// DISP=SHR, 00133004
|
|
//* DISP=(NEW,CATLG,DELETE), 00133104
|
|
// UNIT=SYSDA,SPACE=(CYL,(25,15),RLSE), 00134002
|
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=32000) 00135000
|
|
//LISTOUT DD DSN=DOESTAX.&LVLNODE..DUTAS.WAGE.RPT,DISP=SHR 00136004
|
|
//ERRFILE DD DSN=DOESTAX.&LVLNODE..DUTAS.ERROR.WAGES,DISP=SHR 00137004
|
|
//* 00140000
|
|
//***************************************************************** 00170000
|
|
//SYSABOUT DD SYSOUT=(*) 00190000
|
|
//SYSPRINT DD SYSOUT=(*) 00200000
|
|
//SYSOUT DD SYSOUT=(*) 00220000
|
|
//* 00221000
|
|
//******************************************************************** 00222000
|
|
//* SEND EMAIL NO DUTAS WAGES 00223002
|
|
//* 00224000
|
|
//******************************************************************** 00225000
|
|
//* 00226000
|
|
//STEP0300 EXEC PGM=IEBGENER,COND=(1,NE,STEP0200),REGION=4M 00230002
|
|
//SYSPRINT DD SYSOUT=* 00250000
|
|
//OUT1 OUTPUT DEST=U1003, 00260000
|
|
// USERDATA=('TO:ZARATH.LALPUTAX@DC.GOV', 00270002
|
|
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV', 00300013
|
|
// 'SUBJECT: NO DUTAS WAGES ON MAINFRAME...........ZL1', 00320002
|
|
// 'FILEDESC: DUTAS WAGE REPORT ', 00330002
|
|
// 'FILENAME:NO_DUTAS_WAGES.TXT') 00340002
|
|
//SYSUT1 DD DSN=DOESTAX.&LVLNODE..DUTAS.NOWAGES.TXT,DISP=SHR 00360004
|
|
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 00370000
|
|
//SYSIN DD DUMMY 00380000
|
|
//* 00390000
|
|
//******************************************************************** 00730000
|
|
//* SEND EMAIL WITH DUTAS ERROR REPORT 00733002
|
|
//* 00734000
|
|
//******************************************************************** 00735000
|
|
//* 00736000
|
|
//STEP0400 EXEC PGM=IEBGENER,COND=(2,NE,STEP0200),REGION=4M 00741002
|
|
//SYSPRINT DD SYSOUT=* 00750000
|
|
//OUT1 OUTPUT DEST=U1003, 00760000
|
|
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV', 00770002
|
|
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV', 00781013
|
|
// 'SUBJECT: DUTAS WAGE ERROR REPORT............ZL1', 00790002
|
|
// 'FILEDESC: DUTAS WAGE ERROR REPORT ', 00800007
|
|
// 'FILENAME: DUTAS_WAGES.TXT') 00810002
|
|
//SYSUT1 DD DSN=DOESTAX.&LVLNODE..DUTAS.WAGE.RPT,DISP=SHR 00821007
|
|
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 00830000
|
|
//SYSIN DD DUMMY 00840000
|
|
//* 00850000
|
|
//STEP0500 EXEC PGM=IEBGENER,COND=(0,NE,STEP0200),REGION=4M 00870002
|
|
//SYSPRINT DD SYSOUT=* 00880002
|
|
//OUT1 OUTPUT DEST=U1003, 00890002
|
|
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV', 00900002
|
|
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV', 00911013
|
|
// 'SUBJECT: DUTAS WAGE REPORT............ZL1', 00920002
|
|
// 'FILEDESC: DUTAS WAGE REPORT ', 00930002
|
|
// 'FILENAME: DUTAS_WAGES.TXT') 00940002
|
|
//SYSUT1 DD DSN=DOESTAX.&LVLNODE..DUTAS.WAGE.RPT,DISP=SHR 00950004
|
|
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 00960002
|
|
//SYSIN DD DUMMY 00970002
|
|
//* 00980002
|
|
//STEP0600 EXEC PGM=IDCAMS, BACKUP WAGE W4 FILE 00990011
|
|
// COND=(4,LT) GENERATION 01000011
|
|
//SYSPRINT DD SYSOUT=* 01010011
|
|
//INDD01 DD DSN=DOESTAX.&LVLNODE..W4FILE,DISP=SHR 01021011
|
|
//OUTDD01 DD DSN=DOESTAX.PROD.BACKUP.W4FILE(+1), 01030011
|
|
// DISP=(,CATLG,DELETE), 01040011
|
|
// UNIT=SYSDA,SPACE=(CYL,(25,15),RLSE), 01041011
|
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=32000) 01042011
|
|
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR 01070011
|