//ECNTV411 JOB (UI,4300,3400,T),RQ411.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 REPORTS FROM THE OPEN BANKRUPTCIES LIST
//****
/*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,411
//**/*
//**
//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')
//**
//**                           OPEN BANKRUPTCIES LIST
//RPT411R1 DD  SYSOUT=(Z,DTS411R1),HOLD=&LVDHOLD.,
//             DEST=&LDEST.
//**                           UNUSUAL CONDITIONS ENCOUNTERED REPORT
//RPT907R1 DD  SYSOUT=(Z,DTS907R1),HOLD=&LVDHOLD.,
//             DEST=&LDEST.
//**                           UNUSUAL CONDITIONS ENCOUNTERED REPORT
//RPT907R2 DD  DUMMY
//**                           CONTROL REPORT SUMMARY
//RPT980R1 DD  SYSOUT=(Q,DTS980R1),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='ECNTV411'
//*