c RECORD.DCK
c  common block containing our accounting record to write
c  should contain all categories of time and cost separately so
c  can display formula to show how arrived at costs.
c  probably should not show costs at all, but calculate them
c  at display time.
c  note: maxprimes and maxprintqueues and maxbatchqueues and maxdisks
c       must be defined elsewhere in RATES.DCK

! length of common block ( in longwords )
      integer record_length
      parameter ( record_length = 3 + 2 + 1 + maxprimes + 2*maxprimes +
     1        maxbatchqueues*maxprimes + maxprintqueues +
     2        maxdisklimits*maxdisks + 1 )  ! 3+2 are character part,
				! 1 is UIC part and final 1 is class part
! variables
      character username*12, account*8

      integer*2 uic(2)                ! uic(1)=member, uic(2)=group
      integer*4 cputime(maxprimes)    ! hundredths of seconds
      integer*4 connecttime(2,maxprimes)      ! quadword times
      integer*4 batchtime(maxbatchqueues,maxprimes) !hundredths of seconds

      integer*4 pages(maxprintqueues)
      integer*4 diskblocks(maxdisklimits,maxdisks)
      integer*4 class


! equivalences
      integer*4 record(record_length)         ! entire common block
      integer*4 uic_l                         ! longword uic
      equivalence (username,record)
      equivalence (uic,uic_l)

! common block
      common /record/ username, account,
     1                uic, cputime, connecttime,
     2                batchtime, pages, diskblocks, class

c EOD -- record.dck