Colin,
Sorry, I was re-reading that as it sent and I realized I left the
dollar sign out of the LISTSPF command. Replace "STDLIST"
with "$STDLIST".
My bad,
Rs~
----- Original Message -----
From: "Russ Smith" <[log in to unmask]>
To: "jobber" <[log in to unmask]>
Sent: Tuesday, March 28, 2000 4:32 PM
Subject: Re: [HP3000-L] Ability to FTP STDLIST to PC
> Colin,
>
> What's wrong with STORE-ing them to tape and then deleting
> them from the system? Do you have a utility of some sort on
> your server that would index them or give you some search
> capabilities, making storage there better than to tape?
>
> My first thought was NOBIX's JobRescue which compresses
> and saves STDLISTs for you on the 3000, giving you a search
> mechanism from your session, and an archive for whatever
> period you want. It's a little pricey but is a very good software,
> even if it does store the compressed files in the posix name space.
>
> Having said that, I took a script I had for another project and
> converted it for you. I'm sure there are more eloquent ways to do
> what you're asking, but this is a start.
>
> First, spoolfiles are 1008byte, VACS files, which is not what
> you'd want to send to the server. You can use FCOPY to
> convert the data in the first 80 columns to a fixed length, ascii
> file, before transfer. Something like this:
>
> !JOB1,OPERATOR.SYS,OPERATOR
> !
> !file dspflist,oldtemp;dev=disc;nocctl
> !if finfo("*dspflist",0) then
> ! purge dspflist,temp
> !endif
> !build dspflist;temp;rec=-80,,f,ascii;msg;nocctl;disc=50000
> !
> !listspf @;seleq=[FILEDES=STDLIST] >>*dspflist
> !
> !comment for each line in dspflist, extract the spoolfile
> !comment dfid, save then ftp the file to the server.
> !
> !while finfo("*xlstgrps",19) > 0
> ! input in_rec <*dspflist
> ! if str(in_rec,1,2) <> "#O" then
> ! comment This line not processed.
> ! else
> ! setvar dfid_num rtrim(str(in_rec,3,5))
> ! setvar spfile "O" + "!dfid_num" + ".OUT.HPSPOOL"
> ! setvar tmpfile "ZZ" + "!dfid_num"
> ! purge !tmpfile
> ! build !tmpfile;dev=disc;disc=25000;rec=-80,,f,ascii;nocctl
> ! fcopy from=!spfile;to=!tmpfile
> ! echo OPEN nt_server_name >ftpscrpt
> ! echo USER userid1 >>ftpscrpt
> ! echo somepassword >>ftpscrpt
> ! echo cd somedirectoryname >>ftpscrpt
> ! echo put !tmpfile >>ftpscrpt
> ! echo exit >>ftpscrpt
> ! errclear
> ! run FPT.ARPA.SYS <ftpscrpt
> ! eod
> ! if cierror > 0
> ! echo * A problem occurred sending !tmpfile, created from !spfile.
> ! else
> ! spoolf idname=!dfid_num;delete;show
> ! endif
> ! endif
> !endwhile
> !
> !eoj
>
> You will have to have your nt_server_name set up in the HOSTS file on the
> 3000, and create userid1, with the appropriate rights on the server. This
> assumes the home directory for the user is not where you'd want the files,
> hence the "cd somedirectoryname"; and it doesn't give the destination
files
> a very useful name, but it would get them there.
>
> HTH,
> Rs~
>
> Russ Smith, Systems Consultant
> Problem Solved, Vacaville, CA
> r s m i t h @ c u - h e l p . c o m
> h p 3 k - l @ e - 3 0 0 0 . n e t
>
> ----- Original Message -----
> From: "jobber" <[log in to unmask]>
> To: <[log in to unmask]>
> Sent: Tuesday, March 28, 2000 3:04 PM
> Subject: [HP3000-L] Ability to FTP STDLIST to PC
>
>
> > Hi,
> >
> > I hope someone can help. Is there a way to select all STDLIST from the
> > HP3000 and FTP them to an NT Server.
> >
> > The problem is I am sick and tired of printing all these listings but
> > need to keep them for historical purposes. I have an NT server with
heaps
> > of disk space and thought this would be a suitable place to store the
> > files. also disc space on the PC is also much cheaper than space on the
> > HP3000.
> >
> > Thanks
> >
> > [log in to unmask]
> >
>
|
