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

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2022 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.