*COMDECK COMQRMB
# 
***   COMQRMB - REMOTE MESSAGE BUFFER DEFINITION. 
# 
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL ENDIF; 
  
      COMMON COMQRMB; 
        BEGIN 
        BASED ARRAY RMB        S(9);
          BEGIN 
          ITEM RMB$LENC   U(00,24,18);  # LENGTH OF MESSAGE IN CHARS #
          ITEM RMB$LINK   U(00,42,18);  # POINTER TO NEXT BUFFER #
          ITEM RMB$TEXT   C(01,00,80);  # MESSAGE TEXT #
          END 
  
        END  # COMQRMB #
  
      # END OF COMMON DECK COMQMB # 
                                               CONTROL LIST;
