The DB2 Interface › JARSDB21: Debit Record Creation › JARSDB21 Control Statements

JARSDB21 Control Statements

PARAMETER XREF NOPC
INPUT CAWGJRD2
*
DEFINE OFILL1(1)(C) = ' '
DEFINE ODEBIT(8)(C) = 'DEBIT   '
DEFINE OCPUID(1)(C) = ' '
DEFINE OUSERID(8)(C) = ' '
DEFINE ODATE(6)(C) = ' '
DEFINE OJOB(8)(C) = 'DB2-PROC'
DEFINE OTIME(6)(C) = ' '
DEFINE OPROGRAMMER(20)(C) = ' '
DEFINE ODEBITAMT(6)(P)(.2) = 0
*
DEFINE IOREQT(6)(P) = 0
*
INPUT FILE KEY = 2CC1-8 MATCH = USER/ID TABLE=2CC10-25 LIST
COMPUTE(P) IF MATCHED THEN OACCT(C)(16) EQ 2CC10-25 ELSE
                           OACCT EQ USER/ID
*
COMPUTE OUSERID EQ USER/ID
COMPUTE IOREQT = (READ/SYNC/BP0 + READ/PREF/BP0 +
                  READ/SYNC/BP1 + READ/PREF/BP1 +
                  READ/SYNC/BP2 + READ/PREF/BP2 +
                  READ/SYNC/BP32 + READ/PREF/BP32)
*
COMPUTE ODEBITAMT = (CPU/TIME * .19283) + (IOREQT * .0123)
ODEBITC (6)(C)(.2) = ODEBITAMT
*
SORT OACCT
BREAK OACCT
HEADING1C TOTAL DB2 CHARGES BY ACCOUNT
LIST(SUM) OACCT(DL) 'ACCOUNT',
          ODEBITAMT($) 'TOTAL CHARGE',
          CPU/TIME 'CPU TIME',
          IOREQT 'READ/REQUEST',
          COUNT 'DB2 ACCOUNT/RECORDS'
*
OUTPUT(SUM) FILE,RECFM = FB,R = 80,B = 800,
   ITEM = OFILL1,
   ODEBIT,
   OCPUID,
   OUSERID,
   OACCT,
   ODATE,
   OJOB,
   OTIME,
   OPROGRAMMER,
   ODEBITC