*COMDECK QTRMBUF
# 
   COMMON QTRM BUFFER AREA. 
# 
  COMMON QTRMBUF; 
    BEGIN 
# 
      SUPERVISORY MESSAGE BUFFER AREA.
# 
    ARRAY SUP$MES[0:0] S(63); 
      BEGIN 
*CALL SUPMSG
*CALL SMAPPL
*CALL SMRBF 
      END 
  
# 
    ARRAY FOR OUTPUTING FRAGMENTED SUPERVISORY MESSAGES 
# 
    ARRAY FRAG[0:8] S(1); 
      BEGIN 
      ITEM# FRAGSZ0,U,0,21,9   # FRAGSZ0 U(0,21,9);  # SIZE OF FRAGMENT#
      ITEM# FRAGAD0,U,0,42,18  # FRAGAD0 U(0,42,18); # ADDR OF FRAGMENT#
      END 
  
    ITEM NOFRAG;             # NUMBER OF FRAGMENTS                     #
  
    END 
  
