DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSRQEXT.jcl

@@ -0,0 +1,41 @@
+//DTSRQEXT JOB (UI,4300,3400,T),CREATE-FTP-ESR-FILE,CLASS=P,            00000010
+//*            TYPRUN=SCAN,
+//             MSGCLASS=X,
+//*            USER=OPCSUB,
+//             NOTIFY=ECNTZL1,
+//             REGION=0M
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//*
+//  SET  UINODE='PROD'            REGION VSAM MASTER FILES
+//  SET MSTNODE='TEST'            REGION VSAM MASTER FILES
+//  SET LVLNODE='PROD'            REGION BATCH LOADLIB/PROCLIB
+//  SET CYPNODE='PROD'            REGION BATCH LOADLIB/PROCLIB
+//*
+//****
+//****
+//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB
+//*
+//STEP0100 EXEC DESBD300      EXTRACT DATA FROM WAGE FILE
+//STEP0100.EWG960F1 DD  DSN=DOESTAX.HDVL.EWG960F1,DISP=SHR,
+//             AMP=('BUFNI=5,BUFND=10')
+//*
+//STEP0200 EXEC EFTEX100,                     DAILY EFT EXTRACT
+//             RUNTYPE='OR',
+//             PREBACK='N'
+//*
+//*            LIST OF REC TYPES TO BE EXTRACTED BY BD400
+//STEP0100.EXTPARM DD *
+100
+/*
+//*
+//*-------------------------------------------------------------------*
+//* FTP STEP TO TRANSFER THE ENROLLMENT REFRESH AND POSTING FILES     *
+//*  RETRIEVED FROM GOVONE TO DOES FOR PROCESSING                     *
+//*-------------------------------------------------------------------*
+//*
+//STEP0300 EXEC PGM=FTP,REGION=8M,PARM='(EXIT TIMEOUT 120'
+//SYSPRINT DD  SYSOUT=*
+//OUTPUT   DD  SYSOUT=*
+//INPUT    DD  DISP=SHR,DSN=DOESTAX.PROD.JOBLIB(G1EPPUT3)
+//*