The Tape Volume Accounting Interface › Sample Reports › JR70TVA1: Debit Record Creation › JR70TVA1 Control Statements

JR70TVA1 Control Statements

PARAMETER XREF
CALL WIZSETT
INPUT JR70CBF
DEFINE OFILL1(1)(C) = ' '
DEFINE ODEBIT(8)(C) = 'DEBIT   '
DEFINE OCPUID(1)(C) = ' '
DEFINE OUSERID(8)(C) = ' '
DEFINE ODATE(6)(C) = 'yymmdd'
DEFINE OJOB(8)(C) = 'TVA-PROC'
DEFINE OTIME(6)(C) = 'hhmmss'
DEFINE OPROGRAMMER(20)(C) = ' '
DEFINE ODEBITAMT(6)(P)(.2) = 0
DEFINE ORENTDAYS(6)(P) = 0
DEFINE USEDAYS(6)(P) = 0
COMPUTE MOVE TODAY TO ODATE(6)(YYMMDD)
COMPUTE WKTIM(6)(P) = TOD
COMPUTE WKHRS(6)(N)(.4) = WKTIM / 3600
COMPUTE WKHR2(2)(C) = WKHRS
COMPUTE WKMIN(6)(N)(.4) = (WKTIM / 60) - (WKHR2 * 60)
COMPUTE WKMI2(2)(C) = WKMIN
COMPUTE WKSEC(2)(N) = WKTIM - ((WKHR2 * 3600) + (WKMI2 * 60))
COMPUTE OTIME(1,2) = WKHRS
COMPUTE OTIME(3,2) = WKMIN
COMPUTE OTIME(5,2) = WKSEC
SELECT REC/TYPE EQ 'T' AND SUB/REC/TYPE EQ 'M'
COMPUTE(P) IF T.ACCOUNT/NUMBER EQ BLANK THEN
              OACCT(C)(16) EQ 'MISC. ACCOUNT   ' ELSE
              OACCT EQ T.ACCOUNT/NUMBER
COMPUTE RENTDAYS = (RENTDAYS + VOL/RENT/TIME)
COMPUTE USEDAYS = (RENTDAYS / 86400)
COMPUTE ODEBITAMT = (USEDAYS * 0.1250)
SORT OACCT, T.VOLUME/SERIAL
BREAK OACCT
HEADING1C TOTAL TAPE SYSTEM CHARGES BY ACCOUNT
LIST (SUM) OACCT 'ACCOUNT NUMBER', ODEBITAMT($) 'TOTAL CHARGE',
     COUNT 'TVA BILLING/RECORDS', USEDAYS 'DAYS OF USAGE'
OUTPUT (SUM) FILE,RECFM=FB,R=80,B=800,
   ITEM = OFILL1,ODEBIT,OCPUID,OUSERID,OACCT,ODATE,OJOB,OTIME,
   OPROGRAMMER,ODEBITAMT