Google
 

Trailing-Edge - PDP-10 Archives - tops20_version7_0_tools_tape_clock_tape - tools/usag20/usag20.cbl
There are 17 other files named usag20.cbl in the archive. Click here to see a list.
IDENTIFICATION DIVISION.

PROGRAM-ID. USAG20.	V3(4).
AUTHOR. BAHUIZENGA
DATE-WRITTEN. JULY, 1977.
REMARKS.

	EDIT HISTORY:

	EDIT 4 - 1-DEC-77/BAH ROUNDING WAS NOT BEING DONE WHEN NEEDED.
		TCO #1886

	EDIT 3 - 7-NOV-77/BAH DISK USAGE REPORT WAS NOT COMPLETE DUE TO
		AN EDITING ERROR. TCO #1884

	EDIT 2 - 31-OCT-77 /BAH DISK USAGE REPORT IS CONFUSING. ADD ANOTHER
		COLUMN GIVING THE AVERAGE NUMBER OF FILES ACCOUNTED FOR.
		AVERAGE NO. OF FILES = SUM OF FILES / NO. OF RECORDS READ
		TCO #1882

	COPYRIGHT (C) 1978, 1979 BY
	DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.


	THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
	ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH LICENSE AND WITH THE
	INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR ANY  OTHER
	COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
	OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF THE  SOFTWARE  IS  HEREBY
	TRANSFERRED.


	THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT  NOTICE
	AND  SHOULD  NOT  BE  CONSTRUED  AS A COMMITMENT BY DIGITAL EQUIPMENT
	CORPORATION.

	DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY  OF  ITS
	SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.



	INPUT:	USAGE.OUT (DEFAULT)
	OUTPUT:	USAGE.RPT (DEFAULT)
	ASSEMBLY:  USES LIBRARY FILE USAG20.LIB.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
	'NAME' IS NAME-DETAIL;
	'ACCOUNT' IS ACCOUNT-DETAIL
	'DNAME' IS DISK-NAME-DETAIL
	'DACCOUNT' IS DISK-ACCOUNT-DETAIL.

INPUT-OUTPUT SECTION.
FILE-CONTROL.
	SELECT IN-FILE
		ASSIGN  TO DSK
		RECORDING MODE IS ASCII.
	SELECT OUT-FILE
		ASSIGN TO DSK
		RECORDING MODE IS ASCII.
	SELECT SORT-USAGE
		ASSIGN TO DSK, DSK, DSK.
	SELECT CHARGE-FILE
		ASSIGN TO DSK
		RECORDING MODE IS ASCII.
DATA DIVISION.
FILE SECTION.

FD IN-FILE VALUE OF ID IS IN-FILE-NAME-EXT
	DATA RECORDS ARE IN-RECORD, ENTRY-HEADER-RECORD, TOPS20-USER-ID-RECORD,
		RESTART-RECORD, SESSION-RECORD-1, DATE-TIME-CHANGE-RECORD,
		USAGE-FILE-HEADER-RECORD, INPUT-SPOOLER-RECORD, OUTPUT-SPOOLER-RECORD,
		DISK-DIRECTORY-RECORD, DISK-ACCOUNT-RECORD.
01 IN-RECORD COPY USAG20.

FD OUT-FILE VALUE OF ID IS OUT-FILE-NAME-EXT
	REPORTS ARE NAMES, ACCOUNTS, DNAMES, DACCOUNTS.
01 OUT-RECORD DISPLAY-7 PIC X(137).

FD CHARGE-FILE VALUE OF ID IS 'USAG20CHG'.
01 CHARGE-RECORD PIC X(80).

SD SORT-USAGE
	DATA RECORDS ARE SYSTEM-SORT-RECORD, DISK-SORT-RECORD.
01 SYSTEM-SORT-RECORD.
	02 NAME-SORT			PIC X(39).
	02 REMARK-SORT			PIC X(39).
	02 ACCOUNT-SORT			PIC X(39).
	02 CONNECT-SORT			PIC 9(6)V99.
	02 RUNTIME-SORT			PIC 9(7)V9.
	02 SPOOLER-INPUT-SORT		PIC 9(7).
	02 SPOOLER-OUTPUT-SORT		PIC 9(7).
	02 CHARGE-SORT			PIC 9(9)V99.

01 DISK-SORT-RECORD.
	02 DIRECTORY-SORT		PIC X(39).
	02 STRUCTURE-SORT		PIC X(39).
	02 FILLER			PIC X(39).
	02 DISK-PAGE-SORT		PIC 9(8).
	02 FILE-SORT			PIC 9(5).
	02 FILLER			PIC X(28).
WORKING-STORAGE SECTION.

01 LETTER-MONTH-RECORD USAGE IS DISPLAY-7
		VALUE 'JanFebMarAprMayJunJulAugSepOctNovDec'.
	02 LETTER-MONTH PIC X(3) OCCURS 12 TIMES.

01 IN-FILE-NAME-EXT.
	02 IN-FILE-NAME		PIC X(6).
	02 IN-FILE-EXT		PIC X(3).

01 OUT-FILE-NAME-EXT.
	02 OUT-FILE-NAME	PIC X(6).
	02 OUT-FILE-EXT		PIC X(3).

01 THIS-DATE.
	02 TD-YEAR		PIC 99.
	02 TD-MONTH		PIC 99.
	02 TD-DAY		PIC 99.
	02 TD-HOUR		PIC 99.
	02 TD-MIN		PIC 99.
	02 FILLER		PIC 99.
77 TD-MMM USAGE IS DISPLAY-7	PIC X(3).

01 WS-END-DATE-TIME.
	02 WS-END-YY1			PIC 99.
	02 WS-EDT.
		03 WS-END-YY			PIC 99.
		03 WS-END-MON			PIC 99.
		03 WS-END-DD			PIC 99.
		03 WS-END-HH			PIC 99.
		03 WS-END-MIN			PIC 99.
		03 FILLER			PIC XX.
77 WS-END-MMM USAGE IS DISPLAY-7		PIC X(3).

01 WS-START-DATE-TIME.
	02 WS-START-YY1			PIC XX.
	02 WS-SDT.
		03 WS-START-YY			PIC 99.
		03 WS-START-MON			PIC 99.
		03 WS-START-DD			PIC 99.
		03 WS-START-HH			PIC 99.
		03 WS-START-MIN			PIC 99.
		03 FILLER			PIC XX.
77 WS-START-MMM USAGE IS DISPLAY-7		PIC X(3).

01 DEFINED-ENTRIES			PIC 9(4).
	88 KNOWN-ENTRIES	VALUES ARE 0001 THRU 0004, 0007 THRU 0009.

01 WS-CHARGE-1.
	02 WS-C1-DOLLAR		PIC 999.
	02 WS-C1-CENTS		PIC 99.
01 X REDEFINES WS-CHARGE-1.
	02 WS-CHARGE		PIC 999V99.

77 WS-COMMAND		PIC X(15).
77 WS-REPORT		PIC X(8).
77 WS-SYSTEM-NAME		PIC X(39).
77 WS-SORT			PIC X.
77 WS-CHARGE-CODE		PIC X(6).
77 WS-DOLLAR			PIC XXX.
77 WS-CENTS			PIC XX.
77 WS-COMMENT			PIC X(66).

77 WS-AVGPAGE			PIC 9(7)V9.
77 WS-RECORDS-READ		PIC 9(3).
77 WS-PAGE-NUMBER		PIC 9(9).
77 WS-STRUCTURE			PIC X(39).
77 WS-DIRECTORY			PIC X(39).
77 WS-ACCOUNT			PIC X(39).

01 WS-ALL-CHARGES.
	02 WS-SESSION-CONNECT		PIC 9(3)V99.
	02 WS-SESSION-RUNTIME		PIC 9(3)V99.
	02 WS-CARDS			PIC 9(3)V99.
	02 WS-CARD-RUNTIME		PIC 9(3)V99.
	02 WS-PAGES			PIC 9(3)V99.
	02 WS-PAGE-RUNTIME		PIC 9(3)V99.
	02 WS-DISK-PAGES		PIC 9(3)V99.
REPORT SECTION.

RD NAMES
	CODE NAME-DETAIL
	CONTROLS ARE FINAL, NAME-SORT, ACCOUNT-SORT, REMARK-SORT
	PAGE LIMIT IS 120,
		LAST DETAIL 58.

