Re: Strange problem in RISC testing -- RPG400-L

Hi Jeff,

Did you try recompiling the program? Does it have H-spec OPTION(*SRCSTMT)?
That stmt# being one past the end of the program is suspicious.

Peter Dow
Dow Software Services, Inc.
909 425-0194 voice
909 425-0196 fax

----- Original Message -----
From: "Jeff Crosby" <jlcrosby@fwi.com>
Newsgroups: comp.sys.ibm.as400.misc
To: <RPG400-L@midrange.com>; "IGNITE/400 Mailing List"
<ign_list@ignite400.org>
Sent: Tuesday, December 19, 2000 6:49 AM
Subject: Strange problem in RISC testing


> I'm doing some testing on a new 270 running V4R5.  I've brought
> everything over from my CISC system.  Everything I've tested (up to now)
> has worked without a hitch, save for 1 program.
>
> This program (LV27) prints vendor address labels.  Within the program I
> use a procedure as follows:
>
> Eval     VNDNM = MixedCase(VNDNM)
>
> to convert the name and address fields to mixed case.  When I run it, I
> almost always get the following error in the job log (statements
> shortened to avoid wrapping):
>
>      Message . . . . :   Message  received for RPG procedure
>        LV27 (C G D F).
>      Cause . . . . . :   Message  was received by RPG procedure LV27
>        in program DILGARD/LV27 at statement
> 010400.
>
> Statement 010400 is one statement beyond the end of the program.  The
> immediately previous message in the job log says:
>
>      Message . . . . :   Function check. MCH3601 unmonitored by
>        QDBGETM at statement *N, instruction
> X'0957'.
>      Cause . . . . . :   An escape exception message was sent to a
>        program which did not monitor for that message. The full name
>        of the program to which the unmonitored message was sent is
>        QDBGETM.  At the time the message was sent the program was
>        stopped at higher level language statement number(s) *N. If
>        more than one statement number is shown, the program was a
>        bound program.  Optimization does not allow a single statement
>        number to be determined. If *N is shown as a value, it means
>        the actual value was not available.
>
> The MCH3601 it is referring to is this:
>
>      Message . . . . :   Pointer not set for location
> referenced.
>      Cause . . . . . :   A pointer was used, either directly or as a
>        basing pointer, that has not been set to an
> address.
>
>
> Now for the strange part(s):
>
> 1) If I run the program in debug mode, it works fine.  Every time.
>
> 2) If I comment out the "MixedCase" procedure statements, it runs fine
> irrespective of debug mode.
>
> 3) Once in a great while, the program will run partially through the
> name & address file before bombing.  I am assuming that it has something
> to do with the MixedCase procedure, but I've used it for at least a
> couple of years on CISC with nary a problem.  And I use it in various
> programs, all of which work OK except for this one.
>
> I have downloaded and applied every RPG PTF available.  I was on the
> latest group PTFs but noticed there are new group PTFs available just
> last week for Database, Hipers, Backup Recovery Solutions, and HTTP
> server, so I have all of those ordered.
>
> Any help is appreciated.  Thanks.  I'm going to try debugging the
> program containing the procedure next.
>
> --
> -Jeff
> The opinions expressed are my own and not necessarily
> the opinion of my company.  Unless I say so.
> +---
> | This is the RPG/400 Mailing List!
> | To submit a new message, send your mail to RPG400-L@midrange.com.
> | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
david@midrange.com
> +---

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---