*COMDECK,LST$COM
# 
      LIST MANAGEMENT SUPERVISORY MESSAGE DEFINITIONS 
# 
*CALL,LSTDEF
# 
      LST SUPERVISORY MESSAGE 
# 
      BASED ARRAY LIST$MSG S(1);
      BEGIN 
*CALL,LST 
      END 
