//***********************  DTSWGE07                                     00010000
//********************************************************************  00010100
//* SORT DUTAS W4 WAGE FILE                                             00010200
//*                                                      11/10/11  ZL1  00010300
//********************************************************************  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                00014000
//         DD  DSN=DOESTAX.CONV.DTS193.W4FILE,DISP=SHR                  00015006
//*        DD  DSN=DOESTAX.CONV.DTS453.W2FILE,DISP=SHR                  00015108
//SORTOUT  DD  DSN=DOESTAX.&LVLNODE..W4FILE,                            00015207
//      DISP=SHR,                                                       00016001
//      UNIT=SYSDA,SPACE=(CYL,(25,5),RLSE),                             00017000
//      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)                       00019200
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)                       00019300
//SYSIN    DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(SRTW4FIL),DISP=SHR     00019400
//*                                                                     00019500
//********************************************************************  00222000
//*  SEND EMAIL NO DUTAS WAGES                                          00223000
//*                                                                     00224000
//********************************************************************  00225000
//*                                                                     00226000
//STEP0300 EXEC PGM=IEBGENER,COND=(1,NE,STEP0100),REGION=4M             00230001
//SYSPRINT DD SYSOUT=*                                                  00250000
//OUT1     OUTPUT DEST=U1003,                                           00260000
//  USERDATA=('TO:ZARATH.LALPUTAX@DC.GOV',                              00270000
//         'CC:SRUJANI.CHANDRAGIRI@DC.GOV',                             00300004
//         'SUBJECT: NO DUTAS WAGES ON MAINFRAME...........ZL1',        00320000
//         'FILEDESC: DUTAS WAGE REPORT                   ',            00330000
//         'FILENAME:NO_DUTAS_WAGES.TXT'),                              00340003
//         MAILFROM=DUTAS@DC.GOV                                        00350003
//SYSUT1   DD DSN=DOESTAX.&LVLNODE..DUTAS.NOWAGES.TXT,DISP=SHR          00360000
//SYSUT2   DD SYSOUT=A,OUTPUT=*.OUT1                                    00370000
//SYSIN    DD DUMMY                                                     00380000
//*                                                                     00390000
//********************************************************************  00730000
//*  SEND EMAIL WITH DUTAS ERROR REPORT                                 00733000
//*                                                                     00734000
//********************************************************************  00735000
//*                                                                     00736000
//STEP0400 EXEC PGM=IEBGENER,COND=(2,NE,STEP0100),REGION=4M             00741001
//SYSPRINT DD SYSOUT=*                                                  00750000
//OUT1     OUTPUT DEST=U1003,                                           00760000
//  USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',                              00770000
//         'CC:SRUJANI.CHANDRAGIRI@DC.GOV',                             00781004
//         'SUBJECT:  DUTAS WAGE ERROR REPORT............ZL1',          00790000
//         'FILEDESC: DUTAS WAGE ERROR REPORT             ',            00800000
//         'FILENAME: DUTAS_WAGES.TXT'),                                00810003
//         MAILFROM=DUTAS@DC.GOV                                        00820003
//SYSUT1   DD DSN=DOESTAX.&LVLNODE..DUTAS.WAGE.RPT,DISP=SHR             00821000
//SYSUT2   DD SYSOUT=A,OUTPUT=*.OUT1                                    00830000
//SYSIN    DD DUMMY                                                     00840000
//*                                                                     00850000
//STEP0500 EXEC PGM=IEBGENER,COND=(0,NE,STEP0100),REGION=4M             00870001
//SYSPRINT DD SYSOUT=*                                                  00880000
//OUT1     OUTPUT DEST=U1003,                                           00890000
//  USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',                              00900000
//         'CC:SRUJANI.CHANDRAGIRI@DC.GOV',                             00911004
//         'SUBJECT:  DUTAS WAGE REPORT............ZL1',                00920000
//         'FILEDESC: DUTAS WAGE REPORT                   ',            00930000
//         'FILENAME: DUTAS_WAGES.TXT'),                                00940003
//         MAILFROM=DUTAS@DC.GOV                                        00941003
//SYSUT1   DD DSN=DOESTAX.&LVLNODE..DUTAS.WAGE.RPT,DISP=SHR             00950000
//SYSUT2   DD SYSOUT=A,OUTPUT=*.OUT1                                    00960000
//SYSIN    DD DUMMY                                                     00970000
//*                                                                     00980000
//STEP0600 EXEC PGM=IDCAMS,          BACKUP WAGE W4 FILE                00990000
//             COND=(4,LT)           GENERATION                         01000000
//SYSPRINT DD  SYSOUT=*                                                 01010000
//INDD01   DD  DSN=DOESTAX.&LVLNODE..W4FILE,DISP=SHR                    01021000
//OUTDD01  DD  DSN=DOESTAX.PROD.BACKUP.W4FILE(+1),                      01030000
//         DISP=(,CATLG,DELETE),                                        01040000
//         UNIT=SYSDA,SPACE=(CYL,(75,25),RLSE),                         01041002
//         DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=32000)             01042000
//SYSIN    DD  DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR          01070000