Re: Service programs and QSRVSRC

[Charles Wilt <charles.wilt@xxxxxxxxx>]

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.