91 lines
3.7 KiB
Plaintext
91 lines
3.7 KiB
Plaintext
//**
|
|
//* TPS REPORT DEBITS/BILLINGS (RATED & S-I)
|
|
//* (CS042 RECORDS IN RPT720 (RATED/CONTRIB) FROM DTSRQ720)
|
|
//* (CS042 RECORDS IN RPT721 ( S-I /REIMBRS) FROM DTSRQ720)
|
|
//**
|
|
//DTSTP720 PROC
|
|
//** CREATE THE TPS CONTROL RECORD
|
|
//STEP0100 EXEC PGM=DTSBER42
|
|
//SYSOUT DD SYSOUT=*
|
|
//CEEDUMP DD SYSOUT=*
|
|
//SYSABEND DD SYSOUT=*
|
|
//CAIMRPTS DD SYSOUT=*
|
|
//PARMIN DD DUMMY
|
|
//FILEINC DD DSN=&TPSFILE1.,
|
|
// DISP=(OLD,PASS,KEEP)
|
|
//FILEINR DD DSN=&TPSFILE2.,
|
|
// DISP=(OLD,PASS,KEEP)
|
|
//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=(2,LT)
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRR42A),
|
|
// DISP=SHR
|
|
//** POPULATE THE VSAM FILE (CONTRIB)
|
|
//STEP0310 EXEC PGM=IDCAMS, 00000030
|
|
// COND=(1,NE,STEP0100) 00000030
|
|
//SYSPRINT DD SYSOUT=* 00000040
|
|
//INDD01 DD DSN=&TPSFILE1.,
|
|
// DISP=(OLD,KEEP,KEEP)
|
|
//OUTDD01 DD DSN=DOESTAX.&LVLNODE..VSAM.CS042,
|
|
// DISP=SHR
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE), 00000070
|
|
// DISP=SHR 00000070
|
|
//** POPULATE THE VSAM FILE (REIMBRS)
|
|
//STEP0320 EXEC PGM=IDCAMS, 00000030
|
|
// COND=(2,NE,STEP0100) 00000030
|
|
//SYSPRINT DD SYSOUT=* 00000040
|
|
//INDD01 DD DSN=&TPSFILE2.,
|
|
// DISP=(OLD,KEEP,KEEP)
|
|
//OUTDD01 DD DSN=DOESTAX.&LVLNODE..VSAM.CS042,
|
|
// 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=(2,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=*
|
|
//** DEST=&LDEST.
|
|
//**
|
|
//** SELECT THE SAMPLE FROM THE TRANSACTION RECORDS
|
|
//STEP0500 EXEC PGM=SAMPS042,
|
|
// COND=(2,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.CS042,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=*
|
|
//* DEST=&LDEST.
|
|
//**
|
|
//** DELETE THE VSAM WORK FILE
|
|
//STEP0600 EXEC PGM=IDCAMS, 00000030
|
|
// COND=(2,LT) 00000030
|
|
//SYSPRINT DD SYSOUT=* 00000040
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRR42B), 00000070
|
|
// DISP=SHR 00000070
|
|
//**
|