PARM FROMFILE,TOFILE=" ",TOCPU="xxxx",OPT=" "

##  PUSH.XEQ - DSCOPIES FILES
##  TIM ERICSON
##
##  THIS SCRIPT COPIES FILES FROM THIS SYSTEM.
##  THE REMOTE CONNECTION MUST BE ALREADY OPEN.
##  SOME VALID OPTIONS (OPT) ARE:  APP(end), COMP(ress),
##  MOVE, OVER(write), QUIET, & REP(lace).

IF ( NUMERIC("!FROMFILE") ) AND &
   ( ( "!TOFILE" = "P0" ) OR ( "!TOFILE" = "LP" ) )
  DSCOPY O!FROMFILE.OUT.HPSPOOL;:!TOCPU;MOVE
  REMOTE SPOOLF O!FROMFILE;PRINT;DEV=!TOFILE
  REMOTE PURGE O!FROMFILE
  RETURN
ENDIF

IF "!OPT" = " " THEN
  DSCOPY !FROMFILE;!TOFILE:!TOCPU
ELSE
  DSCOPY !FROMFILE;!TOFILE:!TOCPU;!OPT
ENDIF