Files
DUTAS/JCL/ECNTV116.jcl

86 lines
3.0 KiB
Plaintext

//BCGBV116 JOB (UI,4300,3400,T),RQ116.VIEWDIR, 00000010
// CLASS=P,MSGCLASS=X, 00000010
//*** USER=OPCSUB,
//*** NOTIFY=ECNTJP2,
// NOTIFY=ECNTSUP,
//**** TYPRUN=SCAN,
// REGION=0M
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//**** /* VIEWDIRECT OPTIONS
// SET LVLPROG='PROD'
// SET LVLNODE='PROD'
// SET LDEST=U@PRT65
// SET LVDHOLD='YES'
//* JOB : RE-RUN NEW/INACT/DEACTIVATED EMPLYRS RPTS
//****
/*JOBPARM LINECT=104 /* NEEDED FOR THE OLD XEROX AT DOES ONLY
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLPROG..PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//**** SORT THE REPORT RECORDS
//STEP0050 EXEC DTSRSORT,
// RPTGEN='(+0)'
//**** REPORT GENERATION
//****
//**** /* GEN A DUMMY RECORD FOR THE LABELS FILE
//DOESLBL1 EXEC PGM=IEBDG,
// COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//LBLOUT DD DSN=&&TMP901,DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(TRK,1),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSLBL01),
// DISP=SHR
//**** /* POPULATE THE LABELS WORK FILE
//DOESLBL2 EXEC PGM=IDCAMS,
// COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//FILEIN DD DSN=&&TMP901,
// DISP=(OLD,DELETE,DELETE),
// UNIT=SYSDA
//DOESVRO1 DD DSN=&&LBL901,
// DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(8192,(1000,1000),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSLBL02),
// DISP=SHR
//****
//STEP0100 EXEC PGM=DTSBD800, OUTPUT GENERATION
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//**
//PARMIN DD DUMMY
//**//PARMIN DD *
//**DTSBD800,INC,116,117,119
//**/*
//**
//ATLSTIN DD DUMMY
//**
//DTSFVRI1 DD DSN=&&SRTRPT,DISP=(OLD,DELETE,DELETE)
//**
//DOESVRO1 DD DSN=&&LBL901,DISP=(OLD,PASS,DELETE)
//**
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//**
//** NEW/REACT/DEACTIVATED EMPLYRS
//RPT116R1 DD SYSOUT=(Z,DTS116Q1),HOLD=&LVDHOLD.,
// DEST=&LDEST.
//** GENRC/DEMAND/'8 QTRS 0' INACTIVATN LTR
//RPT117R1 DD DUMMY
//** '8 QTRS OF NONE' REPORT
//RPT119R1 DD SYSOUT=(Z,DTS119Q1),HOLD=&LVDHOLD.,
// DEST=&LDEST.
//** UNUSUAL CONDITIONS ENCOUNTERED REPORT
//RPT907R1 DD SYSOUT=(Z,DTS907Q1),HOLD=&LVDHOLD.,
// DEST=&LDEST.
//** UNUSUAL CONDITIONS ENCOUNTERED REPORT
//RPT907R2 DD DUMMY
//** CONTROL REPORT SUMMARY
//RPT980R1 DD SYSOUT=(Q,DTS980Q1),HOLD=&LVDHOLD.,
// DEST=&LDEST.
//* 00640000