42 lines
1.4 KiB
Plaintext
42 lines
1.4 KiB
Plaintext
//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)
|
|
//*
|