98 lines
3.7 KiB
Plaintext
98 lines
3.7 KiB
Plaintext
//**
|
|
//* 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
|
|
//**
|