RE: MCH3402

[Tim McCarthy <TimM@xxxxxxxxxxxxxxxxxx>]

I've had similar problems before. I never investigated too far but it
seemed that I was usually in debug at a breakpoint and trying to use
SAVOBJ when I had the problem. When I backed out, ran a RCLRSC and
re-tried the save it all went well.
Tim

> -----Original Message-----
> From: Henrik Krebs [SMTP:hkrebs@hkrebs.dk]
> Sent: Thursday, May 06, 1999 1:00 AM
> To:   MIDRANGE-L@midrange.com
> Subject:      MCH3402
> 
> Nedenfor er resultatet af din e-mail formular.
> Indsendt af hkrebs@hkrebs.dk
> 
> message: Pls. help:
> Where do I get this invalid pointer from?
> 
> I have a job (LOGCLPGM(*YES)) with the following low-level msg's:
> 
>  17600 - SAVOBJ OBJ(EG* XL*) LIB(QTEMP) DEV(*SAVF) OBJTYPE(*PGM)
>   SAVF(QTEMP/P0425RT)
> Pointer not set for location referenced.
> Pointer not set for location referenced.
> Pointer not set for location referenced.
> Tried to refer to all or part of an object that no longer exists
> Function check. MCH3402 unmonitored by QMHSNDPM at statement *N,
>   instruction X'0427'.
> 
> At the time executing the SAVOBJ I have two EG* pgms and three XL*
> pgms in QTEMP, all created by an CRTDUPOBJ-cmd.
> I try to save it into a savefile also in QTEMP, but I can't imagine
> that this could be a problem.
> I thought that the pointer resolution for all 'objects or part of..'
> involved should be done BY the SAVOBJ-command, so that this is not the
> things that happens if for example a RPG program calls a program, then
> delete it and finally calls it once more.
> 
> Om my own V4R3 the program runs OK - the problem is at one of my
> customers V4R1.
> 
> Thanks in advance.
> 
> Henrik
> realname: Henrik Krebs
> email: hkrebs@hkrebs.dk
> 
> 
> REMOTE_HOST: 192.87.144.10
> 
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> | To unsubscribe from this list send email to
> MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
> david@midrange.com
> +---
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---