//***********************  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