Tom wrote this
----------
From:   Tom Madigan[SMTP:[log in to unmask]]
Sent:   dinsdag, oktober 17, 1995 4:00
To:     Multiple recipients of list HP3000-L
Subject:        FTP'ing Spool Files
 
Greetings From The Land Of Pleasant Living:
 
We operate a HP-3000/950 and a HP-3000/935 both using MPE/iX Version 4.0
with ARPA Services installed.  I'm trying to FTP a spool file from the
935 to the 950 so that we can print the thing on our fast printer in the
"machine room."  Unfortunately, I can't seem to find any method by which
the 950 will recognize the file as a spool file and, when it prints, the
carriage control doesn't operate properly.  The printout looks like
GARBAGE IN -- GARBAGE OUT!!
Any words of wisdom?
 
Thanks in advance!!
 
This does not use ftp, but I guess if you have arpa services
you can use this too
 
you should have an account remspool on both systems.
put the commandfile somewhere on the system
 
use
TRANS spoolfilenumber (wildcards are ok), priority
 
COMMAND FILE:  TRANS.BAT.SYS
------------------------------------------------------------
PARM spoolid="",pri=1
COMMENT ** Parameter controle
ERRCLEAR
SETVAR _remspool_fence hpmsgfence
SETVAR hpmsgfence 2
CONTINUE
SETVAR _remspool_id LTRIM(RTRIM("!spoolid"))
SETVAR hpmsgfence _remspool_fence
IF cierror = 0
  IF _remspool_id = ""
    SETVAR cierror 1
  ELSE
    CONTINUE
    LISTF O!_remspool_id.OUT.HPSPOOL > $NULL
  ENDIF
ENDIF
IF cierror <> 0
  IF     cierror = 907
    ECHO Spoolfile #O!_remspool_id not found
  ELSEIF cierror = 431
    ECHO No spoolfiles by spoolid !_remspool_id
  ELSE
    ECHO Invalid
  ENDIF
  DELETEVAR _remspool_@
  RETURN
ENDIF
SETVAR hpmsgfence 2
CONTINUE
SETVAR _remspool_pri !pri
SETVAR hpmsgfence _remspool_fence
IF cierror <> 0
  SETVAR _remspool_pri 14
ENDIF
IF _remspool_pri < 1 OR _remspool_pri > 13
  ECHO Prioriteit must be between 1 and 13 zijn
  DELETEVAR _remspool_@
  RETURN
ENDIF
ERRCLEAR
CONTINUE
DSLINE REMSPOOL > $NULL
IF cierror <> 0
  IF hpsysname = "HP950"
    SETVAR _remspool_system "HP937"
  ELSE
    SETVAR _remspool_system "HP950"
  ENDIF
  ECHO Loging onto systeem !_remspool_system
  DSLINE REMSPOOL=!_remspool_system > $NULL
  REMOTE HELLO MGR.REMSPOOL/password
ENDIF
ECHO Transferring spoolfile to account REMSPOOL on remote systeem
DSCOPY O!_remspool_id.OUT.HPSPOOL TO ,REMSPOOL;MOVE > $NULL
REMOTE SPOOLF O!_remspool_id;PRINT;DEV=LP;PRI=!_remspool_pri;SHOW
REMOTE ERASE O!_remspool_id;YES > $NULL
DELETEVAR _remspool_id
-------------------------------------------------------------------------------------
 
leon degeling
[log in to unmask]
http://www.pi.net/~leon