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

39 lines
1.3 KiB
Plaintext

//DTSRQ611 JOB (UI,4300,3400,T),PROD.BE611,CLASS=P,MSGCLASS=X,
//**** NOTIFY=ECNTJP2,
//**** USER=#DOADTS,
// NOTIFY=ECNTSUP,
//**** TYPRUN=SCAN,
// REGION=0M
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//*
// SET LVLNODE='PROD'
// SET LHOLD='YES'
//****
//* ON REQUEST REPORT DTSBR611 -
//* ACTIVE EMPLYRS BY ZIP CODE CNTS
//****
//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(DTSRQ611),
// DISP=SHR
//* REPORT RECORD SORT
//STEP0250 EXEC DTSRSORT
//* REPORT GENERATION
//* NEEDS ACCESS TO FINALIST (LOAD-MOD & DATA)
//STEP0300 EXEC DTSRQRPT
//STEP0100.SYSFINAL DD SYSOUT=(*)
//***STEP0100.CBDATA DD DSN=DOES.CICS.FIN730.CBDATA.EX060102,DISP=SH
//***STEP0100.CBDATA DD DSN=DOES.CICS.FIN730.CBDATA.EX100102,DISP=SH
//STEP0100.RPT611R1 DD HOLD=YES
//STEP0100.RPT907R1 DD HOLD=YES
//STEP0100.RPT907R2 DD HOLD=YES
//STEP0100.RPT980R1 DD HOLD=YES
//DOESLBLP.DOESLBL1 DD DUMMY LABELS 00630200
//*