//ECNTV120 JOB (UI,4300,3400,T),RQ120.VIEWDIR,                          00010003
//       CLASS=P,MSGCLASS=X,                                            00020000
//****   NOTIFY=ECNTJP2,                                                00040008
//****   USER=OPCSUB,                                                   00041008
//       NOTIFY=ECNTSUP,                                                00050008
//****   TYPRUN=SCAN,                                                   00060000
//       REGION=0M                                                      00070000
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//****                                    /* VIEWDIRECT OPTIONS         00080000
//     SET LVLPROG='PROD'                                               00090005
//     SET LVLNODE='PROD'                                               00100005
//     SET   LDEST=U@PRT65                                              00110000
//     SET LVDHOLD='YES'                                                00120000
//*   JOB : RE-RUN POTENTIALLY FICTITIOUS EMPLOYERS RPT                 00130006
//****                                                                  00140000
/*JOBPARM  LINECT=104         /* NEEDED FOR THE OLD XEROX AT DOES ONLY  00150000
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLPROG..PROCLIB                        00160000
//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00170000
//****                                      SORT THE REPORT RECORDS     00180000
//STEP0050 EXEC DTSRSORT,                                               00190000
//         RPTGEN='(+0)'                                                00200003
//****                                     REPORT GENERATION            00210000
//****                                                                  00220000
//****                      /*  GEN A DUMMY RECORD FOR THE LABELS FILE  00230000
//DOESLBL1 EXEC PGM=IEBDG,                                              00240000
//         COND=(0,LT)                                                  00250000
//SYSPRINT DD SYSOUT=*                                                  00260000
//LBLOUT  DD DSN=&&TMP901,DISP=(NEW,PASS,DELETE),                       00270000
//           UNIT=SYSDA,                                                00280000
//           SPACE=(TRK,1),                                             00290000
//           DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)                     00300000
//SYSIN  DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSLBL01),               00310000
//          DISP=SHR                                                    00320000
//****                      /* POPULATE THE LABELS WORK FILE            00330000
//DOESLBL2 EXEC PGM=IDCAMS,                                             00340000
//         COND=(0,LT)                                                  00350000
//SYSPRINT DD SYSOUT=*                                                  00360000
//FILEIN   DD DSN=&&TMP901,                                             00370000
//            DISP=(OLD,DELETE,DELETE),                                 00380000
//            UNIT=SYSDA                                                00390000
//DOESVRO1 DD  DSN=&&LBL901,                                            00400000
//             DISP=(NEW,PASS,DELETE),                                  00410000
//             UNIT=SYSDA,                                              00420000
//             SPACE=(8192,(1000,1000),RLSE),                           00430000
//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)                   00440000
//SYSIN  DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSLBL02),               00450000
//          DISP=SHR                                                    00460000
//****                                                                  00470000
//STEP0100 EXEC PGM=DTSBD800,                        OUTPUT GENERATION  00480000
//             COND=(0,LT)                                              00490000
//SYSOUT   DD  SYSOUT=*                                                 00500000
//SYSABOUT DD  SYSOUT=*                                                 00510000
//SYSUDUMP DD  SYSOUT=*                                                 00520000
//**                                                                    00530000
//PARMIN   DD  DUMMY                                                    00540000
//**//PARMIN  DD  *                                                     00550000
//**DTSBD800,INC,120                                                    00560001
//**/*                                                                  00570000
//**                                                                    00580000
//ATLSTIN  DD  DUMMY                                                    00590000
//**                                                                    00600000
//DTSFVRI1 DD  DSN=&&SRTRPT,DISP=(OLD,DELETE,DELETE)                    00610000
//**                                                                    00620000
//DOESVRO1 DD  DSN=&&LBL901,DISP=(OLD,PASS,DELETE)                      00630000
//**                                                                    00640000
//DTSFREF  DD  DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR,                 00650000
//             AMP=('BUFNI=5,BUFND=10')                                 00660000
//**                                                                    00670000
//STEP0100.CHGPARM  DD DSN=DOESTAX.&LVLNODE..CHG.PARM.SPEC120,          00671003
//            DISP=SHR                                                  00672003
//**                           POTENTIALLY FICTITIOUS EMPLYRS           00680001
//RPT120R1 DD  SYSOUT=(Z,DTS120R1),HOLD=&LVDHOLD.,                      00690001
//             DEST=&LDEST.                                             00700000
//**                           UNUSUAL CONDITIONS ENCOUNTERED REPORT    00760000
//RPT907R1 DD  SYSOUT=(Z,DTS907R1),HOLD=&LVDHOLD.,                      00770001
//             DEST=&LDEST.                                             00780000
//**                           UNUSUAL CONDITIONS ENCOUNTERED REPORT    00790000
//RPT907R2 DD  DUMMY                                                    00800000
//**                           CONTROL REPORT SUMMARY                   00810000
//RPT980R1 DD  SYSOUT=(Q,DTS980R1),HOLD=&LVDHOLD.,                      00820001
//             DEST=&LDEST.                                             00830000
//*                                                                     00840000