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

%external %routine  CLOSE OUTPUT
   %if S7_outstrmx # 0 %and S7_outx ## null %start
      flush out
      %if S7_outx_type = file type %start
         dir fn (S7_outx, rentemp)
      %finish
      S7_outx_refs = S7_outx_refs - 1
      S7_outx == null
      S7_outstrm(S7_outstrmx) == null
   %finish
%end

%end %of %file