01 TYPE PH; LINE 1, NEXT GROUP PLUS 1 USAGE IS DISPLAY-7.
	02	COLUMN 1	PIC X(9) VALUE 'Run Date:'.
	02	COLUMN 12	PIC Z9 SOURCE TD-DAY.
	02	COLUMN 14	PIC X VALUE '-'.
	02	COLUMN 15	PIC X(3) SOURCE TD-MMM.
	02	COLUMN 18	PIC X VALUE '-'.
	02	COLUMN 19	PIC 99 SOURCE TD-YEAR.
	02	COLUMN 22	PIC 99 SOURCE TD-HOUR.
	02	COLUMN 24	PIC X VALUE ':'.
	02	COLUMN 25	PIC 99 SOURCE TD-MIN.
	02	COLUMN 47	PIC X(39) SOURCE WS-SYSTEM-NAME.
	02 LINE PLUS 1
		COLUMN 1	PIC X(4) VALUE 'User'.
	02	COLUMN 6	PIC X(39) SOURCE NAME-SORT.
	02	COLUMN 53	PIC X(27) VALUE 'TOPS-20 System USAGE Report'.
	02 LINE PLUS 1
		COLUMN 39	PIC X(19) VALUE 'USAGE Entries From:'.
	02	COLUMN 59	PIC 99 SOURCE WS-START-DD.
	02	COLUMN 61	PIC X VALUE '-'.
	02	COLUMN 62	PIC X(3) SOURCE WS-START-MMM.
	02	COLUMN 65	PIC X VALUE '-'.
	02	COLUMN 66	PIC 99 SOURCE WS-START-YY.
	02	COLUMN 69	PIC 99 SOURCE WS-START-HH.
	02	COLUMN 71	PIC X VALUE ':'.
	02	COLUMN 72	PIC 99 SOURCE WS-START-MIN.
	02	COLUMN 75	PIC X(3) VALUE 'to:'.
	02	COLUMN 79	PIC 99 SOURCE WS-END-DD.
	02	COLUMN 81	PIC X VALUE '-'.
	02	COLUMN 82	PIC X(3) SOURCE WS-END-MMM.
	02	COLUMN 85	PIC X VALUE'-'.
	02	COLUMN 86	PIC 99 SOURCE WS-END-YY.
	02	COLUMN 89	PIC 99 SOURCE WS-END-HH.
	02	COLUMN 91	PIC X VALUE ':'.
	02	COLUMN 92	PIC 99 SOURCE WS-END-MIN.
	02 LINE PLUS 2
		COLUMN 53	PIC X(7) VALUE 'Connect'.
	02	COLUMN 73	PIC X(5) VALUE 'Input'.
	02	COLUMN 81	PIC X(6) VALUE 'Output'.
	02 LINE PLUS 1
		COLUMN 43	PIC X(5) VALUE 'Total'.
	02	COLUMN 54	PIC X(4) VALUE 'Time'.
	02	COLUMN 63	PIC X(7) VALUE 'Runtime'.
	02	COLUMN 72	PIC X(7) VALUE 'Spooler'.
	02	COLUMN 80	PIC X(7) VALUE 'Spooler'.
	02 LINE PLUS 1
		COLUMN 15	PIC X(7) VALUE 'Account'.
	02	COLUMN 42	PIC X(6) VALUE 'Charge'.
	02	COLUMN 53	PIC X(7) VALUE '(Hours)'.
	02	COLUMN 64	PIC X(6) VALUE '(Sec.)'.
	02	COLUMN 73	PIC X(5) VALUE 'Cards'.
	02	COLUMN 81	PIC X(5) VALUE 'Pages'.
	02	COLUMN 88	PIC X(6) VALUE 'Remark'.
	02 LINE PLUS 1
		COLUMN 15	PIC X(7) VALUE '-------'.
	02	COLUMN 40	PIC X(11) VALUE '-----------'.
	02	COLUMN 52	PIC X(9) VALUE '---------'.
	02	COLUMN 62	PIC X(9) VALUE '---------'.
	02	COLUMN 72	PIC X(7) VALUE '-------'.
	02	COLUMN 80	PIC X(7) VALUE '-------'.
	02	COLUMN 88	PIC X(6) VALUE '------'.



01 TYPE DETAIL.
	02			PIC Z(7)9.99 SOURCE CHARGE-SORT.
	02			PIC Z(6).ZZ SOURCE CONNECT-SORT BLANK WHEN ZERO.
	02			PIC Z(7).Z SOURCE RUNTIME-SORT BLANK WHEN ZERO.
	02			PIC Z(10) SOURCE SPOOLER-INPUT-SORT.
	02			PIC Z(7) SOURCE SPOOLER-OUTPUT-SORT.



01 TYPE CF REMARK-SORT; LINE PLUS 1; USAGE IS DISPLAY-7.
	02	COLUMN 1	PIC X(39) SOURCE ACCOUNT-SORT.
	02	COLUMN 39	PIC $Z(7)9.99 SUM CHARGE-SORT.
	02	COLUMN 52	PIC Z(6).ZZ SUM CONNECT-SORT BLANK WHEN ZERO.
	02	COLUMN 62	PIC Z(7).Z SUM RUNTIME-SORT BLANK WHEN ZERO.
	02	COLUMN 72	PIC Z(7) SUM SPOOLER-INPUT-SORT.
	02	COLUMN 80	PIC Z(7) SUM SPOOLER-OUTPUT-SORT.
	02	COLUMN 88	PIC X(39) SOURCE REMARK-SORT.


01 TYPE CF ACCOUNT-SORT; LINE PLUS 1; NEXT GROUP IS PLUS 2; USAGE IS DISPLAY-7.
	02	COLUMN 40	PIC X(11) VALUE '-----------'.
	02	COLUMN 52	PIC X(9) VALUE '---------'.
	02	COLUMN 62	PIC X(9) VALUE '---------'.
	02	COLUMN 72	PIC X(7) VALUE '-------'.
	02	COLUMN 80	PIC X(7) VALUE '-------'.
	02 LINE PLUS 1
		COLUMN 1	PIC X(28) VALUE
					'* * * Account Subtotal * * *'.
	02	COLUMN 39	PIC $Z(7)9.99 SUM CHARGE-SORT.
	02	COLUMN 52	PIC Z(6).ZZ SUM CONNECT-SORT BLANK WHEN ZERO.
	02	COLUMN 62	PIC Z(7).Z SUM RUNTIME-SORT BLANK WHEN ZERO.
	02	COLUMN 72	PIC Z(7) SUM SPOOLER-INPUT-SORT.
	02	COLUMN 80	PIC Z(7) SUM SPOOLER-OUTPUT-SORT.
01 TYPE CF NAME-SORT LINE PLUS 1; NEXT GROUP NEXT PAGE USAGE IS DISPLAY-7.
	02	COLUMN 40	PIC X(11) VALUE '==========='.
	02	COLUMN 52	PIC X(9) VALUE '========='.
	02	COLUMN 62	PIC X(9) VALUE '========='.
	02	COLUMN 72	PIC X(7) VALUE '======='.
	02	COLUMN 80	PIC X(7) VALUE'======='.
	02 LINE PLUS 1
		COLUMN 1	PIC X(18) VALUE '* * * Totals * * *'.
	02	COLUMN 39	PIC $Z(7)9.99 SUM CHARGE-SORT.
	02	COLUMN 52	PIC Z(6).ZZ SUM CONNECT-SORT BLANK WHEN ZERO.
	02	COLUMN 62	PIC Z(7).Z SUM RUNTIME-SORT BLANK WHEN ZERO.
	02	COLUMN 72	PIC Z(7) SUM SPOOLER-INPUT-SORT.
	02	COLUMN 80	PIC Z(7) SUM SPOOLER-OUTPUT-SORT.
	02 LINE PLUS 2
		COLUMN 1	PIC X(30) VALUE '******************************'.
	02 LINE PLUS 1
		COLUMN 1	PIC X(24) VALUE '* End of Report for User'.
	02	COLUMN 26	PIC X(39) SOURCE NAME-SORT.
	02 LINE PLUS 1
		COLUMN 1	PIC X(30) VALUE '******************************'.
	02 LINE PLUS 1
		COLUMN 1	PIC X(6) VALUE 'Rates:'.
	02 LINE PLUS 1
		COLUMN 5	PIC X(22) VALUE 'Session Connect Time ='.
	02	COLUMN 28	PIC $ZZZ.99 SOURCE WS-SESSION-CONNECT.
	02	COLUMN 35	PIC X(6) VALUE '/Hour,'.
	02	COLUMN 43	PIC X(24) VALUE 'Session Runtime        ='.
	02	COLUMN 68	PIC $ZZZ.99 SOURCE WS-SESSION-RUNTIME.
	02	COLUMN 75	PIC X(7) VALUE '/Second'.
	02 LINE PLUS 1
		COLUMN 5	PIC X(22) VALUE 'Input Spooler Unit   ='.
	02	COLUMN 28	PIC $ZZZ.99 SOURCE WS-CARDS.
	02	COLUMN 35	PIC X(6) VALUE '/Card,'.
	02	COLUMN 43	PIC X(24) VALUE 'Input Spooler Runtime  ='.
	02	COLUMN 68	PIC $ZZZ.99 SOURCE WS-CARD-RUNTIME.
	02	COLUMN 75	PIC X(7) VALUE '/Second'.
	02 LINE PLUS 1
		COLUMN 5	PIC X(22) VALUE 'Output Spooler Unit  ='.
	02	COLUMN 28	PIC $ZZZ.99 SOURCE WS-PAGES.
	02	COLUMN 35	PIC X(6) VALUE '/Page,'.
	02	COLUMN 43	PIC X(24) VALUE 'Output Spooler Runtime ='.
	02	COLUMN 68	PIC $ZZZ.99 SOURCE WS-PAGE-RUNTIME.
	02	COLUMN 75	PIC X(7) VALUE '/Second'.
