Re: O spec help needed please -- RPG400-L

Booth -
HE is a she! ;-)
-sjl

"Booth Martin" wrote in message news:mailman.12478.1359424996.10847.rpg400-l@xxxxxxxxxxxx...

He is looking for CRTPRTF I believe. He is not using QSYSPRT, he is
using LIST, which is probably defined with 156 characters. I would
suggest changing the RPG program to LIST271 and then do a CRTPRTF
LIST271 and use F4, then F10 and changing the PAGSIZ to 271 Characters.
Then he can compile his program successfully and it should work,
providing his printer device can handle it.

On 1/28/2013 7:39 PM, Terry Nonamaker wrote:

Jerry is probably on the right track
......at the very least you will need to change your Cpi(20) and Font(*cpi)
.....and your lines per inch will probably need to be changed to ... Lpi(8)
.....and depending on what you already have, the overflow line may need to
change
.....and these might not even work for such a wide report
.....unless you have an even wider printer than most of us would be thinking
of

If you had a really wide report and printed at Lpi(6)
....it could end up sort of weird, some printers don't like these variances

An example of this might be, others might do it differently
OVRPRTF FILE(QSYSPRT) PAGESIZE(66 271) LPI(8) +
CPI(20) OVRFLW(58) FONT(*CPI) PAGRTT(90)

You may have to figure out your own #'s

You did not say what kind of printer you have
.....are you printing on green bar ... 11x14
....or on 8.5x11 copy paper

If it's 8.5x11, you probably won't even be able to read it at that width

You might think about printing to a pdf file
.....adobe can usually compensate for some of these things
.....and then your print might come out right

It might have seemed reasonable to expand to the right

But it might be a better idea to redesign the report in order to make it
more readable
.....it might add more lines/pages, but the results would be more desirable

Terry Nonamaker

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of A Paul
Sent: Monday, January 28, 2013 3:32 PM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: O spec help needed please

Hi All
I am looking for some help, I really appreciate your time if you could
advise me.
1. what is the max width for a printer file?
I have increased my field lengths, my printer file is now at 271. My report
does nt come properly however, can you suggest me if any changes I need to
make in my below code. The changes I made is with AP

0029.00 Fsaprecf01 ipe e K Disk
0030.00 Fadmfile if f 256 Disk
0031.00 F*list o f 156 Printer OFLIND(*InOA) AP
Flist o f 271 Printer OFLIND(*InOA)
0032.00
0033.00 d desc85 s 85 dim(2) perrcd(1) ctdata
0034.00 d desc s 66 dim(4) perrcd(1) ctdata
0035.00 d hhmmss s 6 0
0036.00 d lines s 2s 0
0037.00 d*netamnt s 17s 2 AP D NETAMNT
S 15S 2
0038.00 d*index s 18a AP D INDEX
S 64A
0039.00
0040.00
0041.00 isaprec 01
0042.00
0043.00 iadmfile aa
0044.00 i 2 7 tymd
0045.00 i 8 13 0tmdy
0047.00
********************************************************************
0048.00 * Detail processing
0049.00
********************************************************************
0050.00 c {some code }
0061.00 c except details
0062.00 c endif
0063.00
0064.00
********************************************************************
0065.00 * Initialization Subroutine
0066.00
********************************************************************
0067.00 c *inzsr begsr
0068.00
0069.00 c time hhmmss
0070.00
0071.00 c 2 chain admfile
0072.00 c if not %found
0073.00 c eval tmdy = udate
0074.00 c endif
0075.00
0076.00 c except
header

0077.00 c eval lines = 2
0078.00 c endsr
0079.00
********************************************************************
0080.00 * Generate Reconciliation report
0081.00
********************************************************************
0079.00
********************************************************************
0080.00 * Generate Reconciliation report
0081.00
********************************************************************
0082.00 olist e header 2 01
0083.00 O desc85(1) 85
0084.00 o tmdy y 109
0085.00 o hhmmss 118 ' . . '
0086.00 o 124 'PAGE'
0087.00 o page z 130
0088.00
0089.00 O e header 2
0090.00 O desc85(2) 85
0091.00
0092.00 O e header 2
0093.00 O desc(1) 66
0094.00 O desc(2) 132
0095.00
0096.00 O e header 2
0097.00 O desc(3) 66
0098.00 O desc(4) 132
0099.00
0100.00
0101.00 O e details 1
0102.00 O* rsource 3
0103.00 O* rdealid 20
0104.00 O* rplatid 37
0105.00 O* racct 54
0106.00 O* rtdate 65
0107.00 O* redate 76
0108.00 O* rmdate 87
0109.00 O* netamnt 109 ' , , , , 0
0110.00 O* rpaycur 113
0111.00 O* index 132 AP
O rsource 3 AP
O rdealid 68 AP
O rplatid 109 AP
O racct 150 AP
O rtdate 161 AP
O redate 172 AP
O rmdate 183 AP
O netamnt 202 ' , , , , 0 AP
O rpaycur 206 AP
O index 271
0112.00
0113.00 **
0114.00 sap Accounts clnt diff Money & Balance Reconciliation
0115.00 The following records had no corresponding match rec in either sap
or vndr
0116.00 **
0117.00 Src Balanced ID Platform ID Account Trade Date
0118.00 Start Date Maturity netamnt Index
0119.00 --- ---------------- ---------------- ---------------- ----------
0120.00 ---------- ---------- ------------------------- ------------------
--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.