The Tape Volume Accounting Interface › Sample Reports › JR70TVA2 Report Sample › JR70TVA2 Control Statements

JR70TVA2 Control Statements

PARAMETER XREF
INPUT JR70CBF
DEFINE RENTDAYS(6)(P) = 0
DEFINE CRTDT(4)(P) = 0
DEFINE SCRTDT(4)(P) = 0
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 CRTDT EQ T.CREATE/DATE
COMPUTE SCRTDT EQ T.SCRATCH/DATE
COMPUTE RENTDAYS = (VOL/RENT/TIME / 86400)
SORT OACCT, T.VOLUME/SERIAL
BREAK OACCT
HEADING1C TAPE VOLUME USAGE BY ACCOUNT
LIST OACCT 'ACCOUNT/NUMBER',
     T.VOLUME/SERIAL,
     CRTDT(NV) 'CREATION/DATE',
     SCRTDT(NV) 'EXPIRATION/DATE',
     RENTDAYS 'DAYS/OF VOLUME/USAGE'