Re: bug in CMPPTRT

[Gene_Gaunt/ReviewWorks@xxxxxxxxxxxxxxx]

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");
DCL EXCM MCH3401 CV("MCH") EXCID(H"2201") IGN BP(SKIP);
DCL DD FLAG1 AUTO CHAR(1);
DCL DD FLAG2 AUTO CHAR(1);

      RSLVSP P, *, *, *;   /* exception monitor ignores MCH3401 */
SKIP: RSLVSP Q, *, *, *;   /* resolves okay to QCMD */
      CMPPTRT(I) P, X"01" / EQ(FLAG1);   /* becomes '1' */
      CMPPTRT(I) Q, X"01" / EQ(FLAG2);   /* becomes '1' */
      BRK "LOOK";


+---
| 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
+---