84 lines
6.6 KiB
Plaintext
84 lines
6.6 KiB
Plaintext
//** 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
|