//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 //*