|
Mark, In your example mod1 doesn't have the *NOMAIN keyword shown. Couldn't you also have an entry module that doesn't have the mainline compiler instructions added (i.e. *NOMAIN)? The ENTMOD parm on CRTPGM lets you specify where to enter the program and I believe that becomes the controlling module. When it ends the program ends. I haven't built a program like that in a while so I am a little fuzzy on the details. Rick -----Original Message----- From: MWalter@hanoverwire.com [mailto:MWalter@hanoverwire.com] Sent: Friday, December 06, 2002 12:53 PM To: rpg400-l@midrange.com Subject: Re: Can an RPG module call another RPG module? Dan, Modules themselves cannot be executed therefore you must bind all of the modules you wish to call into a program or service program. At least one of your modules must have mainline code. That is your Program Entry Procedure that is specified on the CRTPGM command. Here is a simplistic example: Mod1 C callb Mod2 C callb mod3 C return Mod2 Hnomain C 'MODULE2' dsply Mod3 Hnomain c 'MODULE3' dsply Add three above code snipits into 3 separate source members. Compile them using the CRTRPGMOD command or Option 15 from PDM. Then issue the command CRTPGM PGM(mylib/pgm1) module(mylib/mod1 mylib/mod2 mylib/mod3) ENTMOD(mylib/mod1) The Call pgm1 Hope this helps, Mark Mark Walter Sr. Programmer/Analyst Hanover Wire Cloth a div of CCX, Inc. mwalter@hanoverwire.com http://www.hanoverwire.com 717.637.3795 Ext.3040 /"\ \ / X / \ Dan <dbcerpg@yahoo.co To: rpg400-l@midrange.com m> cc: Sent by: Subject: Can an RPG module call another RPG module? rpg400-l-admin@mi drange.com 12/06/2002 01:38 PM Please respond to rpg400-l If so, how do you create the program? Are there special considerations? TIA, Dan __________________________________________________ Do you Yahoo!? Yahoo! Mail Plus - Powerful. Affordable. Sign up now. http://mailplus.yahoo.com _______________________________________________ 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. _______________________________________________ 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.
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.