dC FORTRAN PARAMETER FILE FOR BILLING PROGRAMS C ,C CREATED: 29-MAY-1980 BY K. RODRIGUEZ C ! The following variables are used in one or more types of records. X! ! The types of records and their corresponding message types (BILL_W_MSGTYP) ! are displayed in the following table. ! ! Normal BY FOR Acquisition L! ! Non-interactive process 1 21 41 61 ! Batch process 2 22 42 62 x! Interactive process 3 23 43 63 ! Print jobs 4 24 44 64 @! ! Login failures -1 ! Boot records -2 ! ! The types of record each appears in is noted by an 'X' under l! the appropriate columns on the right of their definition. ! 4! The column headings are defined as follows: ! ! I Interactive process termination ` ! N Non-interactive process termination ! B Batch process termination ( ! P Print job ! BY Two records are produced as a result of a system ! user performing work for another person. This T ! record has the UIC and ACCOUNT of the person the ! work was done for BY the system user.  ! FOR Same as BY, except, that the record has the UIC and ! and ACCOUNT of the person FOR whom the work was done ! by the system person. ! BT Boot record H ! L Login failure record ! ! ! I N B P BY FOR BT LF t PARAMETER BILL_K_LENGTH=140  BYTE BILL_RECORD (0:BILL_K_LENGTH-1) < REAL*4 BILL_F_VERSION ! X X X X X X X X  INTEGER*2 BILL_W_MSGTYP ! X X X X X X X X  CHARACTER*6 BILL_T_MACHCODE ! X X X X X X X X h INTEGER*2 BILL_W_MSGSIZ ! X X X X X X X X  INTEGER*4 BILL_L_UIC ! X X X X X X X X 0 INTEGER*2 BILL_W_MEM ! X X X X X X X X  INTEGER*2 BILL_W_GRP ! X X X X X X X X  CHARACTER*10 BILL_T_USERNAME ! X X X X X X X X \ INTEGER*4 BILL_Q_TERMTIME(2) ! X X X X X X X  INTEGER*4 BILL_Q_BOOTTIME(2) ! X $ INTEGER*4 BILL_Q_DOWNTIME(2) ! X  CHARACTER*20 BILL_T_OWNER ! X X X X  CHARACTER*8 BILL_T_ACCOUNT ! X X X X P REAL*4 BILL_F_CPUTIM ! X X X  INTEGER*4 BILL_L_PAGCNT ! X  INTEGER*4 BILL_L_PAGEFLTS ! X X X | INTEGER*4 BILL_L_QIOCNT ! X  INTEGER*4 BILL_L_PGFLPEAK ! X X X D INTEGER*4 BILL_L_GETCNT ! X  INTEGER*4 BILL_L_WSPEAK ! X X X  CHARACTER*12 BILL_T_PRT_QUE ! X p CHARACTER*8 BILL_T_PRT_NAME ! X  INTEGER*4 BILL_L_BIOCNT ! X X X 8 INTEGER*4 BILL_Q_DELAYTIM(2) ! X  CHARACTER*20 BILL_T_PRT_BY ! X X  CHARACTER*20 BILL_T_PRT_FOR ! X X d INTEGER*4 BILL_L_PRTB_UIC ! X X  INTEGER*4 BILL_L_PRTF_UIC ! X X , INTEGER*4 BILL_L_DIOCNT ! X X X  INTEGER*4 BILL_L_VOLUMES ! X X X  CHARACTER*20 BILL_T_NINT_BY ! X X X CHARACTER*20 BILL_T_NINT_FOR ! X X  INTEGER*4 BILL_L_NINB_UIC ! X X  INTEGER*4 BILL_L_NINF_UIC ! X X  INTEGER*4 BILL_Q_CONNECT(2) ! X  CHARACTER*20 BILL_T_INT_BY ! X X L CHARACTER*20 BILL_T_INT_FOR ! X X  INTEGER*4 BILL_L_INTB_UIC ! X X  INTEGER*4 BILL_L_INTF_UIC ! X X x CHARACTER*16 BILL_T_JOB_QUE ! X  CHARACTER*8 BILL_T_JOB_NAME ! X @ CHARACTER*20 BILL_T_BCH_BY ! X X  CHARACTER*20 BILL_T_BCH_FOR ! X X  INTEGER*4 BILL_L_BCHB_UIC ! X X l INTEGER*4 BILL_L_BCHF_UIC ! X X 4! EQUIVALENCE (BILL_RECORD( 0),BILL_F_VERSION) ! EQUIVALENCE (BILL_RECORD(4),BILL_W_MSGTYP) ! EQUIVALENCE (BILL_RECORD(6),BILL_T_MACHCODE) `" EQUIVALENCE (BILL_RECORD(12),BILL_W_MSGSIZ) " EQUIVALENCE (BILL_RECORD(14),BILL_L_UIC) (# EQUIVALENCE (BILL_RECORD(14),BILL_W_MEM) # EQUIVALENCE (BILL_RECORD(16),BILL_W_GRP) # EQUIVALENCE (BILL_RECORD(18),BILL_T_USERNAME) T$ EQUIVALENCE (BILL_RECORD(28),BILL_Q_TERMTIME) $ EQUIVALENCE (BILL_RECORD(28),BILL_Q_BOOTTIME) % EQUIVALENCE (BILL_RECORD(36),BILL_Q_DOWNTIME) % EQUIVALENCE (BILL_RECORD(36),BILL_T_OWNER) % EQUIVALENCE (BILL_RECORD(56),BILL_T_ACCOUNT) H& EQUIVALENCE (BILL_RECORD(64),BILL_F_CPUTIM) & EQUIVALENCE (BILL_RECORD(64),BILL_L_PAGCNT) ' EQUIVALENCE (BILL_RECORD(68),BILL_L_PAGEFLTS) t' EQUIVALENCE (BILL_RECORD(68),BILL_L_QIOCNT) ' EQUIVALENCE (BILL_RECORD(72),BILL_L_PGFLPEAK) <( EQUIVALENCE (BILL_RECORD(72),BILL_L_GETCNT) ( EQUIVALENCE (BILL_RECORD(76),BILL_L_WSPEAK) ) EQUIVALENCE (BILL_RECORD(76),BILL_T_PRT_QUE) h) EQUIVALENCE (BILL_RECORD(80),BILL_L_BIOCNT) ) EQUIVALENCE (BILL_RECORD(88),BILL_T_PRT_NAME) 0* EQUIVALENCE (BILL_RECORD(96),BILL_Q_DELAYTIM) * EQUIVALENCE (BILL_RECORD(104),BILL_T_PRT_BY) * EQUIVALENCE (BILL_RECORD(104),BILL_T_PRT_FOR) \+ EQUIVALENCE (BILL_RECORD(124),BILL_L_PRTB_UIC) + EQUIVALENCE (BILL_RECORD(124),BILL_L_PRTF_UIC) $, EQUIVALENCE (BILL_RECORD(84),BILL_L_DIOCNT) , EQUIVALENCE (BILL_RECORD(88),BILL_L_VOLUMES) , EQUIVALENCE (BILL_RECORD(92),BILL_T_NINT_BY) P- EQUIVALENCE (BILL_RECORD(92),BILL_T_NINT_FOR) - EQUIVALENCE (BILL_RECORD(112),BILL_L_NINB_UIC) . EQUIVALENCE (BILL_RECORD(112),BILL_L_NINF_UIC) |. EQUIVALENCE (BILL_RECORD(92),BILL_T_JOB_QUE) . EQUIVALENCE (BILL_RECORD(92),BILL_Q_CONNECT) D/ EQUIVALENCE (BILL_RECORD(100),BILL_T_INT_BY) / EQUIVALENCE (BILL_RECORD(100),BILL_T_INT_FOR) 0 EQUIVALENCE (BILL_RECORD(120),BILL_L_INTB_UIC) p0 EQUIVALENCE (BILL_RECORD(120),BILL_L_INTF_UIC) 0 EQUIVALENCE (BILL_RECORD(116),BILL_T_BCH_BY) 81 EQUIVALENCE (BILL_RECORD(116),BILL_T_BCH_FOR) 1 EQUIVALENCE (BILL_RECORD(136),BILL_L_BCHB_UIC) 2 EQUIVALENCE (BILL_RECORD(136),BILL_L_BCHF_UIC) d2 EQUIVALENCE (BILL_RECORD(108),BILL_T_JOB_NAME) 2 ,3