//**                                                                    00010015
//*  TPS STATUS DETERMINATION (CS011 RECORDS IN RPT715 FROM DTSRQ715)   00020015
//**                                                                    00030015
//DTSTP716 PROC                                                         00040015
//**                                   CREATE THE TPS CONTROL RECORD    00050015
//STEP0100 EXEC PGM=DTSBER11                                            00060015
//SYSOUT   DD SYSOUT=*                                                  00070015
//CEEDUMP  DD SYSOUT=*                                                  00080015
//SYSABEND DD SYSOUT=*                                                  00090015
//CAIMRPTS DD SYSOUT=*                                                  00100015
//PARMIN   DD DUMMY                                                     00110015
//FILEIN   DD DSN=&TPSFILE1.,                                           00120015
//           DISP=(OLD,PASS,KEEP)                                       00130015
//FILEOT   DD DSN=&&TEMPUNIV,DISP=(NEW,PASS,DELETE),                    00140015
//           UNIT=SYSDA,SPACE=(CYL,(5,2),RLSE),                         00150015
//           DCB=(RECFM=FB,LRECL=68)                                    00160015
//CNTRFILE DD DSN=&&CNTL,DISP=(NEW,PASS,DELETE),                        00170015
//           UNIT=SYSDA,SPACE=(TRK,(1,1)),                              00180015
//           DCB=(RECFM=FB,LRECL=33,BLKSIZE=33)                         00190015
//**                                                                    00200015
//**                                   DEFINE THE VSAM WORK FILE        00210015
//STEP0200 EXEC PGM=IDCAMS,                                             00220015
//           COND=(0,LT)                                                00230015
//SYSPRINT DD SYSOUT=*                                                  00240015
//SYSIN    DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRR11A),             00250015
//           DISP=SHR                                                   00260015
//**                                   POPULATE THE VSAM FILE           00270015
//STEP0300 EXEC PGM=IDCAMS,                                             00280015
//           COND=(0,LT)                                                00290015
//SYSPRINT DD SYSOUT=*                                                  00300015
//INDD01   DD DSN=&&TEMPUNIV,                                           00310015
//           DISP=(OLD,DELETE,DELETE)                                   00320015
//OUTDD01  DD DSN=DOESTAX.&LVLNODE..VSAM.CS011,                         00330015
//           DISP=SHR                                                   00340015
//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),             00350015
//           DISP=SHR                                                   00360015
//**                                                                    00370015
//**                     SELECT RANDOM SAMPLE RELATIVE RECORD NUMBERS   00380015
//STEP0400 EXEC PGM=PICKNMBR,                                           00390015
//            COND=(0,LT)                                               00400015
//SYSOUT   DD SYSOUT=*                                                  00410015
//SYSPRINT DD SYSOUT=*                                                  00420015
//CAIMRPTS DD SYSOUT=*                                                  00430015
//CNTRLDTA DD DSN=&&CNTL,DISP=(OLD,PASS,DELETE)                         00440015
//SELNMBR  DD DSN=&&SELNMBR,DISP=(NEW,PASS,DELETE),                     00450015
//           UNIT=SYSDA,                                                00460015
//           DCB=(RECFM=FB,LRECL=8,BLKSIZE=400),                        00470015
//           SPACE=(TRK,(20,5),RLSE)                                    00480015
//*ICKLST  DD SYSOUT=Q,                                                 00490018
//*          DEST=&LDEST.                                               00500018
//PICKLST  DD  DSN=&PICKLST.,                                           00501018
//             DISP=(NEW,CATLG,DELETE),                                 00502018
//             UNIT=SYSDA,                                              00503018
//             DCB=(RECFM=FB,LRECL=133,BLKSIZE=133),                    00504018
//             SPACE=(CYL,(1,1),RLSE)                                   00505019
//**                                                                    00510015
//**                   SELECT THE SAMPLE FROM THE TRANSACTION RECORDS   00520015
//STEP0500 EXEC PGM=SAMPS011,                                           00530015
//           COND=(0,LT)                                                00540015
//SYSOUT   DD  SYSOUT=*                                                 00550015
//SYSPRINT DD  SYSOUT=*                                                 00560015
//CAIMRPTS DD  SYSOUT=*                                                 00570015
//MSGOUT   DD  SYSOUT=*                                                 00580015
//CNTRLDTA DD  DSN=&&CNTL,DISP=(OLD,DELETE,DELETE)                      00590015
//DISKUNIT DD  DSN=DOESTAX.&LVLNODE..VSAM.CS011,DISP=SHR                00600015
//HITFILE  DD  SYSOUT=*                                                 00610015
//SLCTREC  DD  DSN=&&SELNMBR,DISP=(OLD,DELETE,DELETE)                   00620015
//*RINTER  DD  SYSOUT=Q,                                                00630015
//*            DEST=&LDEST.                                             00640015
//PRINTER  DD  DSN=&PRINTER1.,                                          00650015
//             DISP=(NEW,CATLG,DELETE),                                 00660015
//             UNIT=SYSDA,                                              00670015
//             DCB=(RECFM=FB,LRECL=133,BLKSIZE=133),                    00680017
//             SPACE=(TRK,(1,1),RLSE)                                   00690015
//CHECK    DD  SYSOUT=Q,                                                00700015
//             DEST=&LDEST.                                             00710015
//**                                                                    00720015
//**                                     DELETE THE VSAM WORK FILE      00730015
//STEP0600 EXEC PGM=IDCAMS,                                             00740015
//           COND=(0,LT)                                                00750015
//SYSPRINT DD  SYSOUT=*                                                 00760015
//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRR11B),DISP=SHR    00770015
//**                                                                    00780015