Re: bug in CMPPTRT

["Leif Svalgaard" <leif@xxxxxxxx>]

From: <Gene_Gaunt/ReviewWorks@reviewworks.com>

> Okay, ignore MCH3401 if BADNAME!! does not exist.  CMPPTRT below with X'01'
> (system pointer) sets FLAG1 to '1' and FLAG2 to '1'.   Shouldn't FLAG1 be
> '0', because P is not a system pointer?
>
> DCL SYSPTR P AUTO INIT("BADNAME!!");
> DCL SYSPTR Q AUTO INIT("QCMD");

but it is, you just declared it to be.

exception 2201 says:
2201 Object not found,
an attempt to resolve addressability into a system pointer failed.

so, it *is* a system pointer, but does not point to a n existing object.

If you look at the pointer values:
20000000000000001D360A230C0015A0
000B0000000000002433117B98000200

you'll see that none are NULL, and you compare with NULL.
You are so fixated on trying to use CMPPTRT to test if you
can CALLX the resulting pointer. You can't. Just that simple.
Even if you want to badly.



+---
| This is the MI Programmers Mailing List!
| To submit a new message, send your mail to MI400@midrange.com.
| To subscribe to this list send email to MI400-SUB@midrange.com.
| To unsubscribe from this list send email to MI400-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: dr2@cssas400.com
+---