Re: Can a OUTQ or PRINTER be configured to print all spool files to aPDF in the IFS?"

Slick!


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: "Kevin Bucknum" <Kevin@xxxxxxxxxxxxxxxxxxx>
To: "Midrange Systems Technical Discussion" <midrange-l@xxxxxxxxxxxx>
Date: 09/21/2018 02:31 PM
Subject: RE: Can a OUTQ or PRINTER be configured to print all spool
files to aPDF in the IFS?"
Sent by: "MIDRANGE-L" <midrange-l-bounces@xxxxxxxxxxxx>



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

--
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