Method x usually boils down to attaching a dtaq to the outq.

CRTDTAQ DTAQ(&LIB/&NAME) MAXLEN(222)
CRTDEVPRT DEVD(&NAME) DEVCLS(*VRT) TYPE(3812) MODEL(1) ONLINE(*NO)
FONT(11)
CHGOUTQ OUTQ(&NAME) DTAQ(&LIB/&NAME)

Have a NEP attach to the dtaq
CALL PGM(QRCVDTAQ) PARM(&DQNAME &DQLIB &DTALEN &DATA &WAIT)

IF COND(%SST(&DATA 1 10) *NE '*SPOOL ') THEN(GOTO
CMDLBL(ENDPGM))


CHGVAR VAR(&JOBNAME) VALUE(%SST(&DATA 13 26))

CHGVAR VAR(&SPLFNAME) VALUE(%SST(&DATA 39 10))

CHGVAR VAR(&SPLFNBR) VALUE(%SST(&DATA 49 4))



CHGVAR VAR(&JOBNAM) VALUE(%SST(&JOBNAME 1 10))

CHGVAR VAR(&JOBUSR) VALUE(%SST(&JOBNAME 11 10))

CHGVAR VAR(&JOBNBR) VALUE(%SST(&JOBNAME 21 6))

CHGVAR VAR(&SPLNBR) VALUE(%BIN(&SPLFNBR))

CHGVAR VAR(&SPLFNBRP) VALUE(&SPLNBR)

CALL PGM(SPOOLPROC) PARM(&DQNAME &JOBNAM &JOBUSR &JOBNBR &SPLFNBRP
&SPLFNAME)

Spoolproc program creates the PDF by copying the spoolfile

@Cmd = 'CPYSPLF FILE(' + %Trim(SpoolName)
+ ') TOFILE(*TOSTMF) JOB('
+ %Trim(JobNumber) + '/'
+ %Trim(JobUser) + '/'
+ %Trim(JobName) + ') SPLNBR('
+ %Trim(SplfNumber) + ') TOSTMF('
+ '''' + %Trim(Sparcd) + '/' + %Trim(@fileName)
+ '''' + ') WSCST(*PDF)';





Kevin Bucknum
Senior Programmer Analyst
MEDDATA/MEDTRON
Tel: 985-893-2550

-----Original Message-----
From: MIDRANGE-L [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf
Of Rob Berendt
Sent: Friday, September 21, 2018 1:18 PM
To: Midrange Systems Technical Discussion
Subject: Re: Can a OUTQ or PRINTER be configured to print all spool
files to
aPDF in the IFS?"

Multiple ways.

Method 1:
First load on the freebie 5770-TS1, IBM Transform Services for i.
You do it by printer file, not by output queue.
OVRPRTF FILE(...)
DEVTYPE(*AFPDS)
TOSTMF('/home/MYNAME/myfile.pdf')
WSCST(*PDF)

Method 2:
Buy 5722IP1 IBM Infoprint Server for iSeries, and I believe that's
more
tailored to doing anything hitting that output queue. We've done that
for
automatically emailing out the attachment also, based on what was put
in the
user data of the printer file.

Method x:
Expect a few replies on how you can use some vendor package and have
this
done for you.


Rob Berendt
--
IBM Certified System Administrator - IBM i 6.1
Group Dekko
Dept 1600
Mail to: 2505 Dekko Drive
Garrett, IN 46738
Ship to: Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





From: "a4g atl" <a4ginatl2@xxxxxxxxx>
To: midrange-l@xxxxxxxxxxxx
Date: 09/21/2018 02:07 PM
Subject: Can a OUTQ or PRINTER be configured to print all spool
files to a PDF in the IFS?"
Sent by: "MIDRANGE-L" <midrange-l-bounces@xxxxxxxxxxxx>



I am not having any success on this subject. I found commands to
convert
existing spool files to PDFs but nothing that allows all files written
to
an OUTQ to be automatically converted to a PDF and then written to the
IFS.

I guess I did not understand the announcements.

Is what I want to do possible?
Do I need to write code to convert my spool files in a OUTQ to a PDF
in
the
IFS ?

TIA

Darryl Freinkel
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: http://amzn.to/2dEadiD


--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: http://amzn.to/2dEadiD

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.