%EXTERNALROUTINE EDITA(%STRING(63) S)
%EXTERNALROUTINESPEC DEFINE(%STRING(63) SA)
%EXTERNALROUTINESPEC COPY(%STRING(63) SB)
%EXTERNALROUTINESPEC EDIT(%STRING(63) SC)
%EXTERNALROUTINESPEC DESTROY(%STRING(63) SD)
%EXTERNALINTEGERFNSPEC RETURNCODE
%STRING(20) PDS,FILE
      DEFINE("FT05,INFILEMD")
      %IF S->PDS.("_").FILE %THEN %START
         SELECTINPUT(5)
         EDIT(S.",".FILE)
         COPY(FILE.",".S)
         %IF RETURNCODE=0 %THEN DESTROY(FILE)
         SELECTINPUT(0)
         CLOSESTREAM(5)
      %FINISH %ELSE %START
         SELECTOUTPUT(6)
         PRINTSTRING("EDITA - BAD PARAMETERS")
      %FINISH
%END
%ENDOFFILE