//DTSRQ762 JOB (UI,4300,3400,T),PROD.RQ762.SPECLABL,
//         CLASS=S,MSGCLASS=X,
//         NOTIFY=ECNTJP2,
//****     TYPRUN=SCAN,
//****     USER=#DOADTS,
//         REGION=0M
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//**
/*JOBPARM  LINECT=104         /* NEEDED FOR THE OLD XEROX AT DOES ONLY
//**
//   SET LVLNODE='PROD'
//   SET LHOLD='YES'
//   SET LDEST=U@PRT65
//**
//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//****
//*    ON REQUEST REPORT(S) FOR JOB SERVICE:
//*          - DTSBR762 - SPECIAL MAILING LABEL EXTRACT
//****
//*                       NO BACKUP NEEDED BEFORE THIS REPORT
//STEP0100 EXEC DTSUEXT
//STEP0100.EXTPARM DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRQ762),
//         DISP=SHR
//*                         /*  REPORT RECORD SORT
//STEP0250 EXEC DTSRSORT
//****                      /*  GEN A DUMMY RECORD FOR THE LABELS FILE  00001702
//DOESLBL1 EXEC PGM=IEBDG                                               00001801
//SYSPRINT DD SYSOUT=*                                                  00001900
//LBLOUT  DD DSN=&&TMP901,DISP=(NEW,PASS,DELETE),                       00002001
//           UNIT=SYSDA,                                                00002100
//           SPACE=(TRK,1),                                             00002202
//           DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)                     00002300
//SYSIN  DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSLBL01),               00002405
//          DISP=SHR                                                    00002505
//****                      /* POPULATE THE LABELS WORK FILE            00003105
//DOESLBL2 EXEC PGM=IDCAMS                                              00003205
//SYSPRINT DD SYSOUT=*                                                  00003305
//FILEIN   DD DSN=&&TMP901,                                             00003405
//            DISP=(OLD,DELETE,DELETE),                                 00003505
//            UNIT=SYSDA                                                00003605
//DOESVRO1 DD  DSN=&&LBL901,                                            00003705
//             DISP=(NEW,PASS,DELETE),                                  00003805
//             UNIT=SYSDA,                                              00003905
//             SPACE=(8192,(1000,1000),RLSE),                           00004005
//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)                   00004105
//SYSIN  DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSLBL02),               00004205
//          DISP=SHR                                                    00004305
//****                            /* REPORT GENERATION
//STEP0300 EXEC PGM=DTSBD800,
//             COND=(0,LT)
//SYSOUT   DD  SYSOUT=*
//SYSABOUT DD  SYSOUT=*
//SYSUDUMP DD  SYSOUT=*
//**
//PARMIN   DD  DUMMY
//**
//ATLSTIN  DD  DUMMY
//**
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFVRI1 DD  DSN=&&SRTRPT,DISP=(OLD,DELETE,DELETE)
//**                                                                    00060000
//DOESVRO1 DD  DSN=&&LBL901,DISP=(OLD,PASS,DELETE)                      00100001
//**
//DTSFREF  DD  DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//*
//*                             NO LONGER PRODUCED THIS WAY (05.17.01)
//*                                  REGULAR LABELS (DUMMY)
//**RPT901R1 DD  SYSOUT=(C,,6662),FCB=P663,
//**             HOLD=&LHOLD.,
//**             DEST=LOCAL
//**                                  JOB SERVICE LABELS
//**RPT901R2 DD  SYSOUT=(C,,6662),FCB=P663,
//**             HOLD=&LHOLD.,
//**             DEST=LOCAL
//**                                 CONTROL REPORT SUMMARY
//RPT980R1 DD  SYSOUT=Q,COPIES=2,
//             HOLD=&LHOLD.,
//             DEST=U@PRT65
//****                                                                  00120000
//DOESLBLP EXEC PGM=DOESLABL,        /* PRINT DOES LABELS               00131001
//             COND=(0,LT),                                             00140000
//             REGION=4096K                                             00150000
//DOESVRI1 DD  DSN=&&LBL901,                                            00150101
//             DISP=(OLD,DELETE,DELETE)                                 00150201
//SYSOUT   DD  SYSOUT=*                                                 00151000
//SYSABOUT DD  SYSOUT=*                                                 00152000
//SYSABEND DD  SYSOUT=*                                                 00153000
//CAIMRPTS DD  SYSOUT=*                                                 00154000
//DOESLBL1 DD  SYSOUT=(C),                                              00155101
//             FCB=P104,                                                00155201
//             DEST=U@PRT155,                                           00155302
//             HOLD=&LHOLD.                                             00155403
//**                                                                    00157001