Re: Service program reference problem

I used to do it that way....but decided after listening to the experts
that changing a hardcoded signature didn't really add any value.

So now I only change the signature when I want to force program to be
rebound to get the new signature.

Charles

On Mon, Apr 27, 2009 at 8:19 PM, Pete Hall <pete@xxxxxxxxxxxxxx> wrote:

Ewout N Boter wrote:

STRPGMEXP  SIGNATURE('ECL_PRC01       ')
EXPORT     SYMBOL(ECL_CLCFRCRDC)
EXPORT     SYMBOL(ECL_CHKORDTYP)
EXPORT     SYMBOL(ECL_CHKPRODGRP)
EXPORT     SYMBOL(ECL_CHKAD)
EXPORT     SYMBOL(ECL_POSTORDLINE)
ENDPGMEXP

STRPGMEXP  SIGNATURE('ECL_PRC01       ')
EXPORT     SYMBOL(ECL_CLCFRCRDC)
EXPORT     SYMBOL(ECL_CHKORDTYP)
EXPORT     SYMBOL(ECL_CHKPRODGRP)
EXPORT     SYMBOL(ECL_CHKAD)
EXPORT     SYMBOL(CHKADRESULTS)
EXPORT     SYMBOL(ECL_POSTORDLINE)
EXPORT     SYMBOL(ECL_CHGORDQTY)
ENDPGMEXP

In our shop, we know that new procedures should always be put in the last
position of the binder source. From now on, we know that data exports
should also be put in the last position. (The data export was probably put
on the fifth position because it is used in the context of ECL_CHKAD.)

In addition to always adding to the end of the list, I've always
modified the signature also, something like:
 STRPGMEXP   PGMLVL(*CURRENT)  SIGNATURE('ECL_PRC01 V02')
  and
 STRPGMEXP   PGMLVL(*PRV) SIGNATURE('ECL_PRC01 V01')
Existing programs use the exports that match the signature they were
compiled with. I've not had any problems doing it that way, so I guess
it must work (as long as the previously existing method argument
definitions don't change, of course.)

--
Pete Hall
pete@xxxxxxxxxxxxxx
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.