|
Captain Peacock, I think this is what you're after: Source member 1: *------- D vfyCust pr n D pr_custnbr 7 0 D cust s 7 0 C C if vfyCust(cust) = *on C ** do something here ** C endif C C eval *inlr = *on *------- Source member 2: *------- H nomain Fcustmast if e k disk D vfyCust pr n D pr_custnbr 7 0 P vfyCust b export D vfyCust pi n D custnbr 7 0 C C custnbr chain custmast C if %found C return *on C else C return *off C endif P vfyCust e *------- Note: column positions may be (probably are) off. Phil > -----Original Message----- > From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]On > Behalf Of The TrekTeam > Sent: Sunday, March 03, 2002 5:31 PM > To: rpg400-l@midrange.com > Subject: Subprocedure in a module > > > Hi All, > > I'm attempting to learn subprocedures and don't quite get something. > I've got subprocedures in a single program all figured out, but when it > comes to a subprocedure in a seperate (nomain)module that's used in the > entry module, I'm lost. > Does anybody have a small example that they would like to share? > > -or- > > Do I need to code the Prototype in the main (entry) module and also in the > bound (nomain) module? > Do I need to use the EXTPROC keyword on this Prototype? > Do I have to call the subprocedure with a CallP? or can I use it > like a BIF? > > Hope these questions make sense... > > Thanks, > Capt.j > > _______________________________________________ > This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list > To post a message email: RPG400-L@midrange.com > To subscribe, unsubscribe, or change list options, > visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l > or email: RPG400-L-request@midrange.com > Before posting, please take a moment to review the archives > at http://archive.midrange.com/rpg400-l. > _________________________________________________________ Do You Yahoo!? Get your free @yahoo.com address at http://mail.yahoo.com
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 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.