*COMDECK,ERR$SMCOM
# 
      LOGICAL ERROR SUPERVISORY MESSAGE DEFINITION
# 
*CALL,ERRDEF
# 
      LOGICAL ERROR SUPERVISORY MESSAGE 
# 
      BASED ARRAY ERRTEXT S(LERR);
        BEGIN # ERRTEXT # 
*CALL,ERR 
        END   # ERRTEXT # 
