*COMDECK,SHUT$COM 
# 
      SHUT DOWN SUPERVISORY MESSAGE DEFINITIONS 
# 
      DEF APPMSG #1#; 
*CALL,SHUTDEF 
# 
      SHUT DOWN SUPERVISORY MESSAGE 
# 
      BASED ARRAY SHUTTEXT S(LSHUT);
        BEGIN # SHUTTEXT #
*CALL,SHUT
        END   # SHUTTEXT #
