ERROR - The program attempts to transfer control out of a  DEF  block.
  Change the control statement; you cannot transfer control out of a DEF
  block except by a EXIT DEF, FNEXIT, FNEND, or END DEF statement.