Re: Service programs and QSRVSRC

Michael,

You should be ok, but you're going to have to use the PGMLVL(*PRV).

Do a DSPSRVPGM and get a list of the exported procedures.

                             Procedure Exports:

Procedure Name
MSG_TOSTATUSLINE
MSG_THROW
MSG_CATCH
MSG_RETHROW
MSG_GETCONSTRAINTNAME

Now create the binder source, make sure you match the order of the
procedures, new ones added at the end:
STRPGMEXP PGMLVL(*CURRENT) SIGNATURE('2009-10-09')
 EXPORT SYMBOL("MSG_TOSTATUSLINE")
 EXPORT SYMBOL("MSG_THROW")
 EXPORT SYMBOL("MSG_CATCH")
 EXPORT SYMBOL("MSG_RETHROW")
 EXPORT SYMBOL("MSG_GETCONSTRAINTNAME")
 EXPORT SYMBOL("MY_NEW_PROC1")
 EXPORT SYMBOL("MY_NEW_PROC2")
ENDPGMEXP

STRPGMEXP PGMLVL(*PRV)
 EXPORT SYMBOL("MSG_TOSTATUSLINE")
 EXPORT SYMBOL("MSG_THROW")
 EXPORT SYMBOL("MSG_CATCH")
 EXPORT SYMBOL("MSG_RETHROW")
 EXPORT SYMBOL("MSG_GETCONSTRAINTNAME")
ENDPGMEXP

HTH,
Charles


On Fri, Oct 9, 2009 at 9:35 AM,  <Michael_Schutte@xxxxxxxxxxxx> wrote:

I've created this service program awhile ago without using the QSRVSRC, I
just told the compiler to export all.  Well now, I'm adding new procedures
to the program and I was just wondering if I could now use the binding
source providing the new "current" interface and the previous and not have
to recompile the existing programs using the srvpgm?  Or am I screwed since
I didn't use the binding source on the first compile? FYI, I am going to be
using binding sources for now on as now I see the benefit.




--

Michael Schutte
Admin Professional



Try Bob Evans GRILLING SAUSAGE! This summer’s hottest destination is your
own backyard with Bob Evans Brats and Italian Sausage! For tasty recipes
using Bob Evans grilling sausage, visit http://www.BobEvans.com/Recipes

--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.