//**
//*  TPS REPORT QUARTERLY CHARGING
//*                       (CS044 RECORDS IN CHGTPS FROM DTSCHRGQ)
//**
//DTSTPCHG PROC
//STEP0050 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INDD09   DD DSN=DOESTAX.PROD.CHG.TPS.&QTRLY.,DISP=SHR      /RATED
//         DD DSN=DOESTAX.PROD.CHGSI.TPS.&QTRLY.,DISP=SHR    /SI
//OUTDD01  DD  DSN=DOESTAX.PROD.TPSCHG,DISP=(NEW,PASS,DELETE),
//             UNIT=SYSDA,DCB=(LRECL=118,RECFM=FB),
//             SPACE=(CYL,(20,10),RLSE)
//SYSIN    DD  DSN=DOESTAX.PROD.APPL.PARMLIB(DTSTPCHG),DISP=SHR
//**                                   CREATE THE TPS CONTROL RECORD
//STEP0100 EXEC  PGM=DTSBER44
//SYSOUT   DD  SYSOUT=*
//CEEDUMP  DD  SYSOUT=*
//SYSABEND DD  SYSOUT=*
//CAIMRPTS DD  SYSOUT=*
//PARMIN   DD  DUMMY
//FILEIN   DD  DSN=&TPSFILE1,
//             DISP=(OLD,PASS,DELETE)
//FILEOT   DD  DSN=&&BENCHG,DISP=(NEW,PASS,DELETE),
//             UNIT=SYSDA,DCB=(LRECL=118,RECFM=FB),
//             SPACE=(CYL,(20,10),RLSE)
//CNTRFILE DD  DSN=&&CNTL,DISP=(NEW,PASS,DELETE),
//             UNIT=SYSDA,SPACE=(TRK,(1,1)),
//             DCB=(RECFM=FB,LRECL=33,BLKSIZE=33)
//**
//**                                   DEFINE THE VSAM WORK FILE
//STEP0200 EXEC PGM=IDCAMS,
//            COND=(0,LT)
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRR44A),
//            DISP=SHR
//**                                   POPULATE THE VSAM FILE
//STEP0300 EXEC PGM=IDCAMS,                                             00000030
//            COND=(0,LT)                                               00000030
//SYSPRINT DD  SYSOUT=*                                                 00000040
//INDD01   DD  DSN=&&BENCHG,
//            DISP=(OLD,DELETE,DELETE)
//OUTDD01  DD  DSN=DOESTAX.&LVLNODE..VSAM.CS044,
//            DISP=SHR
//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),             00000070
//            DISP=SHR                                                  00000070
//**
//**                     SELECT RANDOM SAMPLE RELATIVE RECORD NUMBERS
//STEP0400 EXEC PGM=PICKNMBR,
//            COND=(0,LT)
//SYSOUT   DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//CAIMRPTS DD  SYSOUT=*
//CNTRLDTA DD  DSN=&&CNTL,DISP=(OLD,PASS,DELETE)
//SELNMBR  DD  DSN=&&SELNMBR,DISP=(NEW,PASS,DELETE),
//             UNIT=SYSDA,
//             DCB=(RECFM=FB,LRECL=8,BLKSIZE=400),
//             SPACE=(TRK,(20,5),RLSE)
//PICKLST  DD  SYSOUT=Q,
//             DEST=&LDEST.
//**
//**                   SELECT THE SAMPLE FROM THE TRANSACTION RECORDS
//STEP0500 EXEC PGM=SAMPS044,
//            COND=(0,LT)
//SYSOUT   DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//CAIMRPTS DD  SYSOUT=*
//MSGOUT   DD  SYSOUT=*
//CNTRLDTA DD  DSN=&&CNTL,DISP=(OLD,DELETE,DELETE)
//DISKUNIT DD  DSN=DOESTAX.&LVLNODE..VSAM.CS044,DISP=SHR
//HITFILE  DD  SYSOUT=*
//SLCTREC  DD  DSN=&&SELNMBR,DISP=(OLD,DELETE,DELETE)
//*RINTER  DD  SYSOUT=Q,
//*            DEST=&LDEST.
//PRINTER  DD  DSN=&PRINTER1.,
//**           DISP=OLD,
//             DISP=(NEW,CATLG,DELETE),
//             UNIT=SYSDA,
//             DCB=(RECFM=FB,LRECL=133,BLKSIZE=133),
//             SPACE=(TRK,(1,1),RLSE)
//*
//*
//*HECK    DD  SYSOUT=Q,
//*            DEST=&LDEST.
//CHECK    DD  DSN=&CHECK1.,
//             DISP=(NEW,CATLG,DELETE),
//             UNIT=SYSDA,
//             DCB=(RECFM=FB,LRECL=133,BLKSIZE=133),
//             SPACE=(TRK,(1,1),RLSE)
//*
//**
//**                                     DELETE THE VSAM WORK FILE
//STEP0600 EXEC PGM=IDCAMS,                                             00000030
//            COND=(0,LT)                                               00000030
//SYSPRINT DD  SYSOUT=*                                                 00000040
//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRR44B),            00000070
//            DISP=SHR                                                  00000070
//**