*COMDECK,CTRL$COM 
# 
      CTRL SUPERVISORY MESSAGE DEFINITIONS
# 
*CALL,CTRLDEF 
# 
      CTRL SUPERVISORY MESSAGE
# 
      BASED ARRAY CTRLTEXT S(LCTRL);
        BEGIN # CTRLTEXT #
*CALL,CTRL
        END   # CTRLTEXT #
