COMXACM 
COMMON
  
#     COMXACM - EXEC ACCOUNTING MESSAGES.                             # 
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL FI;
      BEGIN  # COMXACM #
  
# 
***   COMXACM - EXEC ACCOUNTING MESSAGES. 
* 
*     COMXACM PROVIDES THE FORMAT FOR THE ACCOUNTING MESSAGES 
*     WRITTEN TO THE ACCOUNT DAYFILE IF THE TRACE MODE OPTION 
*     IS SELECTED.
# 
  
  
# 
*     ACCOUNTING MESSAGE LENGTHS (NUMBER OF CHARACTERS).
# 
  
      DEF ACCML1     #6#;            # MESSAGE 1 LENGTH # 
      DEF ACCML2     #14#;           # MESSAGE 2 LENGTH # 
      DEF ACCML3     #15#;           # MESSAGE 3 LENGTH # 
      DEF ACCML4     #23#;           # MESSAGE 4 LENGTH # 
  
# 
*     SKELETONS FOR THE ACCOUNTING MESSAGES.
# 
  
      DEF ACCMSG1    #"ST  .;"#;
      DEF ACCMSG2    #"ST  ,       .;"#;
      DEF ACCMSG3    #"ST  ,        .;"#; 
      DEF ACCMSG4    #"ST  ,        ,       .;"#; 
  
      ARRAY ACCMSG [0:0] P(3);       # ACCOUNT DAYFILE MESSAGE #
        BEGIN 
        ITEM ACCMMES    C(00,00,30);  # ACCOUNT DAYFILE MESSAGE # 
        ITEM ACCMACTV   C(00,12,02);  # ACTIVITY CODE # 
        ITEM ACCMPFN    C(00,36,07);  # PERMANENT FILE NAME # 
        ITEM ACCMFL     C(00,36,06);  # NEW FIELD LENGTH #
        ITEM ACCMFLEN   C(01,30,06);  # FILE LENGTH IN PRU-S #
        END 
  
      END  # COMXACM #
  
                                               CONTROL LIST;
