*DECK DB$ACCT 
          IDENT  DB$ACCT
          ENTRY  DB$ACCT
*#
* *   DB$ACCT ACCOUNT TABLE                       PAGE  1 
* *       R.C.KLOENNE                            6/22/77
* 
* DC  PURPOSE 
*     TABLE SPACE FOR ACCOUNT PARAMETERS
* DC  ENTRY CONDITIONS
*     NONE
*     EXIT CONDITIONS 
*     NONE
* DC  CALLED ROUTINES 
*     NONE
* DC  CALLING ROUTINES
*     NONE
* DC  INITIALIZATION ROUTINE
*     DB$AINT 
* DC  DESCRIPTION 
* 
*         A COMPLETE DESCRIPTION OF ACCOUNTING TABLE PARAMETERS IS
*         GIVEN IN THE DESCRIPTION OF ROUTINE DB$ACCN 
* 
*         DB$ACCT IS THE ACCOUNT TABLE DECK 
*         THE TABLE IS FORMED BY INSERTING ACC MACROS INTO THE
*         ACCTALLE DECK ILLUSTRATED IN THIS EXAMPLE 
* 
* 
*             *ID,EXAMPLE 
*             *D,ACCTABLE.4 
*              DFWR2   ACC    ((FIX=456,13000)) 
*              4       ACC    ACC  (TAL,(ALT=7425,99999)) 
*              5       ACC    (QRF,(IS=4231,98456)) 
*                      ENDACC 
*             *C ACCTABLE 
* 
* 
*         THE FORMAT OF ACC MARRO IS THE FOLLOWING
*         DEFNAME ACC  ((P1=XXX1,YYY1),(P2=XXX2,YYY2),P3,...  ) 
*           WHERE DEFNAME IS DEF SYMBOL IN CDCSFUNC COMDECK OR FUNCTION 
*           ORDINAL 
*    ACC =  ACC MACRO CALL
*    PN IS ONE OF THE FOLLOWING ACCOUNT MACRO KEYWORDS
*      (THE FIRST GROUP OF KEYWORDS CAUSE BOTH A FLAG AND 2 VALUES TO BE
*       SET, THE SECOND GROUP SET ONLY A FLAG.) 
* 
*         KEYWORD    FLAG          VALUE
* 
*         QLG        ACPRAFL       ACQRFIO, ACQRFCP 
*         JLG        ACFIXFL       ACLOGIO, ACLOGCP 
*         FIX        ACFIXFL       ACFIXIO, ACFIXCP 
*         ALT        ACPRAFL       ACALTIO, ACALTCP 
*         IS         ACPRAFL       ACALTIO, ACALTCP 
*         DA         ACPRAFL       ACPDAIO, ACPDACP 
*         AK         ACPRAFL       ACPAKIO, ACPAKCP 
* 
*         TAL        ACTALFL
*         JNL        ACJNLFL
*         ARL        ACARLFL
*         QRF        ACQRFFL
*         MOD        ACMODFL
*     XXXN =  - CP TIME FOR PN
*     YYYN =  - IO TIME FOR PN
* 
* 
*         FORMAT OF ENDACC MACRO  IS CALL WITHOUT PARAMETERS
*#
*CALL ACCMACRO
 DB$ACCT  BSS    0
*CALL CDCSFUNC
*CALL ACCTABLE
          END 
