//*****
//**       ELECTRONIC MEDIA
//**       ON REQ RPT GENERATION
//*****
//DESRQRPT  PROC  LDEST=U@PRT65
//****
//*                                                                     00210074
//****                      /*  GEN A DUMMY RECORD FOR THE LABELS FILE  00212099
//DOESLBL1 EXEC PGM=IEBDG,                                              00213099
//             COND=(0,LT)
//SYSPRINT DD SYSOUT=*                                                  00214099
//LBLOUT  DD DSN=&&TMP901,DISP=(NEW,PASS,DELETE),                       00215099
//           UNIT=SYSDA,                                                00216099
//           SPACE=(TRK,1),                                             00217099
//           DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)                     00218099
//SYSIN  DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSLBL01),              00219199
//           DISP=SHR                                                   00219299
//**                                                                    00219799
//****                      /* POPULATE THE LABELS WORK FILE            00219899
//DOESLBL2 EXEC PGM=IDCAMS,                                             00219999
//             COND=(0,LT)
//SYSPRINT DD SYSOUT=*                                                  00220099
//FILEIN   DD DSN=&&TMP901,                                             00220199
//            DISP=(OLD,DELETE,DELETE),                                 00220299
//            UNIT=SYSDA                                                00221099
//DOESVRO1 DD  DSN=&&LBL901,                                            00222099
//             DISP=(NEW,PASS,DELETE),                                  00223099
//             UNIT=SYSDA,                                              00224099
//             SPACE=(8192,(1000,1000),RLSE),                           00225099
//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)                   00226099
//SYSIN  DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSLBL02),              00226199
//           DISP=SHR                                                   00226299
//**                                                                    00229199
//STEP0100 EXEC PGM=DESBD800,                        OUTPUT GENERATION
//             COND=(0,LT)
//SYSOUT   DD  SYSOUT=*
//SYSABOUT DD  SYSOUT=*
//SYSUDUMP DD  SYSOUT=*
//**
//PARMIN   DD  DUMMY
//**
//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')
//**
//**                           ELEC MEDIA PACKING LIST
//RPT101R1 DD  SYSOUT=Q,
//             DEST=&LDEST.,
//             HOLD=&LHOLD.
//**                           ELEC MEDIA CONFIRMATION NOTICE
//RPT102R1 DD  SYSOUT=Q,
//             DEST=&LDEST.,
//             HOLD=&LHOLD.
//**                           ELEC MEDIA ERROR NOTICE
//RPT102R2 DD  SYSOUT=Q,
//             DEST=&LDEST.,
//             HOLD=&LHOLD.
//**                           UNUSUAL CONDITIONS ENCOUNTERED REPORT
//RPT907R1 DD  SYSOUT=Z,
//             DEST=&LDEST.,
//             HOLD=&LHOLD.
//**                           UNUSUAL CONDITIONS ENCOUNTERED REPORT
//RPT907R2 DD  DUMMY
//**RPT907R2 DD  SYSOUT=Z,      /* NOT NEEDED FOR THIS APP.
//**             DEST=&LDEST.,
//**             HOLD=&LHOLD.
//**                           CONTROL REPORT SUMMARY
//RPT980R1 DD  SYSOUT=Q,
//             DEST=&LDEST.,
//             HOLD=&LHOLD.
//**                                                                    02560019
//DOESLBLP EXEC PGM=DOESLABL,        /* PRINT DOES LABELS               02562099
//             COND=(0,LT),                                             02563099
//             REGION=4096K                                             02564099
//DOESVRI1 DD  DSN=&&LBL901,                                            02565099
//             DISP=(OLD,DELETE,DELETE)                                 02566099
//SYSOUT   DD  SYSOUT=*                                                 02567099
//SYSABOUT DD  SYSOUT=*                                                 02568099
//SYSABEND DD  SYSOUT=*                                                 02569099
//CAIMRPTS DD  SYSOUT=*                                                 02569199
//DOESLBL1 DD  SYSOUT=(C),FCB=P104,                                     02569299
//             DEST=U@PRT155,                                           02569599
//             HOLD=&LHOLD.                                             02569699
//**                                                                    02590099
//**