DELETE LOG;
DEFINE DOMAIN LOG
 USING TASKREC ON LOGDATA.OUT;
DELETE TASKREC;
DEFINE RECORD TASKREC
 USING
01 TASK .
  03 UIC .
    06 GROUP PIC ZZ9 .
    06 USER  PIC ZZ9 .
   03 TASKNAME PIC XXXXXX .
   03 START .
    06 STARTDATE .
     09 YEAR  PIC Z9 .
     09 MONTH PIC Z9 .
     09 DAY   PIC Z9 .
    06 STARTTIME .
     09 HOUR   PIC Z9 .
     09 MINUTE PIC Z9 .
     09 SECOND PIC Z9 .
    06 ALPHAMONTH PIC XXX .
   03 PRIORITY PIC ZZZ9 EDIT-STRING IS ZZZ9 QUERY-NAME IS PRI .
   03 MEMORY   PIC ZZZ9 EDIT-STRING IS ZZZ9 QUERY-NAME IS MEM .
   03 TIMES .
    06 WALLTIME PIC ZZZZZ9.9 EDIT-STRING IS ZZZZZ9.9 QUERY-NAME IS WLT .
    06 DISKTIME PIC ZZZZZ9.9 EDIT-STRING IS ZZZZZ9.9 QUERY-NAME IS DKT .
    06 LPTIME   PIC ZZZZZ9.9 EDIT-STRING IS ZZZZZ9.9 QUERY-NAME IS LPT .
    06 CPUTIME  PIC ZZZZZ9.9 EDIT-STRING IS ZZZZZ9.9 QUERY-NAME IS CPT .
    06 ELAPTIME PIC ZZZZZ9.9 EDIT-STRING IS ZZZZZ9.9 QUERY-NAME IS ETT .
   03 RATES .
    06 DISKRATE PIC Z9.99999 EDIT-STRING IS Z9.99999 QUERY-NAME IS DKR .
    06 LPRATE   PIC Z9.99999 EDIT-STRING IS Z9.99999 QUERY-NAME IS LPR .
    06 CPURATE  PIC Z9.99999 EDIT-STRING IS Z9.99999 QUERY-NAME IS CPR .
    06 ELAPRATE PIC Z9.99999 EDIT-STRING IS Z9.99999 QUERY-NAME IS ETR .
    06 FACTOR   PIC Z9.99999 EDIT-STRING IS Z9.99999 QUERY-NAME IS FCR .
   03 DOLLARS PIC ZZZZZ9.99 EDIT-STRING IS $$$$$9.99 .
;
DELETE ACCOUNTING-REPORT;
DEFINE PROCEDURE ACCOUNTING-REPORT
REPORT LOG WITH GROUP GE 310 SORTED BY UIC,STARTDATE,
     STARTTIME ON LP:
SET REPORT-NAME="SANTA FE ENGINEERING RESEARCH & DEVELOPMENT"/
                "PDP 11/70 ACCOUNT BILLING"
AT TOP OF PAGE PRINT REPORT-HEADER, SKIP, COL 60, "UIC=[", COL 65,
                GROUP+0 USING 999, COL 68,",", COL 69, USER+0 USING 999,
                COL 72, "]", SKIP, COLUMN-HEADER
AT BOTTOM OF STARTDATE PRINT SKIP
PRINT DAY|"-"|ALPHAMONTH|"-"|YEAR ("DATE") USING 99XXXXX99 ,
     COL 12, (HOUR+0)|":"|(MINUTE+0)|":"|(SECOND+0) ("TIME") USING 99X99X99 ,
     COL 21,TASKNAME ("TASK"/"NAME"),
     COL 28,PRIORITY ("PRI"),
     COL 32,MEM      ("MEM"/" KB"),
     COL 36,ELAPTIME ("AMOUNT"/"SECS|BLK"),
     COL 45,ELAPRATE ("ELAPSED"/"RATE"),
     COL 55,DISKTIME ("DISK I/O"/"SECONDS"),
     COL 64,DISKRATE ("DISK I/O"/"RATE"),
     COL 74,LPTIME   ("PRINTER"/"SECONDS"),
     COL 83,LPRATE   ("PRINTER"/"RATE"),
     COL 93,CPUTIME  ("CPU"/"SECONDS"),
     COL 102,CPURATE ("CPU"/"RATE"),
     COL 112,FACTOR  ("RATE"/"FACTOR"),
     COL 122,DOLLARS ("COST")
AT BOTTOM OF UIC PRINT SKIP 1,COL 4,"TOTALS",
     COL 34,TOTAL ELAPTIME   USING ZZZZZZZ9.9,
     COL 53,TOTAL DISKTIME   USING ZZZZZZZ9.9,
     COL 72,TOTAL LPTIME     USING ZZZZZZZ9.9,
     COL 91,TOTAL CPUTIME    USING ZZZZZZZ9.9,
     COL 121,TOTAL DOLLARS USING $$$$$$9.99,
     SKIP 2, COL 10,
     "NOTE 1. - TASKS WITH NAME 'LOG$nn' REPRESENT TERMINAL TT:nn SIGNON TIME.",
     SKIP, COL 10,
     "NOTE 2. - TASKS WITH NAME 'DPnn$$' REPRESENT DISK STORAGE.  THE NUMBER"|
     " OF BLOCKS IS SHOWN UNDER 'AMOUNT'"
AT TOP OF UIC PRINT NEW-PAGE
AT BOTTOM OF REPORT PRINT NEW-PAGE,COL 4,"REPORT TOTALS",
     COL 33,TOTAL ELAPTIME   USING ZZZZZZZZ9.9,
     COL 52,TOTAL DISKTIME   USING ZZZZZZZZ9.9,
     COL 71,TOTAL LPTIME     USING ZZZZZZZZ9.9,
     COL 90,TOTAL CPUTIME    USING ZZZZZZZZ9.9,
     COL 120,TOTAL DOLLARS   USING $$$$$$$9.99
REPORT END
END-PROCEDURE