%EXTERNALROUTINE FPD(%STRING(63) FILE)
      %EXTERNALROUTINESPEC FORTE(%STRING(63) S)
      %UNLESS 0<LENGTH(FILE)<=7 %START
          PRINTSTRING("INVALID FILE NAME")
          NEWLINE
          %RETURN
      %FINISH
      FORTE("SFORF_".FILE."F,".FILE."Y,,.OUT")
      %END

      %ENDOFFILE