Re: Service Program Issues

[Scott Klement <klemscot@xxxxxxxxxxxx>]

Are there OPM programs involved in this somewhere?   What does the
activation group situation look like?

It sounds to me like some program (perhaps forcibly) reclaimed an
activation group that it shouldn't have.  For example, if PGMA is in
ACTGRPA, PGMB is in ACTGRPB and SRVPGMC is in ACTGRPC...

If PGMA calls SRVPGMC.
Then PGMB calls SRVPGMC
then PGMB reclaims ACTGRPC
When PGMA tries to call SRVPGMC again it will fail, because it only
resolves pointers to SRVPGMC the first call, so now that it's been
reclaimed, it's pointing to something that doesn't exist...

I hope that makes sense...


On Fri, 14 Feb 2003, Mike Silvers wrote:
>
> I realize that this is a long one..... but I am now stumped as to why this
> is occurring -- anyone have any ideas?
>
> I am receiving a weird error at indeterminate times.  Here is the situation.
> I have a service program that uses non-exported procedures as well as
> exported procedures.  The service program also accesses files.  I have an
> RPG program that access the exported procedures of the service program.
> Most of the time, there are no problems.  Everything works well.  Every so
> often, I get  a strange error.  This error occurs when accessing a procedure
> in the service program that has been accessed successfully from the same
> program earlier in the same job.
>
> The job log shows the errors as follows:
> Tried to refer to all or part of an object that no longer exists.
> Call stack entry not found.
> Exception recursion detected.
> Application error.  *N unmonitored by *N at statement *N, instruction
>   X'4000'.
>
> The first error has second level text as:
> Message ID . . . . . . :   MCH3402       Severity . . . . . . . :   40
> Message type . . . . . :   Escape
> Date sent  . . . . . . :   02/14/03      Time sent  . . . . . . :   16:46:37
>
> Message . . . . :   Tried to refer to all or part of an object that no
> longer
>   exists.
> Cause . . . . . :   The most common cause is that a stored address to an
>   object is no longer correct because that object was deleted or part of the
>   object was deleted.
>
> The second error second level text is:
> Message ID . . . . . . :   CPF2479       Severity . . . . . . . :   40
> Message type . . . . . :   Escape
> Date sent  . . . . . . :   02/14/03      Time sent  . . . . . . :   16:46:37
>
> Message . . . . :   Call stack entry not found.
> Cause . . . . . :   Call stack entry SRV1VLDL, specified for the send,
>   receive, move or delete message operation, could not be found in the call
>   stack.
> Recovery  . . . :   Change the call stack entry name or be sure the
> specified
>   entry is in the call stack when doing the requested operation.
>
> The third error has second level text of:
> Message ID . . . . . . :   CEE3201       Severity . . . . . . . :   10
> Message type . . . . . :   Diagnostic
> Date sent  . . . . . . :   02/14/03      Time sent  . . . . . . :   16:46:3
>
> Message . . . . :   Exception recursion detected.
> Cause . . . . . :   An unhandled exception occurred in an exception handler
> Recovery  . . . :   Do not let an exception that occurs in your exception
>   handler go unhandled.
>
> And last, but not least, the fourth error second level text is as follows:
> Message ID . . . . . . :   CEE9901       Severity . . . . . . . :   30
> Message type . . . . . :   Escape
> Date sent  . . . . . . :   02/14/03      Time sent  . . . . . . :   16:46:37
>
> Message . . . . :   Application error.  *N unmonitored by *N at statement
> *N,
>   instruction X'4000'.
> Cause . . . . . :   The application ended abnormally because an exception
>   occurred and was not handled.  The name of the program to which the
>   unhandled exception is sent is *N *N . The program was stopped at the
>   high-level language statement number(s) *N at the time the message was
> sent.
>    If more than one statement number is shown, the program is an optimized
> ILE
>   program.  Optimization does not allow a single statement number to be
>   determined.  If *N is shown as a value, it means the real value was not
>   available.
> Recovery  . . . :   See the low level messages previously listed to locate
> the
>   cause of the exception.  Correct any errors, and then try the request
> again.
>
> =======================================
> Mike Silvers
> Senior Programmer/Analyst
> IBM Certified Expert
> Hainey Business Systems
> Main Office:  (717) 718-9601 ext 237
> Branch Office:  (410) 901-9015
> http://www.hbs-inc.com
> =======================================
>
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>