Re: AFPDS Printer File Format Keyword: AFPRSC

Hi Jeff

I have a similar example - we use AFPRSC in production - my question -
/QOpenSys is case-sensitive - be sure the case of your passed value is
correct.

I just jumped into this thread - do you have a joblog message giving you
and error code of any kind? A number in the 3000's?

HTH
Vern

On 4/19/2019 9:22 AM, Jeff Bianchi wrote:

I'm really trying to simplify this so that I can get it to work -- but

still no joy.

I created a command to facilitate my testing. The command has one parm

which is the path and TIFF resource I want to print.

Here's my code:

1. CMD - AFPTEST
CMD PROMPT('Test of Printing TIFF to AFP')

PARM KWD(TIFF) TYPE(*CHAR) LEN(250) MIN(1) +
PROMPT('TIFF (w/Path)')


2. PRTF - AFPTEST01
A R REC01 AFPRSC(&RESN 14 +
A &POSD &POSA +
A (*SIZE &WDTH &HGT) +
A (*PATH &PATH) +
A (*MAPOPT *ST))
A RESN 250A P
A POSD 5S 3P
A POSA 5S 3P
A WDTH 5S 3P
A HGT 5S 3P
A PATH 500A P

3. RPGLE - AFPTEST
H dftactgrp(*no)
Fafptest01 O E PRINTER
DAFPTEST PR
D input 250
DAFPTEST PI
D input 250
*
D lastSlashPos s 3 0 inz(0)
D path s 500
/free
EXSR initPgm;
EXSR mainPgm;
EXSR exitPgm;
/eject
BEGSR initPgm;

lastSlashPos = %scanr('/': input);
resn = %subst(%trim(input): lastSlashPos + 1);
path = %trim(%subst(input: 1: lastSlashPos));
posd = 1.0;
posa = 1.0;
wdth = 10.0;
hgt = 10.0;

ENDSR;
/eject
BEGSR mainPgm;

WRITE rec01;

ENDSR;

/eject
BEGSR exitPgm;

*INLR = *On;
RETURN;

ENDSR;
/end-free

The command I execute is:

AFPTEST TIFF('/QOpenSys/CUBBAT/00028654955.tiff')

I've tried the OVRPRTF suggestion and all I end up with is an empty PDF.

We're on 7.3 and have our PTFs up to date.

Any ideas?

Thanks!


Jeff

--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com