DUTAS re-platformed to Raincode - Initial Source Code

Procs/DTSBX433

@@ -0,0 +1,29 @@
+//****                                                                  00000010
+//*   EXTRACT EMPLOYER DATA FROM TAX MAINFRAME FILES                    00001700
+//*   INTO COMMA-SEPARATED FILES FOR WEB DATABASE                       00001700
+//*                                                                     00001700
+//*   RUNS DAILY FOLLOWING TAX UPDATE (DTSPDAY1)                        00001700
+//**                                                                    00001700
+//DTSBX433 PROC
+//*
+//STEP0400 EXEC PGM=IEBGENER,REGION=4M
+//SYSPRINT DD SYSOUT=*
+//OUT1     OUTPUT DEST=U1003,
+//  USERDATA=('TO:PANKAJ.SHARMA@SAGITEC.COM',
+//            'TO:ARAVIND.VITTA@SAGITEC.COM',
+//            'TO:PRABHU.TEGUR@SAGITEC.COM',
+//            'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
+//            'CC:ZARATH.LALPUTAN@DC.GOV',
+//            'CC:RAJINI.JUJJAVARAPU@DC.GOV',
+//         'SUBJECT: DAILY X104 AND X141 FILES FROM PRIOR DAY ...'),
+//         MAILFROM=DUTAS@DC.GOV
+//**       'FILEDESC: X104 AND X141 FILES READY FOR PICKUP ')
+//**       'FILENAME:DAILY FILES')
+//*YSUT1   DD DUMMY
+//*SYSUT2   DD SYSOUT=A,OUTPUT=*.OUT1
+//*SYSIN    DD DUMMY
+//SYSUT1   DD DSN=DOESTAX.CONV.X104.X141.FILES.TXT,DISP=SHR
+//SYSUT2   DD SYSOUT=A,OUTPUT=*.OUT1
+//SYSIN    DD DUMMY
+//SYSUDUMP DD SYSOUT=(*,,DUMP)
+//*********************************************************************