RD ACCOUNTS
	CODE ACCOUNT-DETAIL
	CONTROLS ARE FINAL, ACCOUNT-SORT, NAME-SORT, REMARK-SORT
	PAGE LIMIT IS 120,
		LAST DETAIL 58.

01 TYPE PH; LINE 1, NEXT GROUP PLUS 1 USAGE IS DISPLAY-7.
	02	COLUMN 1	PIC X(9) VALUE 'Run Date:'.
	02	COLUMN 12	PIC Z9 SOURCE TD-DAY.
	02	COLUMN 14	PIC X VALUE '-'.
	02	COLUMN 15	PIC X(3) SOURCE TD-MMM.
	02	COLUMN 18	PIC X VALUE '-'.
	02	COLUMN 19	PIC 99 SOURCE TD-YEAR.
	02	COLUMN 22	PIC 99 SOURCE TD-HOUR.
	02	COLUMN 24	PIC X VALUE ':'.
	02	COLUMN 25	PIC 99 SOURCE TD-MIN.
	02	COLUMN 47	PIC X(39) SOURCE WS-SYSTEM-NAME.
	02 LINE PLUS 1
		COLUMN 1	PIC X(7) VALUE 'Account'.
	02	COLUMN 9	PIC X(39) SOURCE ACCOUNT-SORT.
	02	COLUMN 56	PIC X(20) VALUE 'TOPS-20 USAGE Report'.
	02 LINE PLUS 1
		COLUMN 39	PIC X(19) VALUE 'USAGE Entries From:'.
	02	COLUMN 59	PIC 99 SOURCE WS-START-DD.
	02	COLUMN 61	PIC X VALUE '-'.
	02	COLUMN 62	PIC X(3) SOURCE WS-START-MMM.
	02	COLUMN 65	PIC X VALUE '-'.
	02	COLUMN 66	PIC 99 SOURCE WS-START-YY.
	02	COLUMN 69	PIC 99 SOURCE WS-START-HH.
	02	COLUMN 71	PIC X VALUE ':'.
	02	COLUMN 72	PIC 99 SOURCE WS-START-MIN.
	02	COLUMN 75	PIC X(3) VALUE 'to:'.
	02	COLUMN 79	PIC 99 SOURCE WS-END-DD.
	02	COLUMN 81	PIC X VALUE '-'.
	02	COLUMN 82	PIC X(3) SOURCE WS-END-MMM.
	02	COLUMN 85	PIC X VALUE'-'.
	02	COLUMN 86	PIC 99 SOURCE WS-END-YY.
	02	COLUMN 89	PIC 99 SOURCE WS-END-HH.
	02	COLUMN 91	PIC X VALUE ':'.
	02	COLUMN 92	PIC 99 SOURCE WS-END-MIN.
	02 LINE PLUS 2
		COLUMN 53	PIC X(7) VALUE 'Connect'.
	02	COLUMN 73	PIC X(5) VALUE 'Input'.
	02	COLUMN 81	PIC X(6) VALUE 'Output'.
	02 LINE PLUS 1
		COLUMN 43	PIC X(5) VALUE 'Total'.
	02	COLUMN 54	PIC X(4) VALUE 'Time'.
	02	COLUMN 63	PIC X(7) VALUE 'Runtime'.
	02	COLUMN 72	PIC X(7) VALUE 'Spooler'.
	02	COLUMN 80	PIC X(7) VALUE 'Spooler'.
	02 LINE PLUS 1
		COLUMN 17	PIC X(4) VALUE 'Name'.
	02	COLUMN 42	PIC X(6) VALUE 'Charge'.
	02	COLUMN 53	PIC X(7) VALUE '(Hours)'.
	02	COLUMN 64	PIC X(6) VALUE '(Sec.)'.
	02	COLUMN 73	PIC X(5) VALUE 'Units'.
	02	COLUMN 81	PIC X(5) VALUE 'Units'.
	02	COLUMN 88	PIC X(6) VALUE 'Remark'.
	02 LINE PLUS 1
		COLUMN 17	PIC X(4) VALUE '----'.
	02	COLUMN 40	PIC X(11) VALUE '-----------'.
	02	COLUMN 52	PIC X(9) VALUE '---------'.
	02	COLUMN 62	PIC X(9) VALUE '---------'.
	02	COLUMN 72	PIC X(7) VALUE '-------'.
	02	COLUMN 80	PIC X(7) VALUE '-------'.
	02	COLUMN 88	PIC X(6) VALUE '------'.



01 TYPE DETAIL.
	02			PIC Z(7)9.99 SOURCE CHARGE-SORT.
	02			PIC Z(6).ZZ SOURCE CONNECT-SORT BLANK WHEN ZERO.
	02			PIC Z(7).Z SOURCE RUNTIME-SORT BLANK WHEN ZERO.
	02			PIC Z(10) SOURCE SPOOLER-INPUT-SORT.
	02			PIC Z(7) SOURCE SPOOLER-OUTPUT-SORT.



01 TYPE CF REMARK-SORT; LINE PLUS 1.
	02	COLUMN 1	PIC X(39) SOURCE NAME-SORT.
	02	COLUMN 39	PIC $Z(7)9.99 SUM CHARGE-SORT.
	02	COLUMN 52	PIC Z(6).ZZ SUM CONNECT-SORT BLANK WHEN ZERO.
	02	COLUMN 62	PIC Z(7).Z SUM RUNTIME-SORT BLANK WHEN ZERO.
	02	COLUMN 72	PIC Z(7) SUM SPOOLER-INPUT-SORT.
	02	COLUMN 80	PIC Z(7) SUM SPOOLER-OUTPUT-SORT.
	02	COLUMN 88	PIC X(39) SOURCE REMARK-SORT.


01 TYPE CF NAME-SORT; LINE PLUS 1; NEXT GROUP IS PLUS 2; USAGE IS DISPLAY-7.
	02	COLUMN 40	PIC X(11) VALUE '-----------'.
	02	COLUMN 52	PIC X(9) VALUE '---------'.
	02	COLUMN 62	PIC X(9) VALUE '---------'.
	02	COLUMN 72	PIC X(7) VALUE '-------'.
	02	COLUMN 80	PIC X(7) VALUE '-------'.
	02 LINE PLUS 1
		COLUMN 1	PIC X(25) VALUE
					'* * * User Subtotal * * *'.
	02	COLUMN 39	PIC $Z(7)9.99 SUM CHARGE-SORT.
	02	COLUMN 52	PIC Z(6).ZZ SUM CONNECT-SORT BLANK WHEN ZERO.
	02	COLUMN 62	PIC Z(7).Z SUM RUNTIME-SORT BLANK WHEN ZERO.
	02	COLUMN 72	PIC Z(7) SUM SPOOLER-INPUT-SORT.
	02	COLUMN 80	PIC Z(7) SUM SPOOLER-OUTPUT-SORT.
