*COMDECK TEXTAREA 
# 
*     TEXTAREA - TEXT AREA FOR ASYNCHRONOUS SUPERVISORY MESSAGES. 
* 
*     TEXTAREA IS A ARRAY WHICH DEFINES THE FORMAT OF THE TEXT AREA 
*     OF AN ASYNCHRONOUS SUPERVISORY MESSAGE OR A LEVEL 7 COMMAND.  IT
*     IS USED BY PROCEDURES WHERE THE TEXT AREA ADDRESS IS AN ENTRY 
*     PARAMETER.
# 
  
      ARRAY TEXTAREA [0:0] S(3);  # ENTRY SIZE SHOUD = LENTEXAREA # 
        BEGIN  # ARRAY TEXTAREA # 
        ITEM TXT$WD0 I(0,00,60);
        ITEM TXT$ASMSG  U(0,00,16);  # ASYNCHRONOUS SUPERVISORY MSG. #
        ITEM TXT$L7CMD  C(0,00,30);  # LEVEL 7 CMD. (LEN = LENTAINCH) # 
  
# 
*       SHUT/INSD/R DECLARATIONS
# 
  
        ITEM TXT$DIS$SD B(0,59,01); 
        END    # ARRAY TEXTAREA # 
  
