Examples › DASD BILLING Examples › PARMLIB(DSBCATEG) Contents › PARMLIB(DSBRATEC) Contents

PARMLIB(DSBRATEC) Contents

01008500
02010000

Second, accumulate the non-VSAM billing records for data sets on these volumes.

//jobname JOB (acct,info),etc.
//         EXEC BILLING
//SELECT.SYSIN  DD  *
SELECT VOLUME=(LABS81,WORK/)
//ACCUM.FILES   DD  DSN=SAMS.DISK.BILLING.FILES,DISP=SHR
//ACCUM.SYSIN   DD  *
ACCUMULATE BMONTH,MODE=IMMEDIATE,BYPASSNEW

Third, accumulate the VSAM billing records for clusters defined on these volumes.

//           EXEC VSAMBILL
//DMS.SYSIN   DD  *
SCAN CAT=/
EXCLUDE CRITERIA=(DSORG,NE,VSAM)
SELECT VOLUME=(LABS81,WORK/)
BILLING
//ACCUM.FILES DD DSN=SAMS.DISK.BILLING.FILES,DISP=SHR
//ACCUM.SYSIN DD *
ACCUMULATE BMONTH,MODE=IMMEDIATE,BYPASSNEW

After the billing period has passed (and several of the previous accumulation jobs have been run), the billing totals are extended, printed, and cleared with the following JCL. This JCL should be executed on the last day of the billing cycle (if the cycle is monthly, it would be run on the 30th or the 31st day of the month, depending what day the month ends).

//jobname JOB (acct,info),etc.
//         EXEC EXTEND
//EXTEND.FILES  DD  DSN=SAMS.DISK.BILLING.FILES,DISP=SHR
//SYSIN     DD  *
EXTEND VOLUME=(LABS81,WORK/)