378 (still, I think).
http://search400.techtarget.com/answer/Changing-the-width-of-a-printer-file
http://tinyurl.com/ayw6taj
BTW, if you wish to post your code, you can use Notepad to create a text
(.txt) file, which will attach to your midrange.com posts and hold its
formatting.
See the file Code.txt attached.
Norm Dennis
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of A Paul
Sent: Tuesday, 29 January 2013 7:32 AM
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.
-----
No virus found in this message.
Checked by AVG - www.avg.com
Version: 2013.0.2890 / Virus Database: 2639/6061 - Release Date: 01/27/13
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 ---------- ---------- ------------------------- ------------------
midrange.com
