*COMDECK COMAMCB
#     COMAMCB - MSG CALL COMMON BLOCK.  # 
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL FI;
# 
*     COMAMCB - MSG CALL COMMON BLOCK.
* 
*     COMAMCB IS THE COMMON BLOCK WHICH IS USED TO CALL MSG.
* 
# 
  
      COMMON COMAMCB;                # MSG CALL COMMON BLOCK #
  
# 
*     MSGCALL - CALL MSG. 
# 
      ARRAY MSGCALL [0:0] S(2); 
        BEGIN  # ARRAY MSGCALL #
        ITEM MSG$WORD0  I(0,00,60) = [0]; 
        ITEM MSG$NAME   C(0,00,03) = ["MSG"]; 
        ITEM MSG$RECALL B(0,19,01) = [TRUE];
        ITEM MSG$DSPLAY U(0,24,12) = [3]; 
        ITEM MSG$STATWD I(0,42,18); 
        ITEM MSG$BUFADR I(1,00,30); 
        ITEM MSG$STATUS I(1,30,30); 
        END    # ARRAY MSGCALL #
                                               CONTROL LIST;
