After fixing your FTP client, the following command file will FTP a
selected group of spoolfiles to an NT server.  Our users import the
files into Excel.  They can then very easily clean up such things as
headings and delete column A (carriage control).

You could aslo hack this a bit and have it remove the carriage control
before FTPing the spoolfiles.  That is - use FCOPY to read the spoolfile
one record at a time, strip the first position (carriage control), write
the edited record to an intermediate flat file, and finally FTP the
intermediate file to the NT server.

parm jname="",dt="",pr="",node="198.24.20.34",user="hp3000",pass="",&
path="/data/shared/cma/excel"
#
#  Filename:  HPSPTONT
#
#  Description - FTP selected output spoolfiles to a server.
#
#
#  Parms for LISTSPF SELEQ:
#       jname = Creator's Jobname (default is null)
#          dt = Creation Date (Format - mm/dd/yy. Default is null)
#          pr = Output Priority (Default is null)
#
#  Parms for FTP server:
#        node = Nodename or IP (Default is 198.24.20.34)
#        user = logon user (Default is HP3000)
#        pass = USER's password (Default is null)
#        path = Directory path (Default is /data/shared/cma/excel)
#
setvar jobnam "!jname"
setvar dat "!dt"
setvar prior "!pr"
setvar inode "!node"
(24/66) Continue?
setvar iuser "!user"
setvar ipass "!pass"
setvar cd_path "!path"
setvar selequ ""
file spfindex;msg
file ftpcomm;msg
if dat <> ""
     setvar selequ "(date="+"!dat"+") and "
endif
if jobnam <> ""
     setvar selequ "!selequ"+"(jobname="+"!jobnam"+") and "
endif
if prior <> ""
     setvar selequ "!selequ"+"(pri="+"!prior"+")"
else
     setvar selequ "!selequ"-" and "
endif
listspf o@;seleq=[!selequ];detail >>*spfindex
while finfo("*spfindex","EOF") <> 0
     input raw_rec <*spfindex
     if str("!raw_rec",1,1) = "#"
          setvar spf_name rtrim(str("!raw_rec",2,7))
          setvar spf_name "/HPSPOOL/OUT/"+"!spf_name"
(47/66) Continue?
          input raw_rec <*spfindex
          setvar job_name dwns(rtrim(str("!raw_rec",21,8)))
          setvar run_date str("!raw_rec",63,8)
          setvar mo str("!run_date",1,2)
          setvar dy str("!run_date",4,2)
          setvar yr str("!run_date",7,2)
          setvar run_date "!yr"+"!mo"+"!dy"
          setvar job_name "!job_name"+"_"+"!run_date"+".txt"
          echo exitonerror >>*ftpcomm
          echo open !inode >>*ftpcomm
          echo user !iuser !ipass >>*ftpcomm
          echo cd !cd_path >>*ftpcomm
          echo put !spf_name !job_name >>*ftpcomm
          echo quit >>*ftpcomm
          run ftp.arpa.sys;stdin=*ftpcomm
     endif
endwhile
reset @
deletevar @

-----Original Message-----
From: [log in to unmask]
<[log in to unmask]>
To: [log in to unmask] <[log in to unmask]>
Date: Thursday, July 22, 1999 1:43 AM
Subject: FTP'ing spool files


>Hello Friends @ 3000-l,
>
>Re: FTP'ing spool files
>
>  SR: 4701-375352
>FROM: FTPFD17
>Fix for PUT of MPE spoolfiles to Unix systems - error reported is:
>  Data Transfer Request Failed.  (FTPERR 13)
>  We only support MPE/XL Standard files, sorry.  (FTPERR 30)
>
>I would recommend you install FTPFD90 5.5 General Release patch.
>
>P.S. Transfer of spoolfiles from 3000 to 3000 requires FTPFDB2 5.5
>and/or FTPFDB1 6.0 to be installed on both local and remote 3000
>systems.
>
>Regards,
>
>James Hofmeister
>Hewlett Packard
>Worldwide Technology Network Expert Center
>P.S. My Ideals are my own, not necessarily my employers.
>