×
The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.
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 ---------- ---------- ------------------------- ------------------
As an Amazon Associate we earn from qualifying purchases.
This thread ...
Re: RPG - Software Architecture / Best practices, (continued)
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
