*COMDECK,SM$COM 
# 
      SUPERVISORY MESSAGE TEXT DEFINITION 
                                                                       #
      BASED ARRAY SM$ [0:0] S(1); 
        BEGIN 
      ITEM SUPACN U (0,24,12);                   # COMMON ACN FIELD    #
*CALL,SUPMSG
*CALL    SMAPPL 
        END 
# 
      END OF SUPERVISORY MESSAGE TEXT DEFINITION
                                                                       #
