*COMDECK ACCNT
  
  
#     B E G I N   C O M D E C K   A C C N T .                          #
  
  
#     THE FOLLOWING BASED ARRAY IS THE ACCOUNT TABLE. ITS LOCATION IS  #
#     FOUND BY CALLING FUNCTION DB$ACCL.                               #
#     ITS ENTRIES GO FROM SUBSCRIPT ZERO TO THE MAXIMUM FUNCTION CODE  #
#     SIZE (DFFUNCMAX). THERE IS ONE ENTRY FOR EACH REQUEST (FUNCTION).#
#                                                                      #
#     THE ZERO-TH ENTRY (ZERO IS AN ILLEGAL FUNCTION CODE) CONTAINS    #
#     THE CHARGES FOR JOURNAL AND QRF LOGGING, WHICH ARE THE SAME      #
#     FOR ALL REQUESTS TO WHICH THEY APPLY.                            #
#                                                                      #
#     THE REST OF THE ENTRIES CONTAIN CHARGES AND FLAGS FOR THE        #
#     FUNCTION CODE WHICH IS THEIR SUBSCRIPT (WITH THE EXCEPTION OF    #
#     THE ILLEGAL FUNCTION CODES).                                     #
  
  
      BASED ARRAY ACCNT[0:DFFUNCMAX] S(6);
        BEGIN 
  
#       THE FIRST 4 ITEMS DESCRIBE THE ZERO-TH ENTRY, WHICH CONTAINS   #
#       JOURNAL AND QRF LOGGING CHARGES FOR ALL REQUESTS               #
  
        ITEM  ACLOGIO  U(0,00,30);  # JOURNAL LOG IO CHARGE            #
        ITEM  ACLOGCP  U(0,30,30);  # JOURNAL LOG CP CHARGE            #
        ITEM  ACQRFIO  U(1,00,30);  # QRF LOG IO CHARGE                #
        ITEM  ACQRFCP  U(1,30,30);  # QRF LOG CP CHARGE                #
  
#       THE REMAINING ITEMS DESCRIBE THE 1ST THRU DFFUNCMAX ENTRIES IN #
#       THE TABLE                                                      #
  
#       THE NEXT 2 GROUPS OF ITEMS DESCRIBE THE ENTRIES CONTAINING THE #
#       TIMES THAT ARE CHARGED FOR THE LISTED ACCESS CONSIDERATIONS FOR#
#       THIS REQUEST.                                                  #
  
        ITEM  ACFIXIO  U(0,00,30);  # FIXED IO CHARGE                  #
        ITEM  ACFIXCP  U(0,30,30);  # FIXED CP CHARGE                  #
        ITEM  ACALTIO  U(1,00,30);  # ALTERNATE KEY IO CHARGE          #
        ITEM  ACALTCP  U(1,30,30);  # ALTERNATE KEY CP CHARGE          #
        ITEM  ACPISIO  U(2,00,30);  # IS PRIMARY KEY IO CHARGE         #
        ITEM  ACPISCP  U(2,30,30);  # IS PRIMARY KEY CP CHARGE         #
        ITEM  ACPDAIO  U(3,00,30);  # DA PRIMARY KEY IO CHARGE         #
        ITEM  ACPDACP  U(3,30,30);  # DA PRIMARY KEY CP CHARGE         #
        ITEM  ACPAKIO  U(4,00,30);  # AK PRIMARY KEY IO CHARGE         #
        ITEM  ACPAKCP  U(4,30,30);  # AK PRIMARY KEY CP CHARGE         #
  
        ITEM  ACPKIO   U(0,00,30);  # PRIMARY KEY IO CHARGE            #
        ITEM  ACPKCP   U(0,30,30);  # PRIMARY KEY CP CHARGE            #
  
  
  
  
#       THE NEXT GROUP OF ITEMS DESCRIBE THE ENTRIES THAT INDICATE WHAT#
#       CHARGES APPLY TO THIS REQUEST.                                 #
  
        ITEM  ACFIXFL  B(5,00,01);  # FIXED FLAG                       #
        ITEM  ACPRAFL  B(5,01,01);  # PRIMARY/ALTERNATE KEY FLAG       #
        ITEM  ACTALFL  B(5,02,01);  # ACC.ALREADY TALLIED FLAG         #
        ITEM  ACJNLFL  B(5,03,01);  # JOURNAL LOGGING FLAG             #
        ITEM  ACARLFL  B(5,04,01);  # AREA LOGGING FLAG                #
        ITEM  ACQRFFL  B(5,05,01);  # QUICK RECOVERY FILE LOGGING FLAG #
        ITEM  ACMODFL  B(5,06,01);  # MODIFY FUNCTION FLAG             #
        END 
