//****                                                                  00010025
//*    ERROR REPORTING FOR DAILY CHARGE PROCESS                         00020064
//****                                                                  00030025
//DTSCGRD1 PROC                                                         00040075
//*                     DEFNS NEEDED FOR THIS PROC:                     00050071
//*   LVLNODE=HTST/PROD  (EMPLOYER MASTER FILE - READ ONLY)             00060071
//*   LDEST=LOCAL        (OR SOME PARTICULAR QUE DESTINATION)           00100071
//*   LHOLD=NO/YES                                                      00110036
//****                                   /* SORT 901/907 RPT RECORDS    00130071
//STEP0150 EXEC PGM=SORT,PARM='VLTEST=0',                               00140046
//             COND=(0,LT),                                             00150046
//             REGION=0M                                                00160046
//SYSOUT   DD  SYSOUT=*                                                 00170046
//SORTIN   DD  DSN=DOESTAX.&LVLNODE..CHG.BD100X.TEMPRPT.DAILY,          00181082
//*            DISP=(OLD,DELETE,DELETE)                                 00190083
//             DISP=SHR                                                 00191083
//SORTOUT  DD  DSN=&&SRTRPT,                                            00200046
//             DISP=(,PASS,DELETE),                                     00210046
//             UNIT=SYSDA,                                              00220046
//             SPACE=(8192,(1000,1000),RLSE),                           00230082
//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)                   00240046
//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSRREC),DISP=SHR    00250047
//SORTWK01 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)                      00260046
//SORTWK02 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)                      00270046
//SORTWK03 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)                      00280046
//SORTWK04 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)                      00290046
//*                                                                     00300057
//****                      /*  GEN A DUMMY RECORD FOR THE LABELS FILE  00310057
//DOESLBL1 EXEC PGM=IEBDG,                                              00320069
//             COND=(0,LT)                                              00321069
//SYSPRINT DD SYSOUT=*                                                  00330057
//LBLOUT  DD DSN=&&TMP901,DISP=(NEW,PASS,DELETE),                       00340057
//           UNIT=SYSDA,                                                00350057
//           SPACE=(TRK,1),                                             00360057
//           DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)                     00370057
//SYSIN  DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSLBL01),               00380057
//          DISP=SHR                                                    00390057
//****                      /* POPULATE THE LABELS WORK FILE            00400057
//DOESLBL2 EXEC PGM=IDCAMS,                                             00410069
//             COND=(0,LT)                                              00411069
//SYSPRINT DD SYSOUT=*                                                  00420057
//FILEIN   DD DSN=&&TMP901,                                             00430057
//            DISP=(OLD,DELETE,DELETE),                                 00440057
//            UNIT=SYSDA                                                00450057
//DOESVRO1 DD  DSN=&&LBL901,                                            00460057
//             DISP=(NEW,PASS,DELETE),                                  00470057
//             UNIT=SYSDA,                                              00480057
//             SPACE=(8192,(1000,1000),RLSE),                           00490057
//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)                   00500057
//SYSIN  DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSLBL02),               00510057
//          DISP=SHR                                                    00520057
//****                                                                  00530057
//STEP0200 EXEC PGM=CHGBD800,        /* PRINT 901/907 OUTPUT            00540073
//             COND=(0,LT)                                              00550020
//SYSOUT   DD  SYSOUT=*                                                 00560020
//SYSABOUT DD  SYSOUT=*                                                 00570020
//SYSUDUMP DD  SYSOUT=*                                                 00580020
//**                                                                    00590020
//DTSFVRI1 DD  DSN=&&SRTRPT,                                            00600046
//             DISP=(OLD,DELETE,DELETE)                                 00610046
//**                                                                    00620020
//DOESVRO1 DD  DSN=&&LBL901,DISP=(OLD,PASS,DELETE)                      00630057
//**                                                                    00640057
//DTSFREF  DD  DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR,                 00650071
//             AMP=('BUFNI=5,BUFND=10')                                 00660020
//**                                                                    00670020
//PARMIN   DD  DUMMY                                                    00680020
//**                                                                    00690020
//ATLSTIN  DD  DUMMY                                                    00700020
//**                           NO LONGER PRODUCED THIS WAY (05.17.01)   00710057
//**                           EXTRACT & PRINT LABELS (5-LINE)          00720057
//**RPT901R1 DD  SYSOUT=(C,,6662),FCB=P663,                             00730057
//**             DEST=&LDEST.,                                          00740057
//**             HOLD=&LHOLD.                                           00750057
//**                           UNUSUAL CONDITIONS ENCOUNTERED REPORT    00760041
//RPT907R1 DD  SYSOUT=Z,                                                00770041
//             DEST=&LDEST.,                                            00780041
//             HOLD=&LHOLD.                                             00790041
//**                           UNUSUAL CONDITIONS ENCOUNTERED REPORT    00800041
//RPT907R2 DD  SYSOUT=Z,                                                00810041
//             DEST=&LDEST.,                                            00820041
//             HOLD=&LHOLD.                                             00830041
//**                           CONTROL REPORT SUMMARY                   00840045
//RPT980R1 DD  SYSOUT=Q,COPIES=2,                                       00850045
//             HOLD=&LHOLD.,                                            00860045
//             DEST=&LDEST.                                             00870045
//**                                                                    00880056
//DOESLBLP EXEC PGM=DOESLABL,        /* PRINT DOES LABELS               00890057
//             COND=(0,LT),                                             00900057
//             REGION=4096K                                             00910057
//DOESVRI1 DD  DSN=&&LBL901,                                            00920057
//             DISP=(OLD,DELETE,DELETE)                                 00930057
//SYSOUT   DD  SYSOUT=*                                                 00940057
//SYSABOUT DD  SYSOUT=*                                                 00950057
//SYSABEND DD  SYSOUT=*                                                 00960057
//CAIMRPTS DD  SYSOUT=*                                                 00970057
//DOESLBL1 DD  SYSOUT=(C),                                              00980057
//             FCB=P104,                                                00990057
//             DEST=U@PRT155,                                           01000057
//             HOLD=&LHOLD.                                             01010057
//**                                                                    01020057