RE: Service Program Issues

[Joel Fritz <JFritz@xxxxxxxxxxxxxxxx>]

What activation group(s) do the calling program and service program run in?

> -----Original Message-----
> From: Mike Silvers [mailto:msilvers@HBS-INC.COM]
> Sent: Friday, February 14, 2003 1:55 PM
> To: rpg400-l@MIDRANGE.COM
> Cc: Joe Hainey; Mike Silvers (Work)
> Subject: Service Program Issues
> 
> 
> All,
> 
> 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.
>