DELETE AM; DEFINE DOMAIN AM OF BASE-AM, CODES USING 01 AM OCCURS FOR BASE-AM WITH CODE=12,13,14,15. 10 TYPES OCCURS FOR CODES WITH KEY=CODE. 20 TYPE FROM CODES. 10 DEPT FROM BASE-AM. 10 NBR FROM BASE-AM. 10 TERMINAL FROM BASE-AM. 10 ACNT FROM BASE-AM. 10 DATE FROM BASE-AM. 10 TIM FROM BASE-AM. 10 TIMR FROM BASE-AM. 10 TIME FROM BASE-AM. 10 DEVICE FROM BASE-AM. ; DELETE BASE; DEFINE DOMAIN BASE USING BASE-REC ON ACCOUNT.DOM; DELETE BASE-AM; DEFINE DOMAIN BASE-AM USING BASE-AM-REC ON ACCOUNT.DOM; DELETE BASE-CRASH; DEFINE DOMAIN BASE-CRASH USING BASE-CRASH-REC ON ACCOUNT.DOM; DELETE BASE-DEVICE; DEFINE DOMAIN BASE-DEVICE USING BASE-DEVICE-REC ON ACCOUNT.DOM; DELETE BASE-INV; DEFINE DOMAIN BASE-INV USING BASE-INV-REC ON ACCOUNT.DOM; DELETE BASE-LOGIN; DEFINE DOMAIN BASE-LOGIN USING BASE-LOGIN-REC ON ACCOUNT.DOM; DELETE BASE-PRINT; DEFINE DOMAIN BASE-PRINT USING BASE-PRINT-REC ON ACCOUNT.DOM; DELETE BASE-RESET; DEFINE DOMAIN BASE-RESET USING BASE-RESET-REC ON ACCOUNT.DOM; DELETE BASE-START; DEFINE DOMAIN BASE-START USING BASE-START-REC ON ACCOUNT.DOM; DELETE BASE-SYSTEM; DEFINE DOMAIN BASE-SYSTEM USING BASE-SYSTEM-REC ON ACCOUNT.DOM; DELETE BASE-TASK; DEFINE DOMAIN BASE-TASK USING BASE-TASK-REC ON ACCOUNT.DOM; DELETE BASE-TIME; DEFINE DOMAIN BASE-TIME USING BASE-TIME-REC ON ACCOUNT.DOM; DELETE BASE-USER; DEFINE DOMAIN BASE-USER USING BASE-USER-REC ON ACCOUNT.DOM; DELETE CHARGE; DEFINE DOMAIN CHARGE USING CHARGE-REC ON ACCOUNT.DOM; DELETE CODES; DEFINE DOMAIN CODES USING CODES-REC ON CODES.DOM; DELETE DEVICE-SUM; DEFINE DOMAIN DEVICE-SUM USING DEVICE-SUM-REC ON DEVSUM.SEQ; DELETE INVALID; DEFINE DOMAIN INVALID OF BASE-INV USING 01 INV-REC OCCURS FOR BASE-INV WITH CODE=10. 10 DEVICE FROM BASE-INV. 10 DATE FROM BASE-INV. 10 TIM FROM BASE-INV. 10 TIMR FROM BASE-INV. 10 TIME FROM BASE-INV. 10 TEXT FROM BASE-INV. 10 UIC FROM BASE-INV. ; DELETE LOGIN; DEFINE DOMAIN LOGIN OF BASE-LOGIN USING 01 LOGIN-REC OCCURS FOR BASE-LOGIN WITH CODE=19. 10 FI FROM BASE-LOGIN. 10 NAME FROM BASE-LOGIN. 10 DEPT FROM BASE-LOGIN. 10 NBR FROM BASE-LOGIN. 10 DEVICE FROM BASE-LOGIN. 10 ACC FROM BASE-LOGIN. 10 UIC FROM BASE-LOGIN. 10 DATE FROM BASE-LOGIN. 10 TIM FROM BASE-LOGIN. 10 TIMR FROM BASE-LOGIN. 10 TIME FROM BASE-LOGIN. ; DELETE QUEUE; DEFINE DOMAIN QUEUE OF BASE-PRINT USING 01 QUEUE OCCURS FOR BASE-PRINT WITH CODE=16. 10 DEPT FROM BASE-PRINT. 10 NBR FROM BASE-PRINT. 10 TERMINAL FROM BASE-PRINT. 10 ACNT FROM BASE-PRINT. 10 DATE FROM BASE-PRINT. 10 TIM FROM BASE-PRINT. 10 TIMR FROM BASE-PRINT. 10 TIME FROM BASE-PRINT. 10 JOB FROM BASE-PRINT. 10 PAGES FROM BASE-PRINT. 10 FILES FROM BASE-PRINT. 10 DEVICE FROM BASE-PRINT. 10 FORMS FROM BASE-PRINT. 10 PRI FROM BASE-PRINT. ; DELETE USER; DEFINE DOMAIN USER OF BASE-USER USING 01 USER-REC OCCURS FOR BASE-USER WITH CODE=02. 10 DEPT FROM BASE-USER. 10 NBR FROM BASE-USER. 10 DEVICE FROM BASE-USER. 10 ACNT FROM BASE-USER. 10 UIC FROM BASE-USER. 10 LOGIN-DATE FROM BASE-USER. 10 LITIM FROM BASE-USER. 10 LITMR FROM BASE-USER. 10 LOGIN-TIME FROM BASE-USER. 10 LOGOUT-DATE FROM BASE-USER. 10 LOTIM FROM BASE-USER. 10 LOTMR FROM BASE-USER. 10 LOGOUT-TIME FROM BASE-USER. 10 BILLING-DATE FROM BASE-USER. 10 BITIM FROM BASE-USER. 10 BITMR FROM BASE-USER. 10 BILLING-TIME FROM BASE-USER. 10 CPU-TIME FROM BASE-USER. 10 TASKS-ACTIVE FROM BASE-USER. 10 TASKS-RUN FROM BASE-USER. 10 DIRECTIVES FROM BASE-USER. 10 QIOS FROM BASE-USER. ; DELETE BI; DEFINE DOMAIN BI USING BASE-INV-REC ON ACNTMP.SEQ; DELETE AM-REPORT; DEFINE PROCEDURE AM-REPORT READY AM REPORT AM SORTED BY DATE, TIMR ON AM.RPT SET COLUMNS-PAGE=80 SET REPORT-NAME="Allocate / Mount"/"De-allocate / Dismount" PRINT TYPES, DEPT, TERMINAL, DATE, DEVICE END-REPORT FINISH END-PROCEDURE DELETE CHARGE-REPORT; DEFINE PROCEDURE CHARGE-REPORT READY CHARGE REPORT CHARGE WITH CODE=02 SORTED BY DEPT, UIC ON CHARGE.RPT SET COLUMNS-PAGE=132 SET REPORT-NAME = "System Charges by Department"/"and User" AT BOTTOM OF UIC PRINT " Account", SPACE 1, UIC(" "), TOTAL(CPU-TIME) USING ZZZ,ZZZ,ZZ9., TOTAL(TASKS-RUN) USING ZZZ,ZZZ,ZZ9., TOTAL(DIRECTIVES) USING ZZZ,ZZZ,ZZ9., TOTAL(QIOS) USING ZZZ,ZZZ,ZZ9., TOTAL(CHARGES) USING $$$,$$$,$$9.99, SKIP AT BOTTOM OF DEPT PRINT SKIP 1, "Department", SPACE 1, DEPT(" "), TOTAL(CPU-TIME) USING ZZZ,ZZZ,ZZ9., TOTAL(TASKS-RUN) USING ZZZ,ZZZ,ZZ9., TOTAL(DIRECTIVES) USING ZZZ,ZZZ,ZZ9., TOTAL(QIOS) USING ZZZ,ZZZ,ZZ9., TOTAL(CHARGES) USING $$$,$$$,$$9.99, SKIP 2 END-REPORT FINISH END-PROCEDURE DELETE CRASH-REPORT; DEFINE PROCEDURE CRASH-REPORT READY BASE-CRASH REPORT BASE-CRASH WITH CODE=20 ON CRASH.RPT SET COLUMNS-PAGE=80 SET REPORT-NAME = "System Crash Record" PRINT LAST-DATE, LAST-TIME, SCAN-RATE, RESTART-DATE, RESTART-TIME, REASON END-REPORT FINISH END-PROCEDURE DELETE DEVICE-REPORT; DEFINE PROCEDURE DEVICE-REPORT READY BASE-DEVICE REPORT BASE-DEVICE WITH (CODE=21 AND WORD-COUNT>0) SORTED BY DEVICE, DATE, TIMR ON *."Device or File" SET COLUMNS-PAGE=132 SET REPORT-NAME = "Device Statistics" PRINT DATE, TIME, DEVICE, IO-COUNT, WORD-COUNT, SOFT-LIMIT, SOFT-COUNT, HARD-LIMIT, HARD-COUNT, CYL-CROSSED, FAIR-COUNT, FAIR-LIMIT AT BOTTOM OF DEVICE PRINT SKIP, "Maximums:", MAX(IO-COUNT), MAX(WORD-COUNT), SKIP 2 END-REPORT FINISH END-PROCEDURE DELETE DEVICE-SUM-REPORT; DEFINE PROCEDURE DEVICE-SUM-REPORT DECLARE IO PIC 9(9) USAGE COMP. DECLARE WORD PIC 9(9) USAGE COMP. DECLARE CYL PIC 9(9) USAGE COMP. IO = 0 WORD = 0 CYL = 0 DEFINE FILE FOR DEVICE-SUM; READY DEVICE-SUM WRITE READY BASE-DEVICE FOR BASE-DEVICE WITH CODE = 21 SORTED BY DEVICE, DATE, TIMR BEGIN STORE DEVICE-SUM USING BEGIN DATE = DATE TIME = TIME DEVICE = DEVICE IO-SUM = IO-COUNT - IO WORD-SUM = WORD-COUNT - WORD CYL-SUM = CYL-CROSSED - CYL END IO = IO-COUNT WORD = WORD-COUNT CYL = CYL-CROSSED END FINISH BASE-DEVICE RELEASE IO RELEASE WORD RELEASE CYL REPORT DEVICE-SUM WITH IO-SUM > 0 ON DEVSUM.RPT SET COLUMNS-PAGE=80 SET REPORT-NAME = "Device Statistics Summary" PRINT DEVICE-SUM-REC AT BOTTOM OF DEVICE PRINT SKIP, "Maximums:", MAX(IO-SUM), MAX(WORD-SUM), MAX(CYL-SUM), SKIP 2 END-REPORT FINISH END-PROCEDURE DELETE INVALID-REPORT; DEFINE PROCEDURE INVALID-REPORT READY BASE-INV REPORT BASE-INV WITH CODE=10 SORTED BY DATE, TIMR ON INVALID.RPT SET COLUMNS-PAGE=80 SET REPORT-NAME="Invalid Login Transaction" PRINT DEVICE, DATE, TIME, TEXT, UIC END-REPORT FINISH END-PROCEDURE DELETE LOGIN-REPORT; DEFINE PROCEDURE LOGIN-REPORT READY BASE-LOGIN REPORT BASE-LOGIN WITH CODE=19 SORTED BY DEPT, NAME, DATE, TIMR ON LOGIN.RPT SET COLUMNS-PAGE=80 SET REPORT-NAME="Login Transaction" AT TOP OF NAME PRINT FI|NAME PRINT DEVICE, UIC, DATE, TIME USING 99,99,99 AT BOTTOM OF NAME PRINT SKIP, COL 1, "Number of logins for", SPACE 1, FI|NAME, SPACE 1, COUNT, SKIP AT BOTTOM OF DEPT PRINT SKIP, COL 1, "Number of logins for", SPACE 1, DEPT, SPACE 1, COUNT, SKIP 2 END-REPORT FINISH END-PROCEDURE DELETE LOGIN-SUMMARY; DEFINE PROCEDURE LOGIN-SUMMARY READY BASE-LOGIN REPORT BASE-LOGIN WITH CODE=19 SORTED BY DEPT, NAME, DATE, TIMR ON LOGINSUM.RPT SET COLUMNS-PAGE=80 SET REPORT-NAME = "Login Summary" AT BOTTOM OF NAME PRINT "Number of logins for ", NAME, SPACE 1, COUNT AT BOTTOM OF DEPT PRINT SKIP, "Number of logins for Department ", DEPT, SPACE 1, COUNT, SKIP 2 END-REPORT FINISH END-PROCEDURE DELETE PRINT-REPORT; DEFINE PROCEDURE PRINT-REPORT READY BASE-PRINT REPORT BASE-PRINT WITH CODE=16 SORTED BY DEPT, DATE, TIMR ON PRINT.RPT SET COLUMNS-PAGE=80 SET REPORT-NAME = "Print Queue Jobs" AT TOP OF DEPT PRINT "Department", DEPT(" "), SKIP PRINT COL 1, TERMINAL, DATE, TIME, JOB, PAGES, FILES, FORMS, DEVICE AT BOTTOM OF DEPT PRINT SKIP, "Totals", TOTAL(PAGES), TOTAL(FILES), SKIP 2 END-REPORT FINISH END-PROCEDURE DELETE RESET-REPORT; DEFINE PROCEDURE RESET-REPORT READY BASE-RESET REPORT BASE-RESET WITH CODE=22 ON RESET.RPT SET COLUMNS-PAGE=132 SET REPORT-NAME = "Accounting Reset" PRINT OLD-FILE, OLD-SEQ, OLD-DEV, NEW-FILE, NEW-SEQ, NEW-DEV, OLD-SCAN, NEW-SCAN, OLD-STAT, NEW-STAT, OLD-EXT, NEW-EXT END-REPORT FINISH END-PROCEDURE DELETE S80; DEFINE PROCEDURE S80 SET COLUMNS-PAGE=80 END-PROCEDURE DELETE STARTUP-REPORT; DEFINE PROCEDURE STARTUP-REPORT READY BASE-START REPORT BASE-START WITH CODE=09 SORTED BY DATE, TIMR ON STARTUP.RPT SET COLUMNS-PAGE=80 SET REPORT-NAME = "System Startup" PRINT DATE, TIME END-REPORT FINISH END-PROCEDURE DELETE SYS1-REPORT; DEFINE PROCEDURE SYS1-REPORT READY BASE-SYSTEM REPORT BASE-SYSTEM WITH CODE=01 ON SYS1.RPT SET COLUMNS-PAGE=132 SET REPORT-NAME = "System Account Block" PRINT START-DATE, START-TIME, END-DATE, END-TIME, STOP-CODE, FILE-ID, SEQ-NO, DEVICE, STAT-RATE, EXT-SIZE, LAST-DATE, LAST-TIME, SCAN-RATE END-REPORT FINISH END-PROCEDURE DELETE SYS2-REPORT; DEFINE PROCEDURE SYS2-REPORT READY BASE-SYSTEM REPORT BASE-SYSTEM WITH CODE=01 ON SYS2.RPT SET COLUMNS-PAGE=132 SET REPORT-NAME = "System Account Block" PRINT CPU-TIME, CPU-INT, TASKS, TOTAL-LOGGED-ON, CURRENT-LOGGED-ON, CHECK-POINTS, SHUFFLES, DIRECTIVES, QIOS END-REPORT FINISH END-PROCEDURE DELETE TASK1-REPORT; DEFINE PROCEDURE TASK1-REPORT READY BASE-TASK REPORT BASE-TASK WITH CODE=03 SORTED BY NAME, DEPT ON TASK1.RPT SET COLUMNS-PAGE=132 SET REPORT-NAME = "Task Account Block" PRINT TASK, DEPT, TERM, CURRENT-UIC, PROTECT-UIC, BEGIN-DATE, BEGIN-TIME, END-DATE, END-TIME AT BOTTOM OF DEPT PRINT SKIP,COL 1,"Number of Tasks =", SPACE, COUNT USING Z9, SKIP END-REPORT FINISH END-PROCEDURE DELETE TASK2-TASK; DEFINE PROCEDURE TASK2-TASK READY BASE-TASK REPORT BASE-TASK WITH CODE=03 SORTED BY NAME, DEPT, BEGIN-DATE, BTIMR ON DU0:TASK2TSK.RPT SET COLUMNS-PAGE=132 SET REPORT-NAME = "Task Account Block" PRINT TASK, DEPT, CPU-TIME, TASKS-ACTIVE, DIRECTIVES, QIOS, PRI, CNXT, CHECKPOINTS, OVERLAYS AT BOTTOM OF DEPT PRINT SKIP, "Total for", DEPT, TOTAL(CPU-TIME), TOTAL(DIRECTIVES), TOTAL(QIOS), TOTAL(CNXT), TOTAL(CHECKPOINTS), TOTAL(OVERLAYS), SKIP AT BOTTOM OF NAME PRINT SKIP, "Total for", SPACE 1, NAME(" "), TOTAL(CPU-TIME), TOTAL(DIRECTIVES), TOTAL(QIOS), TOTAL(CNXT), TOTAL(CHECKPOINTS), TOTAL(OVERLAYS), SKIP 2 END-REPORT FINISH END-PROCEDURE DELETE TIME-REPORT; DEFINE PROCEDURE TIME-REPORT READY BASE-TIME REPORT BASE-TIME WITH CODE=11 ON TIME.RPT SET COLUMNS-PAGE=80 SET REPORT-NAME="Time Change" PRINT OLD-DATE, OLD-TIME, NEW-DATE, NEW-TIME END-REPORT FINISH END-PROCEDURE DELETE USER1-REPORT; DEFINE PROCEDURE USER1-REPORT READY BASE-USER REPORT BASE-USER WITH CODE=02 SORTED BY UIC, LOGIN-DATE, LITIM ON USER1.RPT SET COLUMNS-PAGE=132 SET REPORT-NAME="Log Activity by User" PRINT UIC, DEVICE, DEPT, LOGIN-DATE, LOGIN-TIME, LOGOUT-DATE, LOGOUT-TIME, BILLING-DATE, BILLING-TIME AT BOTTOM OF UIC PRINT SKIP, COL 1, "Number of Sessions =", SPACE, COUNT USING ZZ9, SKIP 2 END-REPORT FINISH END-PROCEDURE DELETE USER2-DEPT; DEFINE PROCEDURE USER2-DEPT READY BASE-USER REPORT BASE-USER WITH CODE=02 SORTED BY DEPT ON USER2SUM.RPT SET COLUMNS-PAGE=80 SET REPORT-NAME="System Resources by Department"/"Summary" AT BOTTOM OF DEPT PRINT "Totals for department ", DEPT, TOTAL(CPU-TIME) USING ZZZ,ZZZ,ZZ9., TOTAL(TASKS-RUN) USING ZZZ,ZZZ,ZZ9., TOTAL(DIRECTIVES) USING ZZZ,ZZZ,ZZ9., TOTAL(QIOS) USING ZZZ,ZZZ,ZZ9 END-REPORT FINISH END-PROCEDURE DELETE USER2-REPORT; DEFINE PROCEDURE USER2-REPORT READY BASE-USER REPORT BASE-USER WITH CODE=02 SORTED BY DEPT, UIC ON USER2.RPT SET COLUMNS-PAGE=132 SET REPORT-NAME="System Resources by Department"/"and User" PRINT DEPT, UIC, DEVICE, CPU-TIME, TASKS-ACTIVE, TASKS-RUN, DIRECTIVES, QIOS("QIOs") AT BOTTOM OF UIC PRINT SKIP 1, "Totals for this user", TOTAL(CPU-TIME) USING ZZZ,ZZZ,ZZ9., TOTAL(TASKS-RUN) USING ZZZ,ZZZ,ZZ9., TOTAL(DIRECTIVES) USING ZZZ,ZZZ,ZZ9., TOTAL(QIOS) USING ZZZ,ZZZ,ZZ9., SKIP AT BOTTOM OF DEPT PRINT "Totals for this department", TOTAL(CPU-TIME) USING ZZZ,ZZZ,ZZ9., TOTAL(TASKS-RUN) USING ZZZ,ZZZ,ZZ9., TOTAL(DIRECTIVES) USING ZZZ,ZZZ,ZZ9., TOTAL(QIOS) USING ZZZ,ZZZ,ZZ9., SKIP 2 END-REPORT FINISH END-PROCEDURE DELETE CHARGE2-REPORT; DEFINE PROCEDURE CHARGE2-REPORT READY CHARGE REPORT CHARGE WITH CODE=02 SORTED BY DEPT, UIC ON CHARGE2.RPT SET COLUMNS-PAGE=78 SET REPORT-NAME = "System Charges by Department"/"and User" AT BOTTOM OF UIC PRINT "USER", SPACE 1, UIC(" "), TOTAL(CPU-TIME) USING ZZZ,ZZZ,ZZ9., TOTAL(DIRECTIVES) USING ZZZ,ZZZ,ZZ9., TOTAL(QIOS) USING ZZZ,ZZZ,ZZ9., TOTAL(CHARGES) USING $$$,$$$,$$9.99, SKIP AT BOTTOM OF DEPT PRINT SKIP 1, "DEPT", SPACE 1, DEPT(" "), TOTAL(CPU-TIME) USING ZZZ,ZZZ,ZZ9., TOTAL(DIRECTIVES) USING ZZZ,ZZZ,ZZ9., TOTAL(QIOS) USING ZZZ,ZZZ,ZZ9., TOTAL(CHARGES) USING $$$,$$$,$$9.99, SKIP 2 END-REPORT FINISH END-PROCEDURE DELETE TASK2-SUMMARY; DEFINE PROCEDURE TASK2-SUMMARY READY BASE-TASK REPORT BASE-TASK WITH CODE=03 SORTED BY NAME, DEPT ON DU0:TASK2SUM.RPT SET COLUMNS-PAGE=100 SET REPORT-NAME = "Task Account Block" AT TOP OF NAME PRINT SKIP 2, "Task", SPACE 1, NAME(" ") AT BOTTOM OF DEPT PRINT SKIP, COL 1, "Totals for", DEPT, TOTAL(CPU-TIME), TOTAL(DIRECTIVES), TOTAL(QIOS), TOTAL(CNXT), TOTAL(CHECKPOINTS), TOTAL(OVERLAYS), SKIP, COL 1, "Averages", AVERAGE(CPU-TIME), AVERAGE(DIRECTIVES), AVERAGE(QIOS), AVERAGE(CNXT), AVERAGE(CHECKPOINTS), AVERAGE(OVERLAYS), SKIP AT BOTTOM OF NAME PRINT SKIP, COL 1, "Totals", TOTAL(CPU-TIME), TOTAL(DIRECTIVES), TOTAL(QIOS), TOTAL(CNXT), TOTAL(CHECKPOINTS), TOTAL(OVERLAYS), SKIP, COL 1, "Averages", AVERAGE(CPU-TIME), AVERAGE(DIRECTIVES), AVERAGE(QIOS), AVERAGE(CNXT), AVERAGE(CHECKPOINTS), AVERAGE(OVERLAYS), SKIP 2 END-REPORT FINISH END-PROCEDURE DELETE BASE-AM-REC; DEFINE RECORD BASE-AM-REC USING ALLOCATION IS LEFT-RIGHT 01 BASE-AM-REC. 10 CODE PIC 99 USAGE COMP. 10 DEPT PIC XXX. 10 NBR PIC X(7). 10 TERMINAL PIC X(6). 10 ACNT PIC 9(4) USAGE COMP. 10 DATE USAGE DATE EDIT-STRING IS DD-MMM-YY. 10 TIM. 20 FILLER PIC 99 USAGE COMP. 20 FILLER PIC 99 USAGE COMP. 20 FILLER PIC 99 USAGE COMP. 10 TIMR REDEFINES TIM. 20 AH PIC 99 USAGE COMP. 20 AM PIC 99 USAGE COMP. 20 AS PIC 99 USAGE COMP. 10 TIME PIC 9(6) COMPUTED BY (AH * 10000) + (AM * 100) + AS EDIT-STRING 99,99,99. 10 DEVICE PIC X(6). 10 FILLER PIC X(80). ; DELETE BASE-CRASH-REC; DEFINE RECORD BASE-CRASH-REC USING ALLOCATION IS LEFT-RIGHT 01 BASE-CRASH-REC. 10 CODE PIC 99 USAGE COMP. 10 LAST-DATE USAGE DATE EDIT-STRING DD-MMM-YY. 10 LTIM. 20 FILLER PIC 99 USAGE COMP. 20 FILLER PIC 99 USAGE COMP. 20 FILLER PIC 99 USAGE COMP. 10 LTIMR REDEFINES LTIM. 20 LSH PIC 99 USAGE COMP. 20 LSM PIC 99 USAGE COMP. 20 LSS PIC 99 USAGE COMP. 10 LAST-TIME PIC 9(6) COMPUTED BY (LSH * 10000) + (LSM * 100) + LSS EDIT-STRING 99,99,99. 10 SCAN-RATE PIC 9(4) USAGE COMP EDIT-STRING Z,ZZ9. 10 RESTART-DATE USAGE DATE EDIT-STRING DD-MMM-YY. 10 RTIM. 20 FILLER PIC 99 USAGE COMP. 20 FILLER PIC 99 USAGE COMP. 20 FILLER PIC 99 USAGE COMP. 10 RTIMR REDEFINES RTIM. 20 TRH PIC 99 USAGE COMP. 20 TRM PIC 99 USAGE COMP. 20 TRS PIC 99 USAGE COMP. 10 RESTART-TIME PIC 9(6) COMPUTED BY (TRH * 10000) + (TRM * 100) + TRS EDIT-STRING 99,99,99. 10 REASON PIC X(60). 10 FILLER PIC X(28). ; DELETE BASE-DEVICE-REC; DEFINE RECORD BASE-DEVICE-REC USING ALLOCATION IS LEFT-RIGHT 01 BASE-DEVICE-REC. 10 CODE PIC 99 USAGE COMP. 10 DATE USAGE DATE EDIT-STRING IS DD-MMM-YY. 10 TIM. 20 FILLER PIC 99 USAGE COMP. 20 FILLER PIC 99 USAGE COMP. 20 FILLER PIC 99 USAGE COMP. 10 TIMR REDEFINES TIM. 20 DSTHUR PIC 99 USAGE COMP. 20 DSTMIN PIC 99 USAGE COMP. 20 DSTSEC PIC 99 USAGE COMP. 10 TIME PIC 999999 COMPUTED BY (DSTHUR * 10000) + (DSTMIN * 100) + DSTSEC EDIT-STRING 99,99,99. 10 DEVICE PIC X(6). 10 IO-COUNT PIC 9(9) USAGE COMP EDIT-STRING ZZZ,ZZZ,ZZ9. 10 WORD-COUNT PIC 9(9) USAGE COMP EDIT-STRING ZZZ,ZZZ,ZZ9. 10 SOFT-LIMIT PIC 999 USAGE COMP EDIT-STRING ZZ9. 10 SOFT-COUNT PIC 99 USAGE COMP EDIT-STRING ZZ9. 10 HARD-LIMIT PIC 999 USAGE COMP EDIT-STRING ZZ9. 10 HARD-COUNT PIC 999 USAGE COMP EDIT-STRING ZZ9. 10 CYL-CROSSED PIC 9(9) USAGE COMP EDIT-STRING ZZZ,ZZZ,ZZ9. 10 FAIR-COUNT PIC 999 USAGE COMP EDIT-STRING ZZ9. 10 FAIR-LIMIT PIC 999 USAGE COMP EDIT-STRING ZZ9. 10 FILLER PIC X(74). ; DELETE BASE-INV-REC; DEFINE RECORD BASE-INV-REC USING ALLOCATION IS LEFT-RIGHT 01 BASE-INV-REC. 10 CODE PIC 99 USAGE COMP. 10 DEVICE PIC X(6). 10 DATE USAGE DATE EDIT-STRING IS DD-MMM-YY. 10 TIM. 20 FILLER PIC 99 USAGE COMP. 20 FILLER PIC 99 USAGE COMP. 20 FILLER PIC 99 USAGE COMP. 10 TIMR REDEFINES TIM. 20 INVHUR PIC 99 USAGE COMP. 20 INVMIN PIC 99 USAGE COMP. 20 INVSEC PIC 99 USAGE COMP. 10 TIME PIC 9(6) COMPUTED BY (INVHUR * 10000) + (INVMIN * 100) + INVSEC EDIT-STRING 99,99,99. 10 TEXT PIC X(14). 10 UIC PIC X(10). 10 FILLER PIC X(74). ; DELETE BASE-LOGIN-REC; DEFINE RECORD BASE-LOGIN-REC USING ALLOCATION IS LEFT-RIGHT 01 BASE-LOGIN-REC. 10 CODE PIC 99 USAGE COMP. 10 FI PIC XX . 10 NAME PIC X(14). 10 DEPT PIC XXX. 10 NBR PIC X(7). 10 DEVICE PIC X(6). 10 ACC PIC 9(4) USAGE COMP. 10 UIC PIC X(10). 10 DATE USAGE DATE EDIT-STRING IS DD-MMM-YY. 10 TIM. 20 FILLER PIC 99 USAGE COMP. 20 FILLER PIC 99 USAGE COMP. 20 FILLER PIC 99 USAGE COMP. 10 TIMR REDEFINES TIM. 20 LH PIC 99 USAGE COMP. 20 LM PIC 99 USAGE COMP. 20 LS PIC 99 USAGE COMP. 10 TIME PIC 9(6) COMPUTED BY (LH * 10000) + (LM * 100) + LS EDIT-STRING 99,99,99. 10 FILLER PIC X(60). ; DELETE BASE-PRINT-REC; DEFINE RECORD BASE-PRINT-REC USING ALLOCATION IS LEFT-RIGHT 01 BASE-PRINT-REC. 10 CODE PIC 99 USAGE COMP. 10 DEPT PIC XXX. 10 NBR PIC X(7). 10 TERMINAL PIC X(6). 10 ACNT PIC 9(4) USAGE COMP. 10 DATE USAGE DATE EDIT-STRING IS DD-MMM-YY. 10 TIM. 20 FILLER PIC 99 USAGE COMP. 20 FILLER PIC 99 USAGE COMP. 20 FILLER PIC 99 USAGE COMP. 10 TIMR REDEFINES TIM. 20 PH PIC 99 USAGE COMP. 20 PM PIC 99 USAGE COMP. 20 PS PIC 99 USAGE COMP. 10 TIME PIC 9(6) COMPUTED BY (( PH * 10000 ) + ( PM * 100 ) + PS) EDIT-STRING 99,99,99. 10 JOB PIC X(10). 10 PAGES PIC 9(4) USAGE COMP EDIT-STRING IS Z,ZZ9. 10 FILES PIC 9(4) USAGE COMP EDIT-STRING IS Z,ZZ9. 10 DEVICE PIC X(6). 10 FORMS PIC 999 USAGE COMP EDIT-STRING IS ZZ9. 10 PRI PIC 999 USAGE COMP EDIT-STRING IS ZZ9. 10 FILLER PIC X(62). ; DELETE BASE-REC; DEFINE RECORD BASE-REC USING ALLOCATION IS LEFT-RIGHT 01 BASE-REC. 03 CODE PIC 99 USAGE COMP. 03 FILLER PIC X(118). ; DELETE BASE-RESET-REC; DEFINE RECORD BASE-RESET-REC USING ALLOCATION IS LEFT-RIGHT 01 BASE-RESET-REC. 10 CODE PIC 99 USAGE COMP. 10 OLD-FILE PIC 9(4) USAGE COMP. 10 OLD-SEQ PIC 9(4) USAGE COMP. 10 OLD-DEV PIC X(6). 10 NEW-FILE PIC 9(4) USAGE COMP. 10 NEW-SEQ PIC 9(4) USAGE COMP. 10 NEW-DEV PIC X(6). 10 OLD-SCAN PIC 9(4) USAGE COMP EDIT-STRING Z,ZZ9. 10 NEW-SCAN PIC 9(4) USAGE COMP EDIT-STRING Z,ZZ9. 10 OLD-STAT PIC 9(4) USAGE COMP EDIT-STRING Z,ZZ9. 10 NEW-STAT PIC 9(4) USAGE COMP EDIT-STRING Z,ZZ9. 10 OLD-EXT PIC 9(4) USAGE COMP EDIT-STRING Z,ZZ9. 10 NEW-EXT PIC 9(4) USAGE COMP EDIT-STRING Z,ZZ9. 10 FILLER PIC X(86). ; DELETE BASE-START-REC; DEFINE RECORD BASE-START-REC USING ALLOCATION IS LEFT-RIGHT 01 BASE-START-REC. 10 CODE PIC 99 USAGE COMP. 10 DATE USAGE DATE EDIT-STRING DD-MMM-YY. 10 TIM. 20 FILLER PIC 99 USAGE COMP. 20 FILLER PIC 99 USAGE COMP. 20 FILLER PIC 99 USAGE COMP. 10 TIMR REDEFINES TIM. 20 SH PIC 99 USAGE COMP. 20 SM PIC 99 USAGE COMP. 20 SS PIC 99 USAGE COMP. 10 TIME PIC 9(6) COMPUTED BY (SH * 10000) + (SM * 100) + SS EDIT-STRING 99,99,99. 10 FILLER PIC X(104). ; DELETE BASE-SYSTEM-REC; DEFINE RECORD BASE-SYSTEM-REC USING ALLOCATION IS LEFT-RIGHT 01 BASE-SYSTEM-REC. 10 CODE PIC 99 USAGE COMP. 10 START-DATE USAGE DATE EDIT-STRING DD-MMM-YY. 10 STIM. 20 FILLER PIC 99 USAGE COMP. 20 FILLER PIC 99 USAGE COMP. 20 FILLER PIC 99 USAGE COMP. 10 STIMR REDEFINES STIM. 20 SH PIC 99 USAGE COMP. 20 SM PIC 99 USAGE COMP. 20 SS PIC 99 USAGE COMP. 10 START-TIME PIC 9(6) COMPUTED BY (SH * 10000) + (SM * 100) + SS EDIT-STRING 99,99,99. 10 END-DATE USAGE DATE EDIT-STRING DD-MMM-YY. 10 ETIM. 20 FILLER PIC 99 USAGE COMP. 20 FILLER PIC 99 USAGE COMP. 20 FILLER PIC 99 USAGE COMP. 10 ETIMR REDEFINES ETIM. 20 EH PIC 99 USAGE COMP. 20 EM PIC 99 USAGE COMP. 20 ES PIC 99 USAGE COMP. 10 END-TIME PIC 9(6) COMPUTED BY (EH * 10000) + (EM * 100) + ES EDIT-STRING 99,99,99. 10 STOP-CODE PIC 99 USAGE COMP. 10 FILE-ID PIC 9(4) USAGE COMP. 10 SEQ-NO PIC 9(4) USAGE COMP. 10 DEVICE PIC X(6). 10 STAT-RATE PIC 9(4) USAGE COMP EDIT-STRING Z,ZZ9. 10 EXT-SIZE PIC 9(4) USAGE COMP EDIT-STRING Z,ZZ9. 10 LAST-DATE USAGE DATE EDIT-STRING DD-MMM-YY. 10 LTIM. 20 FILLER PIC 99 USAGE COMP. 20 FILLER PIC 99 USAGE COMP. 20 FILLER PIC 99 USAGE COMP. 10 LTIMR REDEFINES LTIM. 20 LH PIC 99 USAGE COMP. 20 LM PIC 99 USAGE COMP. 20 LS PIC 99 USAGE COMP. 10 LAST-TIME PIC 9(6) COMPUTED BY (LH * 10000) + (LM * 100) + LS EDIT-STRING 99,99,99. 10 SCAN-RATE PIC 9(4) USAGE COMP EDIT-STRING Z,ZZ9. 10 CPU-TIME PIC 9(9) USAGE COMP EDIT-STRING ZZZ,ZZZ,ZZ9. 10 CPU-INT PIC 9(9) USAGE COMP EDIT-STRING ZZZ,ZZZ,ZZ9. 10 TASKS PIC 9(9) USAGE COMP EDIT-STRING ZZZ,ZZZ,ZZ9. 10 TOTAL-LOGGED-ON PIC 9(9) USAGE COMP EDIT-STRING ZZZ,ZZZ,ZZ9. 10 CURRENT-LOGGED-ON PIC 9(4) USAGE COMP EDIT-STRING Z,ZZ9. 10 CHECK-POINTS PIC 9(9) USAGE COMP EDIT-STRING ZZZ,ZZZ,ZZ9. 10 SHUFFLES PIC 9(9) USAGE COMP EDIT-STRING ZZZ,ZZZ,ZZ9. 10 DIRECTIVES PIC 9(9) USAGE COMP EDIT-STRING ZZZ,ZZZ,ZZ9. 10 QIOS PIC 9(9) USAGE COMP EDIT-STRING ZZZ,ZZZ,ZZ9. 10 FILLER PIC X(24). ; DELETE BASE-TASK-REC; DEFINE RECORD BASE-TASK-REC USING ALLOCATION IS LEFT-RIGHT 01 BASE-TASK-REC. 10 CODE PIC 99 USAGE COMP. 10 DEPT PIC XXX. 10 NBR PIC X(7). 10 TERM PIC X(6). 10 ACNT PIC 9(4) USAGE COMP. 10 CURRENT-UIC PIC X(10). 10 PROTECT-UIC PIC X(10). 10 TASK PIC X(10). 10 NAMES REDEFINES TASK. 20 NAME PIC XXX. 20 EXT PIC X(7). 10 BEGIN-DATE USAGE DATE EDIT-STRING DD-MMM-YY. 10 BTIM. 20 FILLER PIC 99 USAGE COMP. 20 FILLER PIC 99 USAGE COMP. 20 FILLER PIC 99 USAGE COMP. 10 BTIMR REDEFINES BTIM. 20 BH PIC 99 USAGE COMP. 20 BM PIC 99 USAGE COMP. 20 BS PIC 99 USAGE COMP. 10 BEGIN-TIME PIC 9(6) COMPUTED BY (BH * 10000) + (BM * 100) + BS EDIT-STRING 99,99,99. 10 END-DATE USAGE DATE EDIT-STRING DD-MMM-YY. 10 ETIM. 20 FILLER PIC 99 USAGE COMP. 20 FILLER PIC 99 USAGE COMP. 20 FILLER PIC 99 USAGE COMP. 10 ETIMR REDEFINES ETIM. 20 EH PIC 99 USAGE COMP. 20 EM PIC 99 USAGE COMP. 20 ES PIC 99 USAGE COMP. 10 END-TIME PIC 9(6) COMPUTED BY (EH * 10000) + (EM * 100) * ES EDIT-STRING 99,99,99. 10 CPU-TIME PIC 9(9) USAGE COMP EDIT-STRING ZZZ,ZZZ,ZZ9. 10 TASKS-ACTIVE PIC 9(9) USAGE COMP EDIT-STRING ZZZ,ZZZ,ZZ9. 10 DIRECTIVES PIC 9(9) USAGE COMP EDIT-STRING ZZZ,ZZZ,ZZ9. 10 QIOS PIC 9(9) USAGE COMP EDIT-STRING ZZZ,ZZZ,ZZ9. 10 PRI PIC 999 USAGE COMP EDIT-STRING ZZ9. 10 CNXT PIC 9(9) USAGE COMP EDIT-STRING ZZZ,ZZZ,ZZ9. 10 CHECKPOINTS PIC 9(9) USAGE COMP EDIT-STRING ZZZ,ZZZ,ZZ9. 10 OVERLAYS PIC 9(9) USAGE COMP EDIT-STRING ZZZ,ZZZ,ZZ9. 10 FILLER PIC X(12). ; DELETE BASE-TIME-REC; DEFINE RECORD BASE-TIME-REC USING ALLOCATION IS LEFT-RIGHT 01 BASE-TIME-REC. 10 CODE PIC 99 USAGE COMP. 10 OLD-DATE USAGE DATE EDIT-STRING DD-MMM-YY. 10 OTIM. 20 FILLER PIC 99 USAGE COMP. 20 FILLER PIC 99 USAGE COMP. 20 FILLER PIC 99 USAGE COMP. 10 OTIMR REDEFINES OTIM. 20 OH PIC 99 USAGE COMP. 20 OM PIC 99 USAGE COMP. 20 OS PIC 99 USAGE COMP. 10 OLD-TIME PIC 9(6) COMPUTED BY (OH * 10000) + (OM * 100) + OS EDIT-STRING 99,99,99. 10 NEW-DATE USAGE DATE EDIT-STRING DD-MMM-YY. 10 NTIM. 20 FILLER PIC 99 USAGE COMP. 20 FILLER PIC 99 USAGE COMP. 20 FILLER PIC 99 USAGE COMP. 10 NTIMR REDEFINES NTIM. 20 NH PIC 99 USAGE COMP. 20 NM PIC 99 USAGE COMP. 20 NS PIC 99 USAGE COMP. 10 NEW-TIME PIC 9(6) COMPUTED BY (NH * 10000) + (NM * 100) + NS EDIT-STRING 99,99,99. 10 FILLER PIC X(90). ; DELETE BASE-USER-REC; DEFINE RECORD BASE-USER-REC USING ALLOCATION IS LEFT-RIGHT 01 USER-REC. 10 CODE PIC 99 USAGE COMP. 10 DEPT PIC XXX. 10 NBR PIC X(7). 10 DEVICE PIC X(6). 10 ACNT PIC 9(4) USAGE COMP. 10 UIC PIC X(10). 10 LOGIN-DATE USAGE DATE EDIT-STRING DD-MMM-YY. 10 LITIM. 20 FILLER PIC 99 USAGE COMP. 20 FILLER PIC 99 USAGE COMP. 20 FILLER PIC 99 USAGE COMP. 10 LITMR REDEFINES LITIM. 20 LIH PIC 99 USAGE COMP. 20 LIM PIC 99 USAGE COMP. 20 LIS PIC 99 USAGE COMP. 10 LOGIN-TIME PIC 999999 COMPUTED BY (LIH * 10000) + (LIM * 100) + LIS EDIT-STRING 99,99,99. 10 LOGOUT-DATE USAGE DATE EDIT-STRING DD-MMM-YY. 10 LOTIM. 20 FILLER PIC 99 USAGE COMP. 20 FILLER PIC 99 USAGE COMP. 20 FILLER PIC 99 USAGE COMP. 10 LOTMR REDEFINES LOTIM. 20 LOH PIC 99 USAGE COMP. 20 LOM PIC 99 USAGE COMP. 20 LOS PIC 99 USAGE COMP. 10 LOGOUT-TIME PIC 999999 COMPUTED BY (LOH * 10000) + (LOM * 100) + LOS EDIT-STRING 99,99,99. 10 BILLING-DATE USAGE DATE EDIT-STRING DD-MMM-YY. 10 BITIM. 20 FILLER PIC 99 USAGE COMP. 20 FILLER PIC 99 USAGE COMP. 20 FILLER PIC 99 USAGE COMP. 10 BITMR REDEFINES BITIM. 20 BIH PIC 99 USAGE COMP. 20 BIM PIC 99 USAGE COMP. 20 BIS PIC 99 USAGE COMP. 10 BILLING-TIME PIC 999999 COMPUTED BY (BIH * 10000) + (BIM * 100) + BIS EDIT-STRING 99,99,99. 10 CPU-TIME PIC 9(9) USAGE COMP EDIT-STRING ZZZ,ZZZ,ZZ9. 10 TASKS-ACTIVE PIC 999 USAGE COMP EDIT-STRING ZZ9. 10 TASKS-RUN PIC 9(9) USAGE COMP EDIT-STRING ZZZ,ZZZ,ZZ9. 10 DIRECTIVES PIC 9(9) USAGE COMP EDIT-STRING ZZZ,ZZZ,ZZ9. 10 QIOS PIC 9(9) USAGE COMP EDIT-STRING ZZZ,ZZZ,ZZ9. 10 FILLER PIC X(30). ; DELETE CODES-REC; DEFINE RECORD CODES-REC USING ALLOCATION IS LEFT-RIGHT 01 CODES-REC. 03 KEY PIC 99 USAGE COMP. 03 TYPE PIC X(16). ; DELETE DEVICE-SUM-REC; DEFINE RECORD DEVICE-SUM-REC USING ALLOCATION IS LEFT-RIGHT 01 DEVICE-SUM-REC. 10 DATE PIC X(9). 10 TIME PIC 9(6) EDIT-STRING 99,99,99. 10 DEVICE PIC X(6). 10 IO-SUM PIC 9(9) USAGE COMP EDIT-STRING ZZZ,ZZZ,ZZ9 QUERY-HEADER "I/O COUNT". 10 WORD-SUM PIC 9(9) USAGE COMP EDIT-STRING ZZZ,ZZZ,ZZ9 QUERY-HEADER "WORD COUNT". 10 CYL-SUM PIC 9(9) USAGE COMP EDIT-STRING ZZZ,ZZZ,ZZ9 QUERY-HEADER "CYLINDERS"/"CROSSED". ; DELETE CHARGE-REC; DEFINE RECORD CHARGE-REC USING ALLOCATION IS LEFT-RIGHT 01 CHARGE-REC. 10 CODE PIC 99 USAGE COMP. 10 DEPT PIC XXX. 10 NBR PIC X(7). 10 DEVICE PIC X(6). 10 ACNT PIC 9(4) USAGE COMP. 10 UIC PIC X(10). 10 LOGIN-DATE USAGE DATE. 10 LITIM. 20 FILLER PIC X(6). 10 LITMR REDEFINES LITIM. 20 LIH PIC 99 USAGE COMP. 20 LIM PIC 99 USAGE COMP. 20 LIS PIC 99 USAGE COMP. 20 LID PIC 9(18) COMPUTED BY (0.0000001 * LOGIN-DATE). 10 LOGIN-TIME PIC 9(6) COMPUTED BY (LIH * 10000) + (LIM * 100) + LIS EDIT-STRING 99,99,99. 10 LOGOUT-DATE USAGE DATE. 10 LOTIM. 20 FILLER PIC X(6). 10 LOTMR REDEFINES LOTIM. 20 LOH PIC 99 USAGE COMP. 20 LOM PIC 99 USAGE COMP. 20 LOS PIC 99 USAGE COMP. 10 LOGOUT-TIME PIC 9(6) COMPUTED BY (LOH * 10000) + (LOM * 100) + LOS EDIT-STRING 99,99,99. 10 BILLING-DATE USAGE DATE. 10 BITIM. 20 FILLER PIC X(6). 10 BITMR REDEFINES BITIM. 20 BIH PIC 99 USAGE COMP. 20 BIM PIC 99 USAGE COMP. 20 BIS PIC 99 USAGE COMP. 20 BID PIC 9(18) COMPUTED BY (0.0000001 * BILLING-DATE). 10 BILLING-TIME PIC 9(6) COMPUTED BY (BIH * 10000) + (BIM * 100) + BIS EDIT-STRING 99,99,99. 10 ELAPSED PIC 9(12) EDIT-STRING ZZZ,ZZ9 COMPUTED BY (BID - LID). 10 CPU-TIME PIC 9(9) USAGE COMP EDIT-STRING ZZZ,ZZZ,ZZ9. 10 TASKS-ACTIVE PIC 999 USAGE COMP EDIT-STRING ZZ9. 10 TASKS-RUN PIC 9(9) USAGE COMP EDIT-STRING ZZZ,ZZZ,ZZ9. 10 DIRECTIVES PIC 9(9) USAGE COMP EDIT-STRING ZZZ,ZZZ,ZZ9. 10 QIOS PIC 9(9) USAGE COMP EDIT-STRING ZZZ,ZZZ,ZZ9. 10 FILLER PIC X(30). 10 CHARGES PIC 99999V99 COMPUTED BY (CPU-TIME * 0.001) + (DIRECTIVES * 0.0003) + (QIOS * 0.0008) EDIT-STRING $$,$$$.Z9. ;