Re: Printing GIF with AFPDS printer file. -- MIDRANGE-L

The Dell emulates Hewlett Packard PCL. I don't really understand what the
*USERASCII thing does. I guess no HPT is done?

Art

On Sat, Aug 6, 2016 at 4:42 PM, Michael Schutte <mschutte369@xxxxxxxxx>
wrote:

I'd imagine it might be the dell printer

Sent from my iPhone

On Aug 6, 2016, at 3:20 PM, Jack Tucky <jacktucky@xxxxxxxxx> wrote:

When I use QimgCvtImg to convert to the USERASCII spool file, I get junk

on

my printer.

The printer device description has HPT(*YES), I used MFG *HP5 (it's a
dell), Image Configuration *IMGA01, and system driver program *HPPJLDRV.

Not sure where to look, device description or ?

Thanks, Art

On Sat, Aug 6, 2016 at 1:59 AM, Vernon Hamberg <vhamberg@xxxxxxxxxxxxxxx

wrote:

Hi Michael

Congrats on your promotion - and thanks for confirming my findings.

Regards
Vern

On 8/5/2016 3:32 PM, Michael Schutte wrote:

Sorry guys, I don't pay much attention any more :-) . Been promoted.

Anyway, it turns out that it was a PDF not PCL. The printer that we

were

printing to was able to handle that after upping the RAM.

Jack...
Yes, I used WSCST to create the PDF in the IFS and then converted the

PDF

back to a *USERACSII spool file.

On Thu, Aug 4, 2016 at 3:32 PM, Jack Tucky <jacktucky@xxxxxxxxx>

wrote:

Michael: I'm having the same problem, the image just won't print.

You are saying that you used WSCST(*PDF) and created a PDF in the IFS,
then
converted that back to a spool file?

Art

On Thu, Aug 4, 2016 at 1:04 PM, Vernon Hamberg <

vhamberg@xxxxxxxxxxxxxxx

wrote:

Hi Michael

I'm coming back to this - and wondering if I have all the right

settings

for the QCvtImgCvt API.

What happens is, when I convert a PDF to a *USERASCII spooled file,

what

I

get is the PDF in the spooled file.

I was hoping it would give me PCL - it doesn't!

I tested it on an HP LJ that understands PDF - but we cannot count on

that

- many printers here do NOT have a PDF engine.

So perhaps a favor - since 7.1, CPYSPLF can copy the SPLF to a file

in

the

IFS - and if we don't specify a WSCST, and if it's a *USERASCII

SPLF, we

get the contents of that spooled file in the stream file - VERY

COOL!.

If you have some time, could you take one of your *USERASCII

conversions

and run CPYSPLF this way?

CPYSPLF FILE(spooled-file-name) TOFILE(*TOSTMF)

JOB(job-specification)

TOSTMF(stream-file-name)

Then take a look in the IFS - it'll be in EBCDIC, so you'll need to

view

it in CCSID 1252, probably.

I'm curious to know if it is actually PDF, not PCL. IF you get PCL, I

will

want to know how!! I'll look at the parameters again that you have

for

the

API.

Cheers and much thanks!
Vern

On 1/13/2016 3:36 PM, Michael Schutte wrote:

Good news. After getting the QimgCvtImg api to work using a stream

file.

I
thought I may be out of luck. But I was able to successfully get

what

I
needed.

During this process, I read up on the AFPRSC printer file keyword.

I

first
started out using that. The problem was that the printers wouldn't
print
the image that I've put on the spool file. I was expecting it work
basically like and image.

Since it wouldn't print from the original AFPDS spool file, I tried

to

override the printer file so that it would create a PDF on the IFS.

When

I

opened the PDF or printed, the image was there. So great I was

almost

there.

After that I fought for several days with trying to get the GIF

image

on a

printer file (QSYSPRT) overridden to DEVTYPE(*USERACSII). I was

able to

successfully get the image to print, but I had no control on where

it

printer, nor the size of it.

Then it hit me this morning. The QimgCvtImg api is able to convert

PDF

stream files to a spool file. So I gave it shot and was able to

get my

packing slip exactly how I need it.

The steps needed for others in the future when getting a base64

encoded

image from a webservice.

1. Get the GIF from UPS by initiating the call to the webservice.
2. parse the base64 string from the XML data (or whatever

datasource) .

