Re: Service program not found error

Thanks Birgitta. Mark Waterbury beat you to the *DEFER solution.

I wondered about "...or program generated with Activation Group *CALLER", so I created a couple of CLLE programs:

TESTNFND (activation group *NEW)
    CALL TESTNFND1

TESTNFND1 (activatation group *CALLER)
   CALL NOTFOUND (no such program)

then did

CALL TESTNFND

Unlike the service program situation, in this case TESTNFND was called and successfully called TESTNFND1 which got an error when it tried to call NOTFOUND. In other words, if this were like the service program situation, the call to TESTNFND1 would have failed before it attempted to call NOTFOUND.

Or perhaps I misunderstood what you meant by that.

--
*Peter Dow* /
Dow Software Services, Inc.
909 793-9050
petercdow@xxxxxxxxx <mailto:petercdow@xxxxxxxxx>
pdow@xxxxxxxxxxxxxx <mailto:pdow@xxxxxxxxxxxxxx> /

On 7/23/2018 10:10 PM, Birgitta Hauser wrote:

If a program is activated, everything that is running in the same activation group (for example service programs or program generated with Activation Group *CALLER) is searched and loaded.
If the library is not yet set and any service programs to be activated cannot be found in the library list (at the program call), you'll get this error.

You may also be able to specify in the binder step, that the service program(s) to be bound are activated with *DEFER, so the service program is not searched before the first call of any procedure of this service program.
CRTPGM PGM(YOURLIB/YOURPGM)
MODULE(*PGM)
BNDSRVPGM((*LIBL/YOURSRVPGM *DEFER))

BTW *DEFER can also be set when registering a service program in a binder directory.


Mit freundlichen Grüßen / Best regards

Birgitta Hauser

"Shoot for the moon, even if you miss, you'll land among the stars." (Les Brown)
"If you think education is expensive, try ignorance." (Derek Bok)
"What is worse than training your staff and losing them? Not training them and keeping them!"
„Train people well enough so they can leave, treat them well enough so they don't want to.“ (Richard Branson)


-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxx> On Behalf Of Peter Dow
Sent: Dienstag, 24. Juli 2018 06:16
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: Service program not found error

So it's some part of HS0175R that occurs prior to *INZSR and any debuggable statements, and not QCMDEXC. Thanks for the insight.

Either way, the required solution is to set the library list correctly before calling HS0175R, which requires another program.

On 7/23/2018 7:44 PM, Jon Paris wrote:

QCMDEXC doesn't look at any references. Only when HS0175R is called is the service program solution done. It will occur during the program's startup phase normally - i.e. before the main logic starts - hence the need for the service program to be in the library list _before_ the program starts. You'd see the same effect if you had called it from the command line without the library in the LIBL.

Jon Paris

www.partner400.com
www.SystemiDeveloper.com

--
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: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate link: http://amzn.to/2dEadiD