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.