96 lines
3.5 KiB
Plaintext
96 lines
3.5 KiB
Plaintext
//ECNTV412 JOB (UI,4300,3400,T),RQ412.VIEWDIR, 00000010
|
|
// CLASS=P,MSGCLASS=X, 00000010
|
|
// NOTIFY=ECNTSUP,
|
|
//**** NOTIFY=ECNTJP2,
|
|
//**** USER=OPCSUB,
|
|
// 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 REPORTS FROM THE QUARTERLY DELINQUENCY (3RD STEP)
|
|
//****
|
|
/*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,412
|
|
//**/*
|
|
//**
|
|
//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')
|
|
//**
|
|
//** ESTIMATED REPORT LIST
|
|
//RPT412R1 DD SYSOUT=(Z,DTS412Q1),HOLD=&LVDHOLD.,
|
|
// DEST=&LDEST.
|
|
//** NO ESTIMATED REPORT LIST
|
|
//RPT412R2 DD SYSOUT=(Z,DTS412Q2),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
|
|
//* COPY THIS JCL INTO YOUR JOB EXECUTION JCL, AND MAKE IT THE LAST
|
|
//* STEP OF THE JOB. (REPLACES ST1 = 12/15/01)
|
|
//*
|
|
//* SPECIFY THE NAME OF THE MEMBER BELOW (REPLACE XXXXXXXX) OF THE
|
|
//* VIEW DIRECT PARMS IN DATASET 'PROD.VIEW.DIRECT.PARMS'. SEE MEMBER
|
|
//* "SAMPLE" IN THE ABOVE DATASET FOR INSTRUCTIONS ON CODING THE PARMS.
|
|
//* THE NAME OF THE MEMBER SHOULD PROBABLY BE THE NAME OF THE INPUT JOB
|
|
//* TO BE PROCESSED BY VIEW DIRECT.
|
|
//*
|
|
//INFOPACR EXEC PGM=INFOPACR,
|
|
// COND=(0,LT),
|
|
// PARM='ECNTV412'
|
|
//*
|