Files
DUTAS/JCL/DTSRQ413.jcl

40 lines
3.1 KiB
Plaintext

//DTSRQ413 JOB (UI,4300,3400,T),BE413,CLASS=P,MSGCLASS=X, 00010047
// NOTIFY=ECNTSUP, 00020047
//**** TYPRUN=SCAN, 00030047
//**** USER=#DOADTS, 00040049
// REGION=0M 00050047
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//**** 00060047
// SET LVLNODE='PROD' 00070047
// SET LHOLD='YES' 00080047
//**** 00090047
//* ON REQUEST REPORT DTSBR413 - * 00100047
//* WRITE OFF CANDIDATE LIST (CR) 00110047
//**** 00120047
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB 00130047
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00140047
//** 00150047
//* NO BACKUP NEEDED BEFORE THIS REPORT 00160047
//STEP0200 EXEC DTSUEXT, 00170047
// RUNTYPE='OR' 00180047
//* 00190047
//STEP0100.EXTPARM DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRQ413), 00200052
// DISP=SHR 00220052
//* REPORT RECORD SORT 00230047
//STEP0250 EXEC DTSRSORT 00240047
//* REPORT GENERATION 00250047
//STEP0300 EXEC DTSRQRPT 00260047
//* 00260151
//** DELINQUERNT EMPLYR ACCT NBR LIST 00264051
//STEP0100.RPT413R1 DD SYSOUT=Z 00265051
//** UNUSUAL CONDITIONS ENCOUNTERED REPORT 00267051
//STEP0100.RPT907R1 DD SYSOUT=Z 00268051
//** 00269151
//STEP0100.RPT907R2 DD DUMMY 00269251
//** CONTROL REPORT SUMMARY 00269351
//STEP0100.RPT980R1 DD SYSOUT=X 00269451
//* 00269651
//* 00270047
//DOESLBLP.DOESLBL1 DD DUMMY LABELS 00290000
//* 00291051