%EXTERNALROUTINE COPYFMPD(%STRING(63) S)
%EXTERNALROUTINESPEC COPY(%STRING(63) SA)
%STRING(20) PDS,FILE
%IF S-> PDS.("_").FILE %THEN        %C
       COPY(S.",".FILE)              %C
       %ELSE %START
            SELECTOUTPUT(0)
            PRINTSTRING(" COPYFMPD - BAD PARAMETERS")
            %FINISH
      %END
%ENDOFFILE