3. Use Apr_Base64_Decode_Binary (apache's base64 program).
-- binary_length = Apr_Base64_Decode_Binary(binar
yImage:LabelImage);
//LabelImage is base64, the input parm. binaryImage is the output
converted string.
4. Converted the Source CCSID of 1208 to 500 using QtqIconvOpen,

iconv,

iconv_close procedures.
5. Wrote the binary string field to the IFS using Scott Klements IFS
procedures.
fd = open('/home/xxxxxxxxxx/testups.gif'
: O_WRONLY + O_CREAT + O_TRUNC
: S_IRUSR + S_IWUSR + S_IRGRP);
callp write(fd: %addr(binaryimage):

%len(%Trim(binaryimage)));

callp close(fd);
6. Override packing slip printer file.
OVRPRTF TESTUPS DEVTYPE(*AFPDS) OUTQ(QPRINTS) PAGESIZE(66 85)
TOSTMF(''/home/xxxxxxxxxx/test1.pdf'') WSCST(*PDF)');
7. Opened printer file for packing slip. Add information to print,

and

set

image in proper place using program to system fields.

Rotate = 0;
// How far down the page.
POSD = 6.5;
// How far across the page
POSA = 1.25;
// Width of the image
WIDTH = 8;
// Height of the image
HEIGHT = 4;
// Name of Object on IFS. WITHOUT THE PATH
OBJNAME = testups.gif;
// Path to the Object
PATH = '/home/xxxxxxxxxx/';
Write REC1; // Put image on page.
7.A. The REC1 definition.
A R REC1 AFPRSC(&OBJNAME 22 +
A &POSD &POSA +
A (*SIZE &WIDTH &HEIGHT)

+

A (*ROTATION &ROTATE) +
A (*MAPOPT *SL) +
A (*PATH &PATH) +
A )
A ROTATE 3S 0P
A POSD 5S 3P
A POSA 5S 3P
A WIDTH 5S 3P
A HEIGHT 5S 3P
A OBJNAME 125A P
A PATH 500A P

8. Override QSYSPRT as device type of *USERASCII
OVRPRTF QSYSPRT DEVTYPE(*USERASCII) // there is no opening of
this
file. QimgCvtImg will create it.
9. Call QimgCvtImg after setting up the datastructures to pass to

it.

Code
example found here. http://code.midrange.com/0452359861.html
10. Delete override on both printer files.
11. Printer file created in QimgCvtImg prints with image on it!!!!!

On Tue, Jan 12, 2016 at 1:21 PM, Michael Schutte <
mschutte369@xxxxxxxxx
wrote:

So I was able to get the QIMGCVTI/QimgCvtImg api to work. However,

I

don't think this is what I need. Because I don't see how I can

get

the

image to the printer file in the position I need it and the

orientation

needed.

Here is the code I was able to get working in case someone else

needs

it.

http://code.midrange.com/0452359861.html

On Mon, Jan 11, 2016 at 11:54 AM, Michael Schutte <

mschutte369@xxxxxxxxx

wrote:

I am amazed by the lack of examples using the QIMGCVTI, QimgCvtImg

APIs.

A lot of people asking for examples, but not getting any answers.

I'm

going to give a shot and see what happens. I'm not completely sure

what

needs to go into the data structures. So I'll see how it goes. Ask

questions as I go. Sorry!

On Mon, Jan 11, 2016 at 10:26 AM, Wilson, Jonathan <
piercing_male@xxxxxxxxxxx> wrote:

On Mon, 2016-01-11 at 09:58 -0500, Michael Schutte wrote:

Now that I think about it, I believe I found that before the last
time

I

tried this project.

I changed it to 22 and it still prints the image. But it only

does

it

if I

override the printer file to *PDF and to the IFS. Which requires

me

to

then

open in Adobe and print.

This would be a problem for us as the account will be printing a

batch

of

these, usually more than 100.

Obviously, I could run a windows command to print. But that

seems

troublesome and I don't believe that would work in a submitted

job. I

say

don't believe because I've never tried and a submitted job;

wouldn't

have a

terminal to a pc.

It probably wouldn't print as you say, because there wouldn't be

windows
attached. That said, I wonder if it would be possible to print

via

qsh

(or similar) by using a *nix pdf print program or more directly

calling

a java one? Obviously that would depend on getting the source,

and/or a

successful compile in the *nix environment or java language (both of

which I have no experience with in the IBM/i world).

Anyway, is there any way I could get this to print from a spool
file
much

like a page segment or overlay?

From what I've seen we need to have InfoPrint Server or

something

like
that. How can I tell if we have that?

Or can I take the base64 string and create an overlay/page

segment?

We are printing to an HP printer. I test using HP OfficeJet Pro

X476

dnMFP

Production printer will be HP LaserJet 4350dtn

I tried using Scott's PRTSTMF, but it's cutting off the last

inch

of

the

page and telling the printer that I need to put legal paper in.

I

don't

know why.

On Mon, Jan 11, 2016 at 8:50 AM, Charles Wilt <

charles.wilt@xxxxxxxxx

wrote:

That's the way I read it...

Strange that they don't have a symbolic constant for GIF.

Charles

On Fri, Jan 8, 2016 at 6:03 PM, John Yeung <

gallium.arsenide@xxxxxxxxx>

wrote:

On Fri, Jan 8, 2016 at 5:31 PM, Charles Wilt <
charles.wilt@xxxxxxxxx>

wrote:

R REC1 AFPRSC('TEST.GIF' 22 2.0 1.0 +

(*SIZE 4 4) (*MAPOPT *SL))

That is indeed interesting. Am I reading it right that the

image

type

there is 22, and not some symbolic constant?

John Y.

--
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: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxx for any subscription

related

questions.

--

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: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxx for any subscription

related

questions.

--

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: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

--

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: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

--

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: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

--
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: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

--
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: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxx for any subscription related

questions.
--
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: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.