//RUNRQEXT JOB (UI,4300,3400,T),CREATE-FTP-ESR-FILE,CLASS=P,MSGCLASS=X, 00000010
//*            TYPRUN=SCAN,
//             NOTIFY=ECNTGD1,
//             REGION=0M
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//*
//  SET MSTNODE='HDVL'            REGION VSAM MASTER FILES
//  SET LVLNODE='HDVL'            REGION BATCH LOADLIB/PROCLIB
//  SET CYPNODE='HDVL'            EXTRACTED FILE FOR GOV1 FPT
//*
//****
//****
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//****                                      BACKUP AFTER THIS RUN
//*STEP0500 EXEC DTSUTVSM,
//*         BKUPGEN='(+1)'            /* IF NO BKP IN STEP0100
//*
//*STEP0100 EXEC DESBD300      EXTRACT DATA FROM WAGE FILE
//*
//STEP0200 EXEC EFTEX100,                     DAILY EFT EXTRACT
//             RUNTYPE='OR',
//             PREBACK='N'
//*
//*            LIST OF REC TYPES TO BE EXTRACTED BY BD400
//STEP0100.EXTPARM DD *
100
/*
//