|
FFILE1 IP FFILE2 IS FFILE3 IS I NS 01 FIELDA M1 I NS 02 FIELDB M1 I NS 03 FIELDC M1 C 01 MR DO C do your stuff if you are matched C END C 01NMR DO C do your other stuff if your not matched C END repeat: for Record 02 and then for Record 3 Obviously there is a bit more to it then that, but that is about as simple as it gets when you let the RPG cycle do it's stuff for you. In </DD.id=KAHN@tco.infonet.com>, on 06/03/97 at 01:58 PM, "Kahn, David" </DD.id=KAHN@tco.infonet.com> said: #Paul, Dean and Cheri should feel free to demonstrate the brevity and #efficiency (if not necessarily the clarity) of the RPG cycle by #submitting a solution using MR indicators. :-) -- ----------------------------------------------------------- boothm@earth.goddard.edu ----------------------------------------------------------- * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * This is the Midrange System Mailing List! To submit a new message, * * send your mail to "MIDRANGE-L@midrange.com". To unsubscribe from * * this list send email to MAJORDOMO@midrange.com and specify * * 'unsubscribe MIDRANGE-L' in the body of your message. Questions * * should be directed to the list owner / operator: david@midrange.com * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
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.