%include "CONSTS"
%include "FORMS"
%include "SEG7"
%include "PROCS"

%control 0

%external %routine  ABANDON OUTPUT
   %if S7_outstrmx # 0 %and S7_outx ## null %start
      flush out %if S7_outx_type = char type
      S7_outx_refs = S7_outx_refs - 1
      S7_outx == null
      S7_outstrm(S7_outstrmx) == null
   %finish
%end

%end %of %file