That should do the trick
Martin
"todd dry" <todd...@yahoo.com> wrote in message
news:d04dbd7a.02021...@posting.google.com...
If the spooled file is a simple SCS spooled file, then I could send to you a
simple utility to save and restore spooled files.
Thomas Raddatz.
todd dry schrieb:
>
> Is there a way to COPY a spool file from one OutQ to Another without
> losing the original spool file in the original OutQ.
--
*=====================================================*
e-mail Adresse:
Thomas....@tools400.de
Homepage:
http://www.tools400.de
*=====================================================*
whilst your suggestion certainly works, it's a lot of overhead.
With SNDTCPSPLF you can directly *beam* it into the right out queue, no
major config and no directory entries etc required.
"Thomas Raddatz" <rp1...@online-club.de> wrote in message
news:3C716F85...@online-club.de...
http://www.bvstools.com/spl2spl.html
Brad
www.bvstools.com
On 18 Feb 2002 12:39:22 -0800, todd...@yahoo.com (todd dry) wrote:
>Is there a way to COPY a spool file from one OutQ to Another without
>losing the original spool file in the original OutQ.
Bradley V. Stone
www.bvstools.com
--
Regards,
Francis Lapeyre
"Facilius est camelum per foramen acus transire quam divitem intrare in regnum Dei."
(Mk 10:25)
Return address is filtered via SpamCop.
"Thomas Raddatz" <rp1...@online-club.de> wrote in message news:3C716F85...@online-club.de...
> If QSNADS is set up und running, then you can use SNDNETSPLF to send the spooled
> file to another user´s outq.
We have a FREE utility program available called RJSDUPSPLF which will allow
you to duplicate an entire spool file along with its existing spool
attributes to any output queue. The tool supports any size spool file and
you can also change the spool file name, form type, user defined data, etc.
during the copy process.
The tool is not currently posted on our web site, so email me if you would
like a copy of the utility and I will forward the installation library save
file to you.
The RJSDUPSPLF command will currently work with OS/400 levels V4R2 - V5R1.
Regards,
Richard Schoen
RJS Software Systems Inc.
"The AS/400 Report and Data Delivery Experts"
Email: ric...@rjssoft.com
Web Site: http://www.rjssoft.com
"todd dry" <todd...@yahoo.com> wrote in message
news:d04dbd7a.02021...@posting.google.com...
On Mon, 18 Feb 2002 13:29:30 -0800, "Martin Brieger"
<Martin....@mbsoft.nu> wrote:
>whilst your suggestion certainly works, it's a lot of overhead.
>With SNDTCPSPLF you can directly *beam* it into the right out queue, no
>major config and no directory entries etc required.
PMFJI, in some cases we deliberately use SNADS to make sure that it is
under a user profile that is not the original profile. This is to
prevent the user from deleting it and/or to keep my automatic spool
file cleanup from deleting it.
Ken
http://www.ke9nr.org/
Opinions expressed are my own and do not necessarily represent the views of my employer or anyone in their right mind.
Kim Egekjaer
"Richard Schoen" <ric...@rjssoft.com> wrote in message news:<Y5lc8.3543$Q9.9...@twister.kc.rr.com>...
Name : PUTSPLF CMD Put spooled file
Command . . . . . . . . . . . . > PUTSPLF
Library . . . . . . . . . . . *LIBL
Program to process command . . . QSPPUTF
Library . . . . . . . . . . . *LIBL
Source:
CMD PROMPT('PUT SPOOLED FILE')
PARM KWD(FILE) TYPE(QUAL2) PROMPT('DATABASE FILE')
PARM KWD(OUTQ) TYPE(QUAL2) +
PROMPT('OUTQUEUE')
PARM KWD(MBR) TYPE(*CHAR) LEN(10) DFT(*FIRST) +
SPCVAL((*FIRST)) PROMPT('MEMBER')
QUAL2: QUAL TYPE(*NAME) LEN(10) MIN(1) EXPR(*YES)
QUAL TYPE(*NAME) LEN(10) EXPR(*YES) +
PROMPT('LIBRARY')
Name : GETSPLF CMD Get spooled file
Command . . . . . . . . . . . . > GETSPLF
Library . . . . . . . . . . . *LIBL
Program to process command . . . QSPGETF
Library . . . . . . . . . . . *LIBL
Source:
CMD PROMPT('GET SPOOLED FILE')
PARM KWD(FILE) TYPE(*CHAR) LEN(10) +
PROMPT('SPOOLED FILE NAME')
PARM KWD(TOFILE) TYPE(QUAL2) PROMPT('DATABASE FILE')
PARM KWD(JOB) TYPE(QUAL1) DFT(*) SNGVAL((*)) +
PROMPT('JOB')
PARM KWD(SPLNBR) TYPE(*INT2) DFT(*ONLY) +
RANGE(0001 9999) SPCVAL((*ONLY 0) (*LAST +
-1)) PROMPT('SPOOLED FILE NUMBER')
PARM KWD(MBR) TYPE(*CHAR) LEN(10) DFT(*FIRST) +
SPCVAL((*FIRST)) PROMPT('MEMBER')
QUAL1: QUAL TYPE(*NAME) LEN(10) MIN(1) EXPR(*YES)
QUAL TYPE(*NAME) LEN(10) EXPR(*YES) PROMPT('USER')
QUAL TYPE(*CHAR) LEN(6) RANGE(000000 999999) +
FULL(*YES) PROMPT('JOB NUMBER')
QUAL2: QUAL TYPE(*NAME) LEN(10) MIN(1) EXPR(*YES)
QUAL TYPE(*NAME) LEN(10) EXPR(*YES) +
PROMPT('LIBRARY')
--
Use our news server 'news.foorum.com' from anywhere.
More details at: http://nnrpinfo.go.foorum.com/
moms wrote:
--
Rodney A Johnson
Technical Team Lead for AS/400 Spool
Dept GJC
IBM Rochester, Minnesota
The contents of this message express only the sender's opinion.
This message does not necessarily reflect the policy or views of
my employer, IBM. All responsibility for the statements
made in this Usenet posting resides solely and completely with the
sender.