× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Mark, it appears you may be correct -- I just stepped into that module in the SEP debugger, and it pulled up the production source this time (with my copy of the module no longer in existence).

Verrry Interestingk. (but SCHTUPIDT!).

Michael Koester

-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of
mlazarus
Sent: Wednesday, January 27, 2016 12:48 PM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: Re: wrong copy of module remains in service program

Michael,

I'm pretty the object that was included is correct. Unfortunately,
UPDSRVPGM does not update the associated information (like the library)
properly. I find that behavior quite disconcerting, since we rely on the
basic object information to be correct...

-mark

On 1/27/2016 12:29 PM, Koester, Michael wrote:
I have a service program in our Production library, TFSCM1. I created a
copy of that in my test library, MKOESTER, using CRTSRVPGM, which picked
up all the modules from the production library (on purpose), except for
one module from my test library, which I had neglected to delete after
sending my updates to Production last Monday. (I discovered that during a
SEP-debug session when the debugger couldn't find the source, which had
been removed from my source file last Monday).
Okay, so I deleted the GETNOVASTS module object from my library, and ran
"UPDSRVPGM MKOESTER /NEONOVAAPI MODULE(*LIBL/GETNOVASTS)". I thought that
would find no such GETNOVASTS module in my library and pick up the one
from the TFSCM1 library (Production) further down the library list.
Message after UPSRVPGM indicated that 1 of the 24 modules was
successfully updated, but when I run "dspsrvpgm mkoester/neonovaapi
detail(*module)", all modules listed as being in the production library,
except the GETNOVASTS, which is still (according to dspsrvpgm) in
MKOESTER.
I verified that there is no mkoester/getnovasts object, and that the
*MODULE object IS in TFSCM1, and that TFSCM1 is in my library list. And I
have *USE and *execute authority on TFSCM1 library.

So how does the UPDSRVPGM pick up a module from a library with no such
object? What am I missing?

Many thanks,
Michael Koester

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.