79 lines
6.2 KiB
Plaintext
79 lines
6.2 KiB
Plaintext
//*********************** DTSWGE07 00010000
|
|
//******************************************************************** 00010100
|
|
//* SORT DUTAS W4 WAGE FILE 00010200
|
|
//* 11/10/11 ZL1 00010300
|
|
//******************************************************************** 00010400
|
|
//STEP0100 EXEC PGM=SORT, 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
|