//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..PROCS.BATCH.LIB
//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)
//*