01 TYPE CF ACCOUNT-SORT LINE PLUS 1; NEXT GROUP NEXT PAGE USAGE IS DISPLAY-7.
	02	COLUMN 40	PIC X(11) VALUE '==========='.
	02	COLUMN 52	PIC X(9) VALUE '========='.
	02	COLUMN 62	PIC X(9) VALUE '========='.
	02	COLUMN 72	PIC X(7) VALUE '======='.
	02	COLUMN 80	PIC X(7) VALUE'======='.
	02 LINE PLUS 1
		COLUMN 1	PIC X(18) VALUE '* * * Totals * * *'.
	02	COLUMN 39	PIC $Z(7)9.99 SUM CHARGE-SORT.
	02	COLUMN 52	PIC Z(6).ZZ SUM CONNECT-SORT BLANK WHEN ZERO.
	02	COLUMN 62	PIC Z(7).Z SUM RUNTIME-SORT BLANK WHEN ZERO.
	02	COLUMN 72	PIC Z(7) SUM SPOOLER-INPUT-SORT.
	02	COLUMN 80	PIC Z(7) SUM SPOOLER-OUTPUT-SORT.
	02 LINE PLUS 2
		COLUMN 1	PIC X(30) VALUE '******************************'.
	02 LINE PLUS 1
		COLUMN 1	PIC X(27) VALUE '* End of Report for Account'.
	02	COLUMN 29	PIC X(39) SOURCE ACCOUNT-SORT.
	02 LINE PLUS 1
		COLUMN 1	PIC X(30) VALUE '******************************'.
	02 LINE PLUS 1
		COLUMN 1	PIC X(6) VALUE 'Rates:'.
	02 LINE PLUS 1
		COLUMN 5	PIC X(22) VALUE 'Session Connect Time ='.
	02	COLUMN 28	PIC $ZZZ.99 SOURCE WS-SESSION-CONNECT.
	02	COLUMN 35	PIC X(6) VALUE '/Hour,'.
	02	COLUMN 43	PIC X(24) VALUE 'Session Runtime        ='.
	02	COLUMN 68	PIC $ZZZ.99 SOURCE WS-SESSION-RUNTIME.
	02	COLUMN 75	PIC X(7) VALUE '/Second'.
	02 LINE PLUS 1
		COLUMN 5	PIC X(22) VALUE 'Input Spooler Unit   ='.
	02	COLUMN 28	PIC $ZZZ.99 SOURCE WS-CARDS.
	02	COLUMN 35	PIC X(6) VALUE '/Card,'.
	02	COLUMN 43	PIC X(24) VALUE 'Input Spooler Runtime  ='.
	02	COLUMN 68	PIC $ZZZ.99 SOURCE WS-CARD-RUNTIME.
	02	COLUMN 75	PIC X(7) VALUE '/Second'.
	02 LINE PLUS 1
		COLUMN 5	PIC X(22) VALUE 'Output Spooler Unit  ='.
	02	COLUMN 28	PIC $ZZZ.99 SOURCE WS-PAGES.
	02	COLUMN 35	PIC X(6) VALUE '/Page,'.
	02	COLUMN 43	PIC X(24) VALUE 'Output Spooler Runtime ='.
	02	COLUMN 68	PIC $ZZZ.99 SOURCE WS-PAGE-RUNTIME.
	02	COLUMN 75	PIC X(7) VALUE '/Second'.
RD DNAMES
	CODE DISK-NAME-DETAIL
	CONTROLS ARE FINAL, DIRECTORY-SORT, ACCOUNT-SORT, STRUCTURE-SORT
	PAGE LIMIT IS 120,
		LAST DETAIL 58.

01 TYPE PH; LINE 1, NEXT GROUP PLUS 1 USAGE IS DISPLAY-7.
	02	COLUMN 1	PIC X(9) VALUE 'Run Date:'.
	02	COLUMN 12	PIC Z9 SOURCE TD-DAY.
	02	COLUMN 14	PIC X VALUE '-'.
	02	COLUMN 15	PIC X(3) SOURCE TD-MMM.
	02	COLUMN 18	PIC X VALUE '-'.
	02	COLUMN 19	PIC 99 SOURCE TD-YEAR.
	02	COLUMN 22	PIC 99 SOURCE TD-HOUR.
	02	COLUMN 24	PIC X VALUE ':'.
	02	COLUMN 25	PIC 99 SOURCE TD-MIN.
	02	COLUMN 47	PIC X(39) SOURCE WS-SYSTEM-NAME.
	02 LINE PLUS 1
		COLUMN 1	PIC X(9) VALUE 'Directory'.
	02	COLUMN 11	PIC X(39) SOURCE DIRECTORY-SORT.
	02	COLUMN 54	PIC X(30) VALUE 'TOPS-20 Directory USAGE Report'.
	02 LINE PLUS 1
		COLUMN 48	PIC X(16) VALUE 'USAGE Entries on'.
	02	COLUMN 66	PIC 99 SOURCE WS-START-DD.
	02	COLUMN 68	PIC X VALUE '-'.
	02	COLUMN 69	PIC X(3) SOURCE WS-START-MMM.
	02	COLUMN 72	PIC X VALUE '-'.
	02	COLUMN 73	PIC 99 SOURCE WS-START-YY.
	02	COLUMN 76	PIC 99 SOURCE WS-START-HH.
	02	COLUMN 78	PIC X VALUE ':'.
	02	COLUMN 79	PIC 99 SOURCE WS-START-MIN.
	02 LINE PLUS 2
		COLUMN 43	PIC X(5) VALUE 'Total'.
	02	COLUMN 54	PIC X(4) VALUE 'Disk'.
	02	COLUMN 63	PIC X(6) VALUE 'Number'.
	02	COLUMN 72	PIC X(8) VALUE 'Avg. No.'.
	02	COLUMN 82	PIC X(9) VALUE 'Structure'.
	02 LINE PLUS 1
		COLUMN 15	PIC X(7) VALUE 'Account'.
	02	COLUMN 42	PIC X(6) VALUE 'Charge'.
	02	COLUMN 54	PIC X(5) VALUE 'Pages'.
	02	COLUMN 62	PIC X(8) VALUE 'of Files'.
	02	COLUMN 72	PIC X(8) VALUE 'of Pages'.
	02	COLUMN 84	PIC X(4) VALUE 'Name'.
	02 LINE PLUS 1
		COLUMN 15	PIC X(7) VALUE '-------'.
	02	COLUMN 40	PIC X(11) VALUE '-----------'.
	02	COLUMN 52	PIC X(9) VALUE '---------'.
	02	COLUMN 62	PIC X(9) VALUE '---------'.
	02	COLUMN 72	PIC X(9) VALUE '---------'.
	02	COLUMN 82	PIC X(9) VALUE '---------'.
01 TYPE DETAIL.
	02			PIC $Z(7)9.99 SOURCE CHARGE-SORT.
	02			PIC Z(9) SOURCE DISK-PAGE-SORT.
	02			PIC Z(9) SOURCE FILE-SORT.


01 TYPE CF STRUCTURE-SORT; LINE PLUS 1.
	02	COLUMN 1	PIC X(39) SOURCE ACCOUNT-SORT.
	02	COLUMN 39	PIC $Z(7)9.99 SUM CHARGE-SORT.
	02	COLUMN 52	PIC Z(9) SUM DISK-PAGE-SORT.
	02	COLUMN 62	PIC Z(9) SUM FILE-SORT.
	02	COLUMN 72	PIC Z(7).Z SOURCE WS-AVGPAGE BLANK WHEN ZERO.
	02	COLUMN 82	PIC X(7) SOURCE STRUCTURE-SORT.

01 TYPE CF ACCOUNT-SORT; LINE PLUS 1; NEXT GROUP IS PLUS 2; USAGE IS DISPLAY-7.
	02	COLUMN 40	PIC X(11) VALUE '-----------'.
	02	COLUMN 52	PIC X(9) VALUE '---------'.
	02	COLUMN 62	PIC X(9) VALUE '---------'.
	02	COLUMN 72	PIC X(9) VALUE '---------'.
	02 LINE PLUS 1
		COLUMN 1	PIC X(28) VALUE
					'* * * Account Subtotal * * *'.
	02	COLUMN 39	PIC $Z(7)9.99 SUM CHARGE-SORT.
	02	COLUMN 52	PIC Z(9) SUM DISK-PAGE-SORT.
	02	COLUMN 62	PIC Z(9) SUM FILE-SORT.
	02	COLUMN 72	PIC Z(7).Z SUM WS-AVGPAGE BLANK WHEN ZERO.
