*COMDECK ACCMACRO 
*     THIS DEFINES THE MACROS FOR ACCOUNTING TABLE DEFINITION.
 ENDACC   MACRO 
 II       SET     0 
************************************************************************
*                                                                      *
* THE INTEGER CONSTANT FOLLOWING THIS DUP MUST BE CHANGED TO           *
* DFFUNCMAX + 1 WHENEVER DFFUNCMAX IS CHANGED                          *
*                                                                      *
************************************************************************
 W        DUP    35 
 I        DECMIC  II,2
 II       SET    II+1 
 X        ECHO  ,TT=(FIX,ALT,IS,DA,AK)
Y         ECHO   ,NO=(1,0)
          VFD    30/TT_NO_"I" 
 Y        ENDD
 X        ENDD
 ZZ       ECHO 1,QQ=(FIX,ALT,TAL,JNL,ARL,QRF,MOD) 
          VFD    1/QQ_"I"_F 
          VFD    53/0 
 W        ENDD
 ENDACC   ENDM
          MACRO  ACC,POS,PARAMS 
 RQ       DECMIC POS,2
 INIT     IF     -DEF,ACCNT 
 ACCNT    BSS    0
 II       SET     0 
************************************************************************
*                                                                      *
* THE INTEGER CONSTANT FOLLOWING THIS DUP MUST BE CHANGED TO           *
* DFFUNCMAX + 1 WHENEVER DFFUNCMAX IS CHANGED                          *
*                                                                      *
************************************************************************
 WW       DUP    35 
 I        DECMIC  II,2
 XX       ECHO  ,TT=(FIX,ALT,IS,DA,AK)
 YY       ECHO  ,NO=(0,1) 
 TT_NO_"I"  SET   0 
 YY       ENDD
 XX       ENDD
 ZZ       ECHO  ,QQ=(FIX,ALT,TAL,JNL,ARL,QRF,MOD) 
QQ_"I"_F  SET    0
 ZZ       ENDD
 II       SET    II+1 
 WW       ENDD
 INIT     ENDIF 
          IRP    PARAMS 
 TY       MICRO  1,,=PARAMS=
 CNT      MICCNT TY 
 PARAM    MICRO  CNT+2,,*PARAMS*
          ECHO  ,ZZ=(JLG,QLG),YY=(FIX,ALT)
          IFC    EQ,*"TY"*ZZ*,1 
 TY       MICRO   1,,=YY= 
          ENDD
          ECHO  ,C=(FIX,DA,AK,IS,ALT) 
          IFC    EQ,*"TY"*C*,1
          IRPP   ("PARAM")
          ENDD
          ECHO  ,E=(DA,AK,IS) 
          IFC    EQ,*"TY"*E*,1
TY        MICRO  1,,=ALT= 
          ENDD
          ECHO  ,D=(FIX,ALT,TAL,JNL,ARL,QRF,MOD)
          IFC    EQ,*"TY"*D*,1
D_"RQ"_F  SET    1
          ENDD
          IRP 
 ACC      ENDM
 IRPP     MACRO  PAR
 N        SET    0
          IRP    PAR
NN        DECMIC  N,1 
 "TY"_"NN"_"RQ"  SET PAR
 N        SET    N+1
          IRP 
 IRPP     ENDM
          PURGMAC DEF#
 DEF#     MACRO  NAME,VALUE 
XXX       MICRO  1,7, NAME
"XXX"     EQU    VALUE
 DEF#     ENDM
  
************************************************************************
*     RELATION READ ACCOUNTING IS PERFORMED IN THE ROUTINE DB$ACR.     *
*                         ---------------------                        *
*     THE TERMINATION CHARGE (FIX=3000,0) IS ADDED INTO THE            *
*     INVOKE CHARGE. BOTH NORMAL (DFEND) AND ABNORMAL (DFTER)          *
*     TERMINATION ARE CHARGED FIX=3000,0.                              *
************************************************************************
  
