Re: AFPDS printing or other recommendations

I need to print a pick sheet cover page. It needs 4 pieces (fields) of
information.

I created a AFPDS PRTF and specified the FONT, CHRSIZ and PAGRTT.

I compile it in PDM/RLU requesting the prototype to print.



The prototype does not use the FONT and prints like a regular 10 cpi
report.



Questions:

1. Does the prototype not print AFPDS?
2. Did I do it wrong, probably? Code is at the end.



TIA



Darryl Freinkel

A4G.

Tel: 770.321.8562 Ext 111 | Cell: 678.355.8562




A*%%***********************************************************************


A*%%TS RD 20200714 102209 DFREINKEL REL-V7R2M0 5770-WDS


A*%%FI+30660100000000000000000000000000000000000000000000000000


A*%%FI 0000000000000000000000000000000000000000000000000


A*%%FL 001


A*%%NP



A*%%***********************************************************************


A R RCD000



A*%%***********************************************************************


A*%%RI 00000


A*%%FS 001



A*%%***********************************************************************


A FONT(12)


A CHRSIZ(20 20)


A PAGRTT(90)


A*


A ORDER_NO 10 2 16


A TEXT('Order or invoice number')


A RDATE 5 2 50


A TEXT('Run date')


A ORDER 6 0 10 16


A TEXT('Order number')


A NOCARTON 10 17 21


A TEXT('Number of Cartons')



A*%%***********************************************************************


A*%%SS


A*%%CL 008


A*%%CL 007


A*%%CP+999CRTPRTF


A*%%CP+ FILE(DFREINKEL/OERPCKP1)


A*%%CP+ DEVTYPE(*AFPDS)


A*%%CP PAGESIZE(*N 132)


A*%%CS+999CRTPRTF


A*%%CS+ FILE(QTEMP/QPRDRPT)


A*%%CS+ DEVTYPE(*AFPDS)


A*%%CS PAGESIZE(*N 132)



A*%%***********************************************************************


A* FONTNAME


A*




--
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@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.

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