01 TYPE CF DIRECTORY-SORT LINE PLUS 1; NEXT GROUP NEXT PAGE USAGE IS DISPLAY-7.
	02	COLUMN 40	PIC X(11) VALUE '==========='.
	02	COLUMN 52	PIC X(9) VALUE '========='.
	02	COLUMN 62	PIC X(9) VALUE '========='.
	02	COLUMN 72	PIC X(9) VALUE '========='.
	02 LINE PLUS 1
		COLUMN 1	PIC X(18) VALUE '* * * Totals * * *'.
	02	COLUMN 39	PIC $Z(7)9.99 SUM CHARGE-SORT.
	02	COLUMN 52	PIC Z(9) SUM DISK-PAGE-SORT.
	02	COLUMN 62	PIC Z(9) SUM FILE-SORT.
	02	COLUMN 72	PIC Z(7).Z SUM WS-AVGPAGE BLANK WHEN ZERO.
	02 LINE PLUS 2
		COLUMN 1	PIC X(30) VALUE '******************************'.
	02 LINE PLUS 1
		COLUMN 1	PIC X(29) VALUE '* End of Report for Directory'.
	02	COLUMN 31	PIC X(39) SOURCE DIRECTORY-SORT.
	02 LINE PLUS 1
		COLUMN 1	PIC X(30) VALUE '******************************'.
	02 LINE PLUS 1
		COLUMN 1	PIC X(6) VALUE 'Rates:'.
	02 LINE PLUS 1
		COLUMN 5	PIC X(12) VALUE 'Disk Usage ='.
	02	COLUMN 18	PIC $$$.99 SOURCE WS-DISK-PAGES.
	02	COLUMN 24	PIC X(5) VALUE '/Page'.
RD DACCOUNTS
	CODE DISK-ACCOUNT-DETAIL
	CONTROLS ARE FINAL, ACCOUNT-SORT, DIRECTORY-SORT, STRUCTURE-SORT
	PAGE LIMIT IS 120,
		LAST DETAIL 58.

01 TYPE PH; LINE 1, NEXT GROUP PLUS 1 USAGE IS DISPLAY-7.
	02	COLUMN 1	PIC X(9) VALUE 'Run Date:'.
	02	COLUMN 12	PIC Z9 SOURCE TD-DAY.
	02	COLUMN 14	PIC X VALUE '-'.
	02	COLUMN 15	PIC X(3) SOURCE TD-MMM.
	02	COLUMN 18	PIC X VALUE '-'.
	02	COLUMN 19	PIC 99 SOURCE TD-YEAR.
	02	COLUMN 22	PIC 99 SOURCE TD-HOUR.
	02	COLUMN 24	PIC X VALUE ':'.
	02	COLUMN 25	PIC 99 SOURCE TD-MIN.
	02	COLUMN 47	PIC X(39) SOURCE WS-SYSTEM-NAME.
	02 LINE PLUS 1
		COLUMN 1	PIC X(7) VALUE 'Account'.
	02	COLUMN 9	PIC X(39) SOURCE ACCOUNT-SORT.
	02	COLUMN 54	PIC X(30) VALUE 'TOPS-20 Directory USAGE Report'.
	02 LINE PLUS 1
		COLUMN 48	PIC X(16) VALUE 'USAGE Entries on'.
	02	COLUMN 66	PIC 99 SOURCE WS-START-DD.
	02	COLUMN 68	PIC X VALUE '-'.
	02	COLUMN 69	PIC X(3) SOURCE WS-START-MMM.
	02	COLUMN 72	PIC X VALUE '-'.
	02	COLUMN 73	PIC 99 SOURCE WS-START-YY.
	02	COLUMN 76	PIC 99 SOURCE WS-START-HH.
	02	COLUMN 78	PIC X VALUE ':'.
	02	COLUMN 79	PIC 99 SOURCE WS-START-MIN.
	02 LINE PLUS 2
		COLUMN 43	PIC X(5) VALUE 'Total'.
	02	COLUMN 54	PIC X(4) VALUE 'Disk'.
	02	COLUMN 63	PIC X(6) VALUE 'Number'.
	02	COLUMN 72	PIC X(8) VALUE 'Avg. No.'.
	02	COLUMN 82	PIC X(9) VALUE 'Structure'.
	02 LINE PLUS 1
		COLUMN 12	PIC X(9) VALUE 'Directory'.
	02	COLUMN 42	PIC X(6) VALUE 'Charge'.
	02	COLUMN 54	PIC X(5) VALUE 'Pages'.
	02	COLUMN 62	PIC X(8) VALUE 'of Files'.
	02	COLUMN 72	PIC X(8) VALUE 'of Pages'.
	02	COLUMN 84	PIC X(4) VALUE 'Name'.
	02 LINE PLUS 1
		COLUMN 12	PIC X(9) VALUE '---------'.
	02	COLUMN 40	PIC X(11) VALUE '-----------'.
	02	COLUMN 52	PIC X(9) VALUE '---------'.
	02	COLUMN 62	PIC X(9) VALUE '---------'.
	02	COLUMN 72	PIC X(9) VALUE '---------'.
	02	COLUMN 82	PIC X(9) VALUE '---------'.



01 TYPE DETAIL.
	02			PIC $Z(7)9.99 SOURCE CHARGE-SORT.
	02			PIC Z(9) SOURCE DISK-PAGE-SORT.
	02			PIC Z(9) SOURCE FILE-SORT.


01 TYPE CF STRUCTURE-SORT; LINE PLUS 1.
	02	COLUMN 1	PIC X(39) SOURCE DIRECTORY-SORT.
	02	COLUMN 39	PIC $Z(7)9.99 SUM CHARGE-SORT.
	02	COLUMN 52	PIC Z(9) SUM DISK-PAGE-SORT.
	02	COLUMN 62	PIC Z(9) SUM FILE-SORT.
	02	column 72	pic z(7).z source ws-avgPAGE blank when zero.
	02	COLUMN 82	PIC X(7) SOURCE STRUCTURE-SORT.

01 TYPE CF DIRECTORY-SORT; LINE PLUS 1; NEXT GROUP IS PLUS 2; USAGE IS DISPLAY-7.
	02	COLUMN 40	PIC X(11) VALUE '-----------'.
	02	COLUMN 52	PIC X(9) VALUE '---------'.
	02	COLUMN 62	PIC X(9) VALUE '---------'.
	02	COLUMN 72	PIC X(9) VALUE '---------'.
	02 LINE PLUS 1
		COLUMN 1	PIC X(30) VALUE
					'* * * Directory Subtotal * * *'.
	02	COLUMN 39	PIC $Z(7)9.99 SUM CHARGE-SORT.
	02	COLUMN 52	PIC Z(9) SUM DISK-PAGE-SORT.
	02	COLUMN 62	PIC Z(9) SUM FILE-SORT.
	02	column 72	pic z(7).z sum ws-avgPAGE blank when zero.
01 TYPE CF ACCOUNT-SORT LINE PLUS 1; NEXT GROUP NEXT PAGE USAGE IS DISPLAY-7.
	02	COLUMN 40	PIC X(11) VALUE '==========='.
	02	COLUMN 52	PIC X(9) VALUE '========='.
	02	COLUMN 62	PIC X(9) VALUE '========='.
	02	COLUMN 72	PIC X(9) VALUE '========='.
	02 LINE PLUS 1
		COLUMN 1	PIC X(18) VALUE '* * * Totals * * *'.
	02	COLUMN 39	PIC $Z(7)9.99 SUM CHARGE-SORT.
	02	COLUMN 52	PIC Z(9) SUM DISK-PAGE-SORT.
	02	COLUMN 62	PIC Z(9) SUM FILE-SORT.
	02	column 72	pic z(7).z sum ws-avgPAGE blank when zero.
	02 LINE PLUS 2
		COLUMN 1	PIC X(30) VALUE '******************************'.
	02 LINE PLUS 1
		COLUMN 1	PIC X(27) VALUE '* End of Report for Account'.
	02	COLUMN 31	PIC X(39) SOURCE ACCOUNT-SORT.
	02 LINE PLUS 1
		COLUMN 1	PIC X(30) VALUE '******************************'.
	02 LINE PLUS 1
		COLUMN 1	PIC X(6) VALUE 'Rates:'.
	02 LINE PLUS 1
		COLUMN 5	PIC X(12) VALUE 'Disk Usage ='.
	02	COLUMN 18	PIC $$$.99 SOURCE WS-DISK-PAGES.
	02	COLUMN 24	PIC X(5) VALUE '/Page'.
PROCEDURE DIVISION.

	DISPLAY 'TOPS20 ACCOUNTING SYSTEM'.
	PERFORM GET-CHARGES THRU GET-CHARGES-EXIT.
MAIN-LOOP.
	MOVE 19 TO WS-END-YY1, WS-START-YY1.
	MOVE TODAY TO THIS-DATE, WS-SDT.
	MOVE ZEROES TO WS-EDT.
	MOVE LETTER-MONTH (TD-MONTH) TO TD-MMM.
	PERFORM ASK-FOR-INPUT-FILE.
	PERFORM ASK-FOR-REPORT.
	PERFORM ASK-FOR-SORT.
	PERFORM ASK-FOR-OUTPUT-FILE.
	PERFORM PROCESS-REPORT.
	GO TO MAIN-LOOP.


************

GET-CHARGES.
	OPEN INPUT CHARGE-FILE.
	MOVE ZEROES TO WS-ALL-CHARGES.
GET-CHARGES-1.
	READ CHARGE-FILE AT END CLOSE CHARGE-FILE
				GO TO GET-CHARGES-EXIT.
	UNSTRING CHARGE-RECORD DELIMITED BY SPACE OR '.' OR '/' OR ALL SPACES
		INTO WS-CHARGE-CODE, WS-DOLLAR, WS-CENTS, WS-COMMENT.
	MOVE WS-DOLLAR TO WS-C1-DOLLAR.
	MOVE WS-CENTS TO WS-C1-CENTS.
	IF WS-CHARGE-CODE = 'SESCON'
		MOVE WS-CHARGE TO WS-SESSION-CONNECT
	    ELSE IF WS-CHARGE-CODE = 'SESRUN'
		MOVE WS-CHARGE TO WS-SESSION-RUNTIME
	    ELSE IF WS-CHARGE-CODE = 'PAGRUN'
		MOVE WS-CHARGE TO WS-PAGE-RUNTIME
	    ELSE IF WS-CHARGE-CODE = 'PAGPAG'
		MOVE WS-CHARGE TO WS-PAGES
	    ELSE IF WS-CHARGE-CODE = 'CRDCRD'
		MOVE WS-CHARGE TO WS-CARDS
	    ELSE IF WS-CHARGE-CODE = 'CRDRUN'
		MOVE WS-CHARGE TO WS-CARD-RUNTIME
	    ELSE IF WS-CHARGE-CODE = 'DSKPAG'
		MOVE WS-CHARGE TO WS-DISK-PAGES.
	GO TO GET-CHARGES-1.

GET-CHARGES-EXIT.
	EXIT.
ASK-FOR-INPUT-FILE.
	DISPLAY 'Read USAGE file: ' WITH NO ADVANCING.
	ACCEPT WS-COMMAND.
	IF WS-COMMAND = '?' PERFORM DISPLAY-HELP-INPUT
		GO TO ASK-FOR-INPUT-FILE
	    ELSE IF WS-COMMAND = 'EXIT' STOP RUN
	   ELSE IF WS-COMMAND = SPACES MOVE 'USAGE OUT' TO IN-FILE-NAME-EXT
	   ELSE UNSTRING WS-COMMAND DELIMITED BY '.' OR ALL ' ' INTO IN-FILE-NAME,
		IN-FILE-EXT ON OVERFLOW DISPLAY ' Input file error: ', WS-COMMAND
		GO TO ASK-FOR-INPUT-FILE.
	DISPLAY ' Input file name: ' IN-FILE-NAME, '.', IN-FILE-EXT.

ASK-FOR-REPORT.
	DISPLAY 'Report by [System usage (S) or Disk usage (D)]: ' WITH NO ADVANCING.
	ACCEPT WS-COMMAND.
	IF WS-COMMAND = '?' PERFORM DISPLAY-HELP-REPORT
		GO TO ASK-FOR-REPORT
	   ELSE IF WS-COMMAND = SPACES MOVE 'S' TO WS-REPORT
	   ELSE IF WS-COMMAND = 'EXIT' STOP RUN
	    ELSE MOVE WS-COMMAND TO WS-REPORT.

ASK-FOR-SORT.
	DISPLAY 'Sort by [Name (N) or Account (A)]: ' WITH NO ADVANCING.
	ACCEPT WS-COMMAND.
	IF WS-COMMAND = '?' PERFORM DISPLAY-HELP-SORT
		GO TO ASK-FOR-SORT
	    ELSE IF WS-COMMAND = SPACES MOVE 'N' TO WS-SORT
	    ELSE IF WS-COMMAND = 'EXIT' STOP RUN
	    ELSE MOVE WS-COMMAND TO WS-SORT.

ASK-FOR-OUTPUT-FILE.
	DISPLAY 'Write to file: ' WITH NO ADVANCING.
	ACCEPT WS-COMMAND.
	IF WS-COMMAND = '?' PERFORM DISPLAY-HELP-OUTPUT
		GO TO ASK-FOR-OUTPUT-FILE
	   ELSE IF WS-COMMAND = SPACES MOVE 'USAGE RPT' TO OUT-FILE-NAME-EXT
	   ELSE IF WS-COMMAND = 'EXIT' STOP RUN
	   ELSE UNSTRING WS-COMMAND DELIMITED BY '.' OR ALL ' ' INTO OUT-FILE-NAME,
		OUT-FILE-EXT ON OVERFLOW DISPLAY 'Output file error: ', WS-COMMAND
		GO TO ASK-FOR-OUTPUT-FILE.
	DISPLAY ' Output file name: ', OUT-FILE-NAME, '.', OUT-FILE-EXT.

PROCESS-REPORT.
	IF WS-REPORT = 'S' AND WS-SORT = 'N' PERFORM REPORT-BY-SYSTEM-USAGE-NAME
	    ELSE IF WS-REPORT = 'S' AND WS-SORT = 'A'
		PERFORM REPORT-BY-SYSTEM-USAGE-ACCOUNT
	    ELSE IF WS-REPORT = 'D' AND WS-SORT = 'N'
		PERFORM REPORT-BY-DISK-NAME
	    ELSE IF WS-REPORT = 'D' AND WS-SORT = 'A'
		PERFORM REPORT-BY-DISK-ACCOUNT.
**********************************************************************
*	REPORT BY SYSTEM USAGE SORTED ON NAME SUBROUTINE SECTION                             
**********************************************************************


REPORT-BY-SYSTEM-USAGE-NAME.
	SORT SORT-USAGE
		ASCENDING KEY NAME-SORT, ACCOUNT-SORT, REMARK-SORT
		INPUT PROCEDURE IS REPORT-BY-SYSTEM-NAME-IN THRU REPORT-BY-SYSTEM-NAME-IN-EXIT
		OUTPUT PROCEDURE IS REPORT-BY-SYSTEM-NAME-OUT THRU REPORT-BY-SYSTEM-NAME-OUT-EXIT.

***********

REPORT-BY-SYSTEM-NAME-IN.
	OPEN INPUT IN-FILE.

RBNI-1.
	READ IN-FILE AT END CLOSE IN-FILE GO TO REPORT-BY-SYSTEM-NAME-IN-EXIT.
	MOVE ENTRY-TYPE TO DEFINED-ENTRIES.
	IF KNOWN-ENTRIES
		PERFORM MAKE-SYSTEM-SORT-RECORD.
	GO TO RBNI-1.

REPORT-BY-SYSTEM-NAME-IN-EXIT.
	EXIT.

**********


REPORT-BY-SYSTEM-NAME-OUT.
	OPEN OUTPUT OUT-FILE.
	INITIATE NAMES.
	MOVE LETTER-MONTH (WS-START-MON) TO WS-START-MMM.
	MOVE LETTER-MONTH (WS-END-MON) TO WS-END-MMM.
RBNO-1.
	RETURN SORT-USAGE AT END TERMINATE NAMES
		CLOSE OUT-FILE
		GO TO REPORT-BY-SYSTEM-NAME-OUT-EXIT.
	GENERATE NAMES.
	GO TO RBNO-1.

REPORT-BY-SYSTEM-NAME-OUT-EXIT.
	EXIT.

**********************************************************************
*	END OF REPORT BY SYSTEM USAGE SORTED ON NAME SUBROUTINE SECTION
**********************************************************************
**********************************************************************
*	REPORT BY SYSTEM USAGE SORTED ON ACCOUNT SUBROUTINE SECTION
**********************************************************************

REPORT-BY-SYSTEM-USAGE-ACCOUNT.
	SORT SORT-USAGE
		ASCENDING KEY ACCOUNT-SORT, NAME-SORT, REMARK-SORT
		INPUT PROCEDURE IS REPORT-BY-SACCOUNT-IN THRU
			REPORT-BY-SACCOUNT-IN-EXIT
		OUTPUT PROCEDURE IS REPORT-BY-SACCOUNT-OUT THRU
			REPORT-BY-SACCOUNT-OUT-EXIT.

***********

REPORT-BY-SACCOUNT-IN.
	OPEN INPUT IN-FILE.

RBAI-1.
	READ IN-FILE AT END CLOSE IN-FILE GO TO REPORT-BY-SACCOUNT-IN-EXIT.
	MOVE ENTRY-TYPE TO DEFINED-ENTRIES.
	IF KNOWN-ENTRIES PERFORM MAKE-SYSTEM-SORT-RECORD.
	GO TO RBAI-1.

REPORT-BY-SACCOUNT-IN-EXIT.
	EXIT.

************

REPORT-BY-SACCOUNT-OUT.
	OPEN OUTPUT OUT-FILE.
	INITIATE ACCOUNTS.
	MOVE LETTER-MONTH (WS-START-MON) TO WS-START-MMM.
	MOVE LETTER-MONTH (WS-END-MON) TO WS-END-MMM.
RBAO-1.
	RETURN SORT-USAGE AT END TERMINATE ACCOUNTS
		CLOSE OUT-FILE
		GO TO REPORT-BY-SACCOUNT-OUT-EXIT.
	GENERATE ACCOUNTS.
	GO TO RBAO-1.

REPORT-BY-SACCOUNT-OUT-EXIT.
	EXIT.

**********************************************************************
*	END OF REPORT BY SYSTEM USAGE SORTED ON ACCOUNT SUBROUTINE SECTION
**********************************************************************
**********************************************************************
*	COMMON SUBROUTINES USED BY REPORTS OF SYSTEM USAGE
**********************************************************************

MAKE-SYSTEM-SORT-RECORD.
	MOVE SPACES TO SYSTEM-SORT-RECORD.
	IF ENTRY-TYPE = '0002' OR '0003' PERFORM PROCESS-SESSION-ENTRY
			THRU PROCESS-SESSION-ENTRY-EXIT
	    ELSE IF ENTRY-TYPE = '0008' PERFORM PROCESS-OUTPUT-SPOOLER
		THRU PROCESS-OUTPUT-SPOOLER-EXIT
	    ELSE IF ENTRY-TYPE = '0007' PERFORM PROCESS-INPUT-SPOOLER
		THRU PROCESS-INPUT-SPOOLER-EXIT
	    ELSE IF ENTRY-TYPE = '0004' OR '0001' PERFORM PROCESS-HEADER-ENTRY
			THRU PROCESS-HEADER-ENTRY-EXIT.

************

PROCESS-SESSION-ENTRY.
	IF REC-SEQUENCE-NUMBER = '1' AND ENTRY-TYPE = '0002' OR '0003'
			PERFORM CHECK-RANGE-DATE-TIME
			READ IN-FILE
			AT END CLOSE IN-FILE GO TO PROCESS-SESSION-ENTRY-EXIT.
	IF REC-SEQUENCE-NUMBER = '2' AND ENTRY-TYPE = '0002' OR '0003'
		MOVE SR1-ACCOUNT-STRING TO ACCOUNT-SORT
		MOVE SR1-SESSION-REMARK TO REMARK-SORT
		COMPUTE RUNTIME-SORT ROUNDED = SR1-RUNTIME / 1000
		COMPUTE CONNECT-SORT ROUNDED = SR1-CONSOLE-CONNECT-TIME /3600
		PERFORM COMPUTE-SESSION-CHARGES
		READ IN-FILE AT END CLOSE IN-FILE GO TO PROCESS-SESSION-ENTRY-EXIT.
	IF REC-SEQUENCE-NUMBER = '3' AND ENTRY-TYPE = '0002' OR '0003'
		MOVE T20-USER-NAME TO NAME-SORT
	    ELSE DISPLAY 'Incomplete Session entry'.
	IF ACCOUNT-SORT = SPACES
		MOVE ' Unspecified Account' TO ACCOUNT-SORT.
	RELEASE SYSTEM-SORT-RECORD.

PROCESS-SESSION-ENTRY-EXIT.
	EXIT.


CHECK-RANGE-DATE-TIME.
	IF WS-END-DATE-TIME < EHR-DATE-TIME
		MOVE EHR-DATE-TIME TO WS-END-DATE-TIME.
	IF WS-START-DATE-TIME > EHR-DATE-TIME
		MOVE EHR-DATE-TIME TO WS-START-DATE-TIME.


COMPUTE-SESSION-CHARGES.
	COMPUTE CHARGE-SORT ROUNDED = CHARGE-SORT + RUNTIME-SORT * WS-SESSION-RUNTIME.
	COMPUTE CHARGE-SORT ROUNDED = CHARGE-SORT + CONNECT-SORT * WS-SESSION-CONNECT.

***********
***********
PROCESS-HEADER-ENTRY.
	IF REC-SEQUENCE-NUMBER = '1' AND ENTRY-TYPE = '0004' OR '0001'
			PERFORM CHECK-RANGE-DATE-TIME
			READ IN-FILE AT END
			CLOSE IN-FILE GO TO PROCESS-HEADER-ENTRY-EXIT.
	IF REC-SEQUENCE-NUMBER = '2' AND ENTRY-TYPE = '0004' OR '0001'
			MOVE RR-SYSTEM-NAME TO WS-SYSTEM-NAME.

PROCESS-HEADER-ENTRY-EXIT.
	EXIT.

************

PROCESS-OUTPUT-SPOOLER.
	IF REC-SEQUENCE-NUMBER = '1' AND ENTRY-TYPE = '0008'
		PERFORM CHECK-RANGE-DATE-TIME
		READ IN-FILE
			AT END CLOSE IN-FILE GO TO PROCESS-OUTPUT-SPOOLER-EXIT.
	IF REC-SEQUENCE-NUMBER = '2' AND ENTRY-TYPE = '0008'
		MOVE OSR-ACCOUNT-STRING TO ACCOUNT-SORT
		COMPUTE RUNTIME-SORT ROUNDED = OSR-RUNTIME / 1000
		MOVE OSR-OUTPUT-UNITS TO SPOOLER-OUTPUT-SORT
		PERFORM COMPUTE-OUTPUT-SPOOLER-CHARGES
		MOVE 'Output Spooler Charges' TO REMARK-SORT
		READ IN-FILE AT END CLOSE IN-FILE GO TO PROCESS-OUTPUT-SPOOLER-EXIT.
	IF REC-SEQUENCE-NUMBER = '3' AND ENTRY-TYPE = '0008'
		MOVE T20-USER-NAME TO NAME-SORT
	    ELSE DISPLAY 'Incomplete output spooler entry'.
	IF ACCOUNT-SORT = SPACES
		MOVE ' Unspecified Account' TO ACCOUNT-SORT.
	RELEASE SYSTEM-SORT-RECORD.

PROCESS-OUTPUT-SPOOLER-EXIT.
	EXIT.

COMPUTE-OUTPUT-SPOOLER-CHARGES.
	COMPUTE CHARGE-SORT = CHARGE-SORT + SPOOLER-OUTPUT-SORT * WS-PAGES.
	COMPUTE CHARGE-SORT ROUNDED = CHARGE-SORT + RUNTIME-SORT * WS-PAGE-RUNTIME.

************
************

PROCESS-INPUT-SPOOLER.
	IF REC-SEQUENCE-NUMBER = '1' AND ENTRY-TYPE = '0007'
		PERFORM CHECK-RANGE-DATE-TIME
		READ IN-FILE
			AT END CLOSE IN-FILE GO TO PROCESS-INPUT-SPOOLER-EXIT.
	IF REC-SEQUENCE-NUMBER = '2' AND ENTRY-TYPE = '0007'
		MOVE ISR-ACCOUNT-STRING TO ACCOUNT-SORT
		COMPUTE RUNTIME-SORT ROUNDED = ISR-RUNTIME / 1000
		MOVE ISR-CARDS-READ TO SPOOLER-INPUT-SORT
		MOVE 'Input Spooler Charges' TO REMARK-SORT
		PERFORM COMPUTE-INPUT-SPOOLER-CHARGES
		READ IN-FILE AT END CLOSE IN-FILE GO TO PROCESS-INPUT-SPOOLER-EXIT.
	IF REC-SEQUENCE-NUMBER = '3' AND ENTRY-TYPE = '0007'
		MOVE T20-USER-NAME TO NAME-SORT
	    ELSE DISPLAY 'Incomplete input spooler entry'.
	IF ACCOUNT-SORT = SPACES
		MOVE ' Unspecified Account' TO ACCOUNT-SORT.
	RELEASE SYSTEM-SORT-RECORD.

PROCESS-INPUT-SPOOLER-EXIT.
	EXIT.

COMPUTE-INPUT-SPOOLER-CHARGES.
	COMPUTE CHARGE-SORT = CHARGE-SORT + SPOOLER-INPUT-SORT * WS-CARDS.
	COMPUTE CHARGE-SORT ROUNDED = CHARGE-SORT + RUNTIME-SORT * WS-CARD-RUNTIME.

**********************************************************************
*	END OF COMMON SUBROUTINES USED BY REPORTS OF SYSTEM USAGE
**********************************************************************
**********************************************************************
*	REPORT BY DISK USAGE SORTED ON DIRECTORY SUBROUTINE SECTION
**********************************************************************

REPORT-BY-DISK-NAME.
	SORT SORT-USAGE
		ASCENDING KEY DIRECTORY-SORT, ACCOUNT-SORT, STRUCTURE-SORT
		INPUT PROCEDURE IS REPORT-BY-DISK-NAME-IN THRU
			REPORT-BY-DISK-NAME-IN-EXIT
		OUTPUT PROCEDURE IS REPORT-BY-DISK-NAME-OUT THRU
			REPORT-BY-DISK-NAME-OUT-EXIT.

*************

REPORT-BY-DISK-NAME-IN.
	OPEN INPUT IN-FILE.

RBDNI-1.
	READ IN-FILE AT END CLOSE IN-FILE
		GO TO REPORT-BY-DISK-NAME-IN-EXIT.
	IF ENTRY-TYPE = '0009'
		PERFORM MAKE-DISK-SORT-RECORD
	    ELSE IF ENTRY-TYPE = '0001' OR '0004'
		PERFORM PROCESS-HEADER-ENTRY THRU PROCESS-HEADER-ENTRY-EXIT.
	GO TO RBDNI-1.

REPORT-BY-DISK-NAME-IN-EXIT.
	EXIT.

************

REPORT-BY-DISK-NAME-OUT.
	OPEN OUTPUT OUT-FILE.
	INITIATE DNAMES.
	MOVE LETTER-MONTH (WS-START-MON) TO WS-START-MMM.
	MOVE SPACES TO WS-STRUCTURE, WS-DIRECTORY, WS-ACCOUNT.
	MOVE ZEROES TO WS-AVGPAGE, WS-PAGE-NUMBER, WS-RECORDS-READ.

RBDNO-1.
	RETURN SORT-USAGE AT END TERMINATE DNAMES
		CLOSE OUT-FILE
		GO TO REPORT-BY-DISK-NAME-OUT-EXIT.
	PERFORM GET-FILE-AVERAGE.
	GENERATE DNAMES.
	GO TO RBDNO-1.

REPORT-BY-DISK-NAME-OUT-EXIT.
	EXIT.

**********************************************************************
*	END OF REPORT BY DISK USAGE SORTED ON NAME SUBROUTINE SECTION
**********************************************************************
********************************************************************
*	REPORT BY DISK USAGE SORTED ON ACCOUNT SUBROUTINE SECTION
**********************************************************************

REPORT-BY-DISK-ACCOUNT.
	SORT SORT-USAGE
		ASCENDING KEY ACCOUNT-SORT, DIRECTORY-SORT, STRUCTURE-SORT
		INPUT PROCEDURE IS REPORT-BY-DACCOUNT-IN THRU
			REPORT-BY-DACCOUNT-IN-EXIT
		OUTPUT PROCEDURE IS REPORT-BY-DACCOUNT-OUT THRU
			REPORT-BY-DACCOUNT-OUT-EXIT.

*************

REPORT-BY-DACCOUNT-IN.
	OPEN INPUT IN-FILE.

RBDAI-1.
	READ IN-FILE AT END CLOSE IN-FILE
		GO TO REPORT-BY-DACCOUNT-IN-EXIT.
	IF ENTRY-TYPE = '0009'
		PERFORM MAKE-DISK-SORT-RECORD
	    ELSE IF ENTRY-TYPE = '0001' OR '0004'
		PERFORM PROCESS-HEADER-ENTRY THRU PROCESS-HEADER-ENTRY-EXIT.
	GO TO RBDAI-1.

REPORT-BY-DACCOUNT-IN-EXIT.
	EXIT.

************

REPORT-BY-DACCOUNT-OUT.
	OPEN OUTPUT OUT-FILE.
	INITIATE DACCOUNTS.
	MOVE LETTER-MONTH (WS-START-MON) TO WS-START-MMM.
	MOVE SPACES TO WS-STRUCTURE, WS-DIRECTORY, WS-ACCOUNT.
	MOVE ZEROES TO WS-AVGPAGE, WS-PAGE-NUMBER, WS-RECORDS-READ.

RBDAO-1.
	RETURN SORT-USAGE AT END TERMINATE DACCOUNTS
		CLOSE OUT-FILE
		GO TO REPORT-BY-DACCOUNT-OUT-EXIT.
	PERFORM GET-FILE-AVERAGE.
	GENERATE DACCOUNTS.
	GO TO RBDAO-1.

REPORT-BY-DACCOUNT-OUT-EXIT.
	EXIT.

**********************************************************************
*	END OF REPORT BY DISK USAGE SORTED ON ACCOUNT SUBROUTINE SECTION
**********************************************************************
**********************************************************************
*	COMMON SUBROUTINES USED BY REPORTS OF DISK USAGE
**********************************************************************

MAKE-DISK-SORT-RECORD.
	MOVE SPACES TO DISK-SORT-RECORD.
	IF REC-SEQUENCE-NUMBER = '1' AND ENTRY-TYPE = '0009'
		PERFORM CHECK-DISK-DATE-TIME
		READ IN-FILE AT END CLOSE IN-FILE
	    ELSE IF REC-SEQUENCE-NUMBER = '2' AND ENTRY-TYPE = '0009'
		READ IN-FILE AT END CLOSE IN-FILE
	    ELSE IF REC-SEQUENCE-NUMBER = '3' AND ENTRY-TYPE = '0009'
		MOVE DAR-ACCOUNT-STRING TO ACCOUNT-SORT
		MOVE DAR-PPN-DIRECTORY TO DIRECTORY-SORT
		MOVE DAR-ACTUAL-DISK TO DISK-PAGE-SORT
		MOVE DAR-FILE-NUMBER TO FILE-SORT
		MOVE DAR-STRUCTURE-NAME TO STRUCTURE-SORT
		PERFORM COMPUTE-DISK-CHARGES
		PERFORM CHECK-FOR-SPACES
		RELEASE DISK-SORT-RECORD.

************

CHECK-FOR-SPACES.
	IF ACCOUNT-SORT = SPACES
		MOVE ' UNSPECIFIED ACCOUNT' TO ACCOUNT-SORT.

CHECK-DISK-DATE-TIME.
	IF WS-START-DATE-TIME > EHR-DATE-TIME
		MOVE EHR-DATE-TIME TO WS-START-DATE-TIME.

COMPUTE-DISK-CHARGES.
	COMPUTE CHARGE-SORT = CHARGE-SORT + DISK-PAGE-SORT * WS-DISK-PAGES.

GET-FILE-AVERAGE.
	IF WS-STRUCTURE NOT = STRUCTURE-SORT
			OR WS-DIRECTORY NOT = DIRECTORY-SORT
			OR WS-ACCOUNT NOT = ACCOUNT-SORT
		MOVE STRUCTURE-SORT TO WS-STRUCTURE
		MOVE DIRECTORY-SORT TO WS-DIRECTORY
		MOVE ACCOUNT-SORT TO WS-ACCOUNT
		COMPUTE WS-AVGPAGE ROUNDED = WS-PAGE-NUMBER / WS-RECORDS-READ
		MOVE 1 TO WS-RECORDS-READ
		MOVE DISK-PAGE-SORT TO WS-PAGE-NUMBER
	    ELSE ADD 1 TO WS-RECORDS-READ
		ADD DISK-PAGE-SORT TO WS-PAGE-NUMBER.

**********************************************************************
*	END OF COMMON SUBROUTINES USED BY REPORTS OF DISK USAGE
**********************************************************************
************************************************************************
*	HELP SUBROUTINES
************************************************************************

DISPLAY-HELP-INPUT.
	DISPLAY 'Type file name  of  input  file  containing  USAGE  entries.'.
	DISPLAY 'Default is USAGE.OUT.'.
	PERFORM DISPLAY-EXIT-HELP.

DISPLAY-HELP-OUTPUT.
	DISPLAY 'Type file name of new output file.  Default is USAGE.RPT.'.
	PERFORM DISPLAY-EXIT-HELP.

DISPLAY-HELP-REPORT.
	DISPLAY 'Type S for system usage  report.   Type  D  for  disk  usage'.
	DISPLAY 'report.  Default is S.'.
	PERFORM DISPLAY-EXIT-HELP.


DISPLAY-HELP-SORT.
	DISPLAY 'Type N if reports are  broken  down  by  name.   Type  A  if'.
	DISPLAY 'reports are broken down by account.  Default is N.'.
	PERFORM DISPLAY-EXIT-HELP.


DISPLAY-EXIT-HELP.
	DISPLAY 'Type EXIT to return to monitor mode.  Type ?   to  get  this'.
	DISPLAY 'help message.'.