COMTDEF 
COMMON
  
#     COMTDEF - DATA COMMON TO *SSDEF* PROCEDURES.                    # 
  
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL FI;
      BEGIN  # COMTDEF #
  
# 
***   COMTDEF - DATA COMMON TO *SSDEF* PROCEDURES.
* 
*     COMTDEF CONTAINS DATA COMMON TO *SSDEF* PROCEDURES. 
# 
  
      ITEM LINKDF     U;             # DEFAULT FLAG # 
      ITEM NDF        U;             # NUMBER FAMT ENTRIES #
  
# 
*     ARRAYS TO HOLD DETAIL MESSAGES. 
# 
  
      ARRAY MSGDETAIL2 [0:0] P(4);
        BEGIN  # ARRAY MSGDETAIL2 # 
        ITEM MSGUIH     C(00,00,05) = ["  UI="];  # UI= # 
        ITEM MSGUIDF    C(00,30,06);              # USER INDEX #
        ITEM MSGHYPH    C(01,06,03) = [" - "];    # HYPHEN #
        ITEM MSGDETMSG  C(01,24,20);              # MESSAGE # 
        ITEM MSGZRO2    U(03,24,12) = [0];        # TERMINATOR #
        END  # ARRAY MSGDETAIL2 # 
  
# 
*     ARRAY TO HOLD MESSAGE TO BE DISPLAYED IN THE
*     DAYFILE AND AT THE TERMINAL.
# 
  
      ARRAY MSG$BUF [0:0] P(4);      # MESSAGE BUFFER # 
        BEGIN  # ARRAY MSG$BUF #
        ITEM MSG$LINE   C(00,00,38);  # MESSAGE LINE #
        ITEM MSG$ZRO    U(03,48,12);  # ZERO BYTE TERMINATOR #
        END  # ARRAY MSG$BUF #
  
# 
*     ARRAY TO HOLD USER INDEX DISPLAY CODE.
# 
  
      ARRAY DIS [0:0] P(2); 
        BEGIN  # ARRAY DIS #
        ITEM DIS$UI     C(01,24,06);  # USER INDEX IN DISPLAY CODE #
        END  # ARRAY DIS #
  
# 
*     ITEMS COMMON TO *SSDEF* PROCEDURES. 
# 
  
      COMMON TDEFCOM; 
  
        BEGIN  # TDEFCOM #
                                                      #$$#
              ITEM $$TDEF$$ C(20) = "****** COMTDEF *****"; 
                                                      #$$#
        ITEM ERRFAMDF   B=FALSE;     # FAMILY NOT FOUND FLAG #
        ITEM ERRFLAGDF  B=FALSE;     # *SSDEF* ERROR FLAG # 
        ITEM DFLTFMDF   B=FALSE;     # DEFAULT FLAG # 
        END  # TDEFCOM #
  
      ITEM DEFAULTDF  U;             # DEFAULT POINTER FOR GETFAM # 
  
      END  # COMTDEF #
  
                                               CONTROL LIST;
