*COMDECK,FC$COM 
# 
      FLOW CONTROL SUPERVISIORY MESSAGE DEFINITIONS 
# 
*CALL,FCDEF 
# 
      FLOW CONTROL SUPERVISORY MESSAGE
# 
      BASED ARRAY FCTEXT S(LFC);
        BEGIN # FCTEXT #
*CALL,FC
        END   # FCTEXT #
