Re: Need help with a service program

In this instance the PRV and current signatures would be identical so it really should’t matter. The names and their sequence are the same.

My guess is that the bind source you are working with is not the one that was used last time. There was possibly a different *PRV which should have been retained and wasn’t.

Look at one of the programs that is crashing and see which procedure(s) from your list it is using. If there is only one of the two being used try adding an _additional_ PRV entry that _only_ references that procedure and then display the Serv Pgm’s signatures and see if the newly created one matches the one the crashing program is looking for. If it is then you have your answer.


Jon Paris

www.partner400.com
www.SystemiDeveloper.com

On Aug 12, 2016, at 12:46 PM, John R. Smith, Jr. <smith5646midrange@xxxxxxxxx> wrote:

I think we are getting close with that info. The new version only has one
signature. How do I get it to keep the previous signatures?

The RPGLE is compiled to a module.

We do CRTSRVPGM SRVPGM(IIAPGM/CMSRV1). All other keywords default.

Service program . . . . . . . . CMSRV1
Library . . . . . . . . . . . IIAPGM
Module . . . . . . . . . . . . . *SRVPGM
Library . . . . . . . . . . .
+ for more values

Export . . . . . . . . . . . . . *SRCFILE
Export source file . . . . . . . QSRVSRC
Library . . . . . . . . . . . *LIBL
Export source member . . . . . . *SRVPGM

The BND source contains (to save you from rereading prior emails)

STRPGMEXP PGMLVL(*CURRENT)
EXPORT SYMBOL(SCGETNVPS)
EXPORT SYMBOL(SCGETNVP)
ENDPGMEXP

STRPGMEXP PGMLVL(*PRV)
EXPORT SYMBOL(SCGETNVPS)
EXPORT SYMBOL(SCGETNVP)
ENDPGMEXP

Also, is there any chance that Aldon is causing me the problem in the way it
promotes objects?

-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of
dlclark@xxxxxxxxxxxxxxxx
Sent: Friday, August 12, 2016 12:30 PM
To: RPG programming on the IBM i (AS/400 and iSeries)
<rpg400-l@xxxxxxxxxxxx>
Subject: RE: Need help with a service program

"RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxx> wrote on 08/12/2016 12:04:52
PM:

I'm a little shaky on service programs so I might need a little more
instructions but here is what I am finding.

When you display a service program it will display both the current
signature and any previous signatures it still supports (see display 9 of
10). Make sure your new service program shows the old signatures --
otherwise, that is why you are seeing that error.

Display Service Program Information

Service program . . . . . . . . . . . . : UT010SV
Library . . . . . . . . . . . . . . . : PGM460
Owner . . . . . . . . . . . . . . . . . : WISEMAST
Service program attribute . . . . . . . : RPGLE
Detail . . . . . . . . . . . . . . . . . : *SIGNATURE

Signatures:

UT010SV20150612
UT010SV20140503
UT010SV20141005
UT010SV20140722
UT010SV20140601
UT010SV20140422
UT010SV20140320
UT010SV20140210
UT010SV20131210
UT010SV20131030

Sincerely,

Dave Clark
--
int.ext: 91078
direct: (937) 531-6378
home: (937) 751-3300

Winsupply Group Services
3110 Kettering Boulevard
Dayton, Ohio 45439 USA
(937) 294-5331




****************************************************************************
*****************
This email message and any attachments is for use only by the named
addressee(s) and may contain confidential, privileged and/or proprietary
information. If you have received this message in error, please immediately
notify the sender and delete and destroy the message and all copies. All
unauthorized direct or indirect use or disclosure of this message is
strictly prohibited. No right to confidentiality or privilege is waived or
lost by any error in transmission.
****************************************************************************
*****************
--
This is the RPG programming on the IBM i (AS/400 and 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.

Please contact support@xxxxxxxxxxxx for any subscription related questions.

--
This is the RPG programming on the IBM i (AS/400 and 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.

Please contact support@xxxxxxxxxxxx for any subscription related questions.