30 lines
949 B
Plaintext
30 lines
949 B
Plaintext
//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..PROCLIB
|
|
//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
|
|
/*
|
|
//
|