DUTAS re-platformed to Raincode - Initial Source Code

Procs/DTSBY202

@@ -0,0 +1,31 @@
+//**DTSBY202 PROC                                                       00000010
+//**
+//STEP0100 EXEC PGM=DTSBY202,     READ ICESA FILE TO SEND EMAIL
+//             COND=(0,LT),       REPORTS
+//             REGION=0M
+//SYSOUT   DD  SYSOUT=*
+//SYSABOUT DD  SYSOUT=*
+//SYSABEND DD  SYSOUT=*
+//CAIMRPTS DD  SYSOUT=*
+//*
+//RPT202F1 DD  DSN=DOESTAX.&LVLNODE..R202.ICESA,DISP=SHR
+//DTSEMAIL DD  DSN=DOESTAX.&LVLNODE..Y202.EMAIL,DISP=SHR
+//***************************************************************
+//EMAIL    EXEC PGM=IEBGENER,
+//             COND=(0,GT,STEP0100),       REPORTS
+//             REGION=4M
+//SYSPRINT DD SYSOUT=*
+//OUT1     OUTPUT DEST=U1003,
+//  USERDATA=('TO:PATRICK.HOLMES@DC.GOV',
+//         'TO: MARGARET.HERNANDEZ@DC.GOV',
+//         'CC: GIL.DIMATTIA@DC.GOV',
+//*        'CC: GEORGE.BROWN@DC.GOV',
+//         'SUBJECT: ICESA BATCH REPORT ',
+//         'FILEDESC: ICESA BANK DEPOSIT TICKETS          ',
+//         'FILENAME: ICESARPT.PDF')
+//SYSUT1   DD DISP=SHR,
+//         DSN=DOESTAX.&LVLNODE..Y202.EMAIL
+//SYSUT2   DD SYSOUT=A,OUTPUT=*.OUT1
+//SYSIN    DD DUMMY
+//SYSUDUMP DD SYSOUT=(*,,DUMP)
+//*