83 lines
3.3 KiB
Plaintext
83 lines
3.3 KiB
Plaintext
//**
|
|
//* TPS REPORT EXPERIENCE RATING
|
|
//* (CS045 RECORDS IN RPT723 FROM DTSRQ517)
|
|
//**
|
|
//DTSTP723 PROC
|
|
//** CREATE THE TPS CONTROL RECORD
|
|
//STEP0100 EXEC PGM=DTSBER45
|
|
//SYSOUT DD SYSOUT=*
|
|
//CEEDUMP DD SYSOUT=*
|
|
//SYSABEND DD SYSOUT=*
|
|
//CAIMRPTS DD SYSOUT=*
|
|
//PARMIN DD DUMMY
|
|
//FILEIN DD DSN=&TPSFILE1.,
|
|
// DISP=(OLD,KEEP,KEEP)
|
|
//** LRECL=176 IS CORRECT
|
|
//** (15 POS. ADDED FOR PROCESSING)
|
|
//FILEOT DD DSN=&&EXPRATE,DISP=(NEW,PASS,DELETE),
|
|
// UNIT=SYSDA,DCB=(LRECL=176,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(DTSRR45A),
|
|
// DISP=SHR
|
|
//** POPULATE THE VSAM FILE
|
|
//STEP0300 EXEC PGM=IDCAMS, 00000030
|
|
// COND=(0,LT) 00000030
|
|
//SYSPRINT DD SYSOUT=* 00000040
|
|
//INDD01 DD DSN=&&EXPRATE,
|
|
// DISP=(OLD,DELETE,DELETE)
|
|
//OUTDD01 DD DSN=DOESTAX.&LVLNODE..VSAM.CS045,
|
|
// DISP=SHR
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE), 00000070
|
|
// DISP=SHR 00000070
|
|
//**
|
|
//** SELECT RANDOM SAMPLE RELATIVE RECORD NUMBERS 10
|
|
//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=SAMPS045,
|
|
// 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.CS045,DISP=SHR
|
|
//HITFILE DD SYSOUT=*
|
|
//SLCTREC DD DSN=&&SELNMBR,DISP=(OLD,DELETE,DELETE)
|
|
//*RINTER DD SYSOUT=Q,
|
|
//* DEST=&LDEST.
|
|
//PRINTER DD DSN=&PRINTER1.,
|
|
// DISP=(NEW,CATLG,DELETE),
|
|
// UNIT=SYSDA,
|
|
// DCB=(RECFM=FB,LRECL=133,BLKSIZE=133),
|
|
// SPACE=(TRK,(1,1),RLSE)
|
|
//CHECK DD SYSOUT=Q,
|
|
// DEST=&LDEST.
|
|
//**
|
|
//** 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(DTSRR45B), 00000070
|
|
// DISP=SHR 00000070
|
|
//**
|