|
It's been a lot of years since I worked with matching records. Peering through the cobwebs it seems to me that if you want only one line printed at L1 you will need to add MR to the EXSR condition. It's possible that there won't be a matching condition so you will need to add a L1NMR condition also. This is where it gets fuzzy. Hopefully someone else has more up to date experience. Rick -----Original Message----- From: rpg400-l-bounces+rick.chevalier=americredit.com@xxxxxxxxxxxx [mailto:rpg400-l-bounces+rick.chevalier=americredit.com@xxxxxxxxxxxx]On Behalf Of "Mañoso, Carl" Sent: Wednesday, April 06, 2005 7:29 PM To: rpg400-l (E-mail) Subject: primary and secondary files, match fields, summarizing/printing single line per key Mabuhay RPG gurus! A colleague has this problem, which I cannot solve, involving primary and secondary files and match fields. Here are the relevant code fragments and a sample output. A record pertaining to a particular key doesn't necessarily have to be in both files. SAMPLE PROGRAM ============== IPLNMJ1 01 I PLOYER M6 I PLOMKTL3M5 I PLOIGRL2M4 I PLOCSZL1M3 I PLOCVTL1M2 I PLOITML1M1 IINVSUM 02 I IVSYER M6 I IVSMKTL3M5 I IVSIGRL2M4 I IVSCSZL1M3 I IVSCVTL1M2 I IVSITML1M1 ---------- MAIN ---------- . . . CL1 EXSR PRTDTL . . SAMPLE OUTPUT ============= Cur Mo. Total Item_ Size__ Variety___ Market_PO_Description____ ___PO__ Shipmts CONC FOR DC OR DIRECT *1* 01160 12-46 PO EUROPE MARKET 1,000 *1* 01160 12-46 PO EUROPE MARKET 204 *2* 01254 6-10 J- EUROPE MARKET 1,000 *2* 01254 6-10 J- EUROPE MARKET 272 Sub-total 2,000 476 QUESTION ======== *INL1 controls the printing of a detail line. In the sample output above, lines indicated by *1* should supposedly appear in one line, lines indicated by *2* also in one line. However, as you can see, *INL1 is triggered twice, one for each file (primary and secondary), so that they were printed on two separate lines. Printing on every other setting of *INL1 also doesn't work because the records pertaining to a particular key need not appear in both files. Does anybody here knows of a technique that will print the summary of a record with details coming from two separate files in a single line? We are using RPG/400 on V4R5M0 (by order of our BDFL). Thanks in advance. -- Carl Mañoso "It is not real work unless you would rather be doing something else." [J.M.BARRIE] -- This is the RPG programming on the AS400 / 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. Privileged and Confidential. This e-mail, and any attachments there to, is intended only for use by the addressee(s) named herein and may contain privileged or confidential information. If you have received this e-mail in error, please notify me immediately by a return e-mail and delete this e-mail. You are hereby notified that any dissemination, distribution or copying of this e-mail and/or any attachments thereto, is strictly prohibited.
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
