RE: Processes after CRTSRVPGM

My personal preference is never use *prv. IMHO, it is quite dangerous.


So, If your binding language was this:
STRPGMEXP PGMLVL(*CURRENT) SIGNATURE('IFS_ServiceProgram')
EXPORT SYMBOL(IFS_Proc1)
ENDPGMEXP

Need to add IFS_Proc2 and IFS_Proc3 to the end of service program? Ok,
simply change the binding language to be as below:
STRPGMEXP PGMLVL(*CURRENT) SIGNATURE('IFS_ServiceProgram')
EXPORT SYMBOL(IFS_Proc1)
EXPORT SYMBOL(IFS_Proc2)
EXPORT SYMBOL(IFS_Proc3)
ENDPGMEXP


The only time that you want to rename this signature is if you need to
change something that will cause existing program to not function
correctly without re-bind. For example, you want to remove IFS_Proc2.
In this case, you would want to change the signature name like below:
STRPGMEXP PGMLVL(*CURRENT) SIGNATURE('IFS_ServiceProgram_V1')
EXPORT SYMBOL(IFS_Proc1)
EXPORT SYMBOL(IFS_Proc3)
ENDPGMEXP


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of M. Lazarus
Sent: Wednesday, February 13, 2008 9:52 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: Processes after CRTSRVPGM

Simon,

You're technically correct, of course, but since I've needed to track
down an elusive bug due to someone forgetting to change the named
signature, I've decided to go back to letting the system assign the
signature.

Since the compilation and last source change date can be retrieved
from the object itself, I don't see a major advantage in putting the
version in the signature.

-mark

At 2/13/08 04:01 PM, you wrote:

On 14/02/2008, at 6:57 AM, M. Lazarus wrote:

That method tells the system that you are managing the signatures.

This is almost the equivalent of setting LVLCHK(*NO) on your files.

It gets rid of the error message, but also disables the error
checking!

Only if you never change the signature. You can still get signature
protection if YOU specify a new signature. For example:

STRPGMEXP PGMLVL(*CURRENT) SIGNATURE('USEFUL_TOOLS_310) STRPGMEXP
PGMLVL(*PRV) SIGNATURE('USEFUL_TOOLS_240) STRPGMEXP PGMLVL(*PRV)
SIGNATURE('USEFUL_TOOLS_230) STRPGMEXP PGMLVL(*PRV)
SIGNATURE('USEFUL_TOOLS_220) STRPGMEXP PGMLVL(*PRV)
SIGNATURE('USEFUL_TOOLS_210) STRPGMEXP PGMLVL(*PRV)
SIGNATURE('USEFUL_TOOLS_110)

This has the advantage of 'meaningful' signatures AND the so-called
level check.

Regards,
Simon Coulter.
--------------------------------------------------------------------
FlyByNight Software OS/400, i5/OS Technical Specialists

http://www.flybynight.com.au/
Phone: +61 2 6657 8251 Mobile: +61 0411 091 400 /"\
Fax: +61 2 6657 8251 \ /
X
ASCII Ribbon campaign against HTML E-Mail / \

--
This is the RPG programming on the AS400 / iSeries (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.