Files
DUTAS/JCL/DTSRQ123.jcl
2025-07-21 11:20:11 -04:00

36 lines
1.1 KiB
Plaintext

//DTSRQ123 JOB (UI,4300,3400,T),BE123,CLASS=S,MSGCLASS=X,
// NOTIFY=ECNTSUP,
//**** TYPRUN=SCAN,
//**** USER=#DOADTS,
// REGION=0M
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//*
// SET LVLNODE='PROD'
// SET LHOLD='NO'
//****
//* ON REQUEST REPORT DTSBR123 -
//* POTENTIAL EMPLOYERS W/05/06/09/11 CYCLE-A STATUS CODES
//* THE FOUR POSSIBLE PARMS ARE THE CUTOFF DATES FOR EACH
//* OF THE ABOVE CODES (IN THE SAME ORDER).
//* DEFAULT VALUES ARE 90 DAYS PRIOR TO THE REPORT PERIOD.
//****
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//**
//* NO BACKUP NEEDED BEFORE THIS REPORT
//**
//STEP0200 EXEC DTSUEXT,
// RUNTYPE='OR'
//*
//*
//STEP0100.EXTPARM DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRQ123),
// DISP=SHR
//* REPORT RECORD SORT
//STEP0250 EXEC DTSRSORT
//* REPORT GENERATION
//STEP0300 EXEC DTSRQRPT
//DOESLBLP.DOESLBL1 DD DUMMY LABELS 00630200
//**STEP0100.RPT123R1 DD HOLD=YES
//*
//*