|
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.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
midrange.com
