*DECK DB$ACCL 
USETEXT CDCSCTX 
      FUNC DB$ACCL I; 
      BEGIN 
 #
* *   DB$ACCL - LOCATE ACCOUNTING TABLE          PAGE  1
* *   R. M. PAPPE                                DATE  09/30/81 
* 
* DC  PURPOSE 
* 
*     TO LOCATE THE ACCOUNTING TABLE AND STORE ITS LOCATION.
* 
* DC  ENTRY CONDITIONS
* 
*     ACCOUNTING IS TO BE EXECUTED FOR A REQUEST BY EITHER DB$ACCN OR 
*     DB$ACR, OR ACCOUNTING VALUES ARE TO BE INITIALIZED BY DB$AINT.
* 
* DC  EXIT CONDITIONS 
* 
*     DB$ACCL CONTAINS THE LOCATION OF THE ACCOUNTING TABLE ACCNT.
* 
* DC  CALLING ROUTINES
* 
*     DB$ACCN - ACCOUNT TABLE TALLY 
*     DB$ACR  - RELATIONAL READ ACCOUNTING
*     DB$AINT - PROCESS CDCS CONTROL CARD 
* 
* DC  CALLED ROUTINES 
* 
*     NONE
* 
* DC  NON-LOCAL VARIABLES MODIFIED
* 
*     NONE
* 
* DC  EXTERNAL ARRAY
* 
 #
      XREF ARRAY DB$ACCT;;     # ACCOUNTING TABLE                      #
 #
* 
* DC  DESCRIPTION 
* 
*     THE LOCATION OF THE ACCOUNTING TABLE DB$ACCT IS STORED IN DB$ACCL.
* 
 #
  
  
# B E G I N    E X E C U T A B L E    C O D E                          #
  
      DB$ACCL = LOC(DB$ACCT);      # LOCATION OF ACCNT IN DB$ACCL      #
      RETURN; 
  
      END 
      TERM
