RE: Adding a module to an existing *SRVPGM

["Joel R. Cochran" <jrc@xxxxxxxxxxxxx>]

Thanks for the reply Scott,

I am not specifying a Binding directory on the CRTSRVPGM command.  This
*SRVPGM is in my main binding directory, which many of the modules reference
on their h-specs.

Here is my BND source (named the same as the *SRVPGM)

STRPGMEXP PGMLVL(*CURRENT)
  EXPORT SYMBOL("#SELFOR2")
  EXPORT SYMBOL("#HEADER2")
  EXPORT SYMBOL("#PROPNAV2")
  EXPORT SYMBOL("#ESCAPE")
  EXPORT SYMBOL("#GETCLIENT")
  EXPORT SYMBOL("#GETLOCAL")
  EXPORT SYMBOL("#GETGIS")
  EXPORT SYMBOL("#GETMAP")
  EXPORT SYMBOL("#DFTFORM")
  EXPORT SYMBOL("#LISTDWEL2")
  EXPORT SYMBOL("#GETSKETCH")
ENDPGMEXP

STRPGMEXP PGMLVL(*PRV)
  EXPORT SYMBOL("#SELFOR2")
  EXPORT SYMBOL("#HEADER2")
  EXPORT SYMBOL("#PROPNAV2")
  EXPORT SYMBOL("#ESCAPE")
  EXPORT SYMBOL("#GETCLIENT")
  EXPORT SYMBOL("#GETLOCAL")
  EXPORT SYMBOL("#GETGIS")
  EXPORT SYMBOL("#GETMAP")
  EXPORT SYMBOL("#DFTFORM")
  EXPORT SYMBOL("#LISTDWEL2")
ENDPGMEXP

Here is my CRTSRVPGM command:
CRTSRVPGM SRVPGM(CGILIB2/TEMP2SRV) MODULE(CGILIB2/#SELFOR2 CGILIB2/#HEADER2
CGILIB2/#PROPNAV2 CGILIB2/#ESCAPE CGILIB2/#GETCLIENT CGILIB2/#GETLOCAL
CGILIB2/#GETGIS CGILIB2/#GETMAP
CGILIB2/#DFTFORM CGILIB2/#LISTDWEL2 CGILIB2/#GETSKETCH)
 SRCFILE(CGILIB2/QSRVSRC) TEXT('VamaNet Members Template Service program')


Joel R. Cochran
Director of Internet Services
VamaNet.com
(800)480-8810
mailto:webmaster@vamanet.com


> -----Original Message-----
> From: Scott Mildenberger [mailto:Smildenber@Washcorp.com]
> Sent: Wednesday, May 22, 2002 12:22 PM
> To: 'rpg400-l@midrange.com'
> Subject: RE: Adding a module to an existing *SRVPGM
>
>
> You should be doing CRTSRVPGM when adding a new module.  Are
> you using a
> binding directory?  It sounds like you are and have all the
> modules in it as
> well as the service program.  I use different binding directories for
> creating the service program versus the programs that just
> use the service
> programs.  If this isn't the case I would have to see your
> CRTSRVPGM command
> and what you are specifying to bind to.
>
> Scott Mildenberger
>
> > -----Original Message-----
> > From: Joel R. Cochran [mailto:jrc@masi-brac.com]
> > Sent: Wednesday, May 22, 2002 9:51 AM
> > To: 'rpg400-l@midrange.com'
> > Subject: Adding a module to an existing *SRVPGM
> >
> >
> > OK,
> >
> > I thought I had this all down at one point but now I can't
> > seem to figure
> > this out.
> >
> > I have an existing *SRVPGM created with Binder Source.  Now I
> > need to add a
> > new *MODULE to this *SRVPGM.
> >
> > I have updated my Binder Source so that it now has a *PRV
> for the old
> > signature and a *CURRENT that includes the new *MODULE.
> >
> > I tried to run UPDSRVPGM with the new *MODULE name using
> > *SRCFILE, but I
> > receive a "Constituent module not found" error.
> >
> > I tried to run UPDSRVPGM with module *NONE, but I receive a
> > "***ERROR Symbol
> > not defined" error.
> >
> > I tried to run CRTSRVPGM, relisting all the *MODULEs
> > inclouding the new one,
> > but all the old *MODULEs threw a "Definition supplied
> > multiple times for
> > symbol" error because the old service program is listing
> them already.
> >
> > I guess I could delete the old *SRVPGM object before I
> > recreate it, but it
> > seems to me there should be a better way.  What am I missing???
> >
> > TIA,
> _______________________________________________
> 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.
>