|
|
|
JSINET1 Report - charges by account number.:
CA PROGRAM LISTING CA JARS Wizard 9710JW230 TOTAL NETWORK CHARGES BY ACCOUNT 28 OCT 1998 PAGE 1 CHARACTERS MESSAGES TERMINAL APPLICATION ACCOUNT TOTAL CHARGE TRANSMITTED TRANSMITTED ID ID ---------------- -------------- -------------- -------------- -------- ----------- ACCOUNTING $39,707.04 721,759.00 82.00 DEVELOPMENT $177,008.20 3,215,321.00 1,319.00 SALES $12,076.13 219,429.00 60.00 . . . . . . . . . . . . . . . . . . TOTAL NETWORK CHARGES BY ACCOUNT 28 OCT 1998 PAGE 13 CHARACTERS MESSAGES TERMINAL APPLICATION ACCOUNT TOTAL CHARGE TRANSMITTED TRANSMITTED ID ID ---------------- -------------- -------------- -------------- -------- ----------- GRAND TOTAL $11,375,991.62 206,699,314.00 59,992.00 CA EXECUTION STATISTICS CA JARS Wizard 9710JW230 CAJW200I 1067 SORTED INPUT 9:20:55 START CAJW202I 557 OUTPUT RECORDS 9:20:59 END CAJW205I 1067 PRE-SORT RECORDS :04 DURATION CAJW206I 1067 SELECTED RECORDS CAJW211I 21 MATCHED RECORDS CAJW212I 4268 COMPUTATIONS CAJW213I 16 FILE 2 RCDS READ CAJW214I 21 FILE 2 MATCHED CAJW215I 1046 FILE 2 MISSING CAJW216I 557 LEVEL 1 BREAKS CAJW217I 98 SORT RCD LENGTH CAJW219I 88960 ADDTL CORE USED FORMAT OF NEW RECORD POSITION BYTES FORMAT DESCR 001 1 1 CHAR OFILL1 002 2- 9 8 CHAR ODEBIT 003 10 1 CHAR OCPUID 004 11- 18 8 CHAR OTERMINALID 005 19- 34 16 CHAR OACCT 006 35- 40 6 CHAR ODATE 007 41- 48 8 CHAR OJOB 008 49- 54 6 CHAR OTIME 009 55- 74 20 CHAR OPROGRAMMER 010 75- 80 6 PACKED .2 ODEBITAMT
JSINET1 Control Statements:
PARAMETER XREF NOPC
*
DEFINE OFILL1(1)(C) = ' '
DEFINE ODEBIT(8)(C) = 'DEBIT '
DEFINE OCPUID(1)(C) = ' '
DEFINE OTERMINALID(8)(C) = ' '
DEFINE ODATE(6)(C) = ' '
DEFINE OJOB(8)(C) = 'NETWORK '
DEFINE OTIME(6)(C) = ' '
DEFINE OPROGRAMMER(20)(C) = ' '
DEFINE ODEBITAMT(6)(P)(.2) = 0
*
DEFINE NETMESSAGES(6)(P)(.2) = 0
DEFINE NETCHARACTERS(6)(P)(.2) = 0
*
INPUT JR70CBF
SELECT REC/TYPE EQ '8'
*
INPUT FILE KEY = 2CC1-8 MATCH = TERMINAL/ID TABLE=2CC10-25 LIST
COMPUTE(P) IF MATCHED THEN OACCT(C)(16) EQ 2CC10-25 ELSE
OACCT(C)(16) EQ TERMINAL/ID
*
COMPUTE NETMESSAGES = 8.MESS/TRANS/IN + 8.MESS/TRANS/OUT
COMPUTE NETCHARACTERS = 8.CHAR/TRANS/IN + 8.CHAR/TRANS/OUT
*
COMPUTE ODEBITAMT = (NETMESSAGES * .1255) + (NETCHARACTERS * .055)
COMPUTE ODEBITC(6)(N)(.2)=ODEBITAMT
*
SORT OACCT
BREAK OACCT
HEADING1C TOTAL NETWORK CHARGES BY ACCOUNT
LIST(SUM) OACCT(DL) 'ACCOUNT',
ODEBITAMT($) 'TOTAL CHARGE',
NETCHARACTERS 'CHARACTERS/TRANSMITTED',
NETMESSAGES 'MESSAGES/TRANSMITTED',
TERMINAL/ID,A.APPLICATION/ID
*
OUTPUT FILE,RECFM = FB,R = 80,B = 800,
ITEM = OFILL1,
ODEBIT,
OCPUID,
OTERMINALID,
OACCT,
ODATE,
OJOB,
OTIME,
OPROGRAMMER,
ODEBITC
| Copyright © 2012 CA. All rights reserved. |
|