I responded to this offline to take it off-list. Chuck Arney illustro Systems International, LLC http://www.illustro.com Internet-enable your applications with z/Ware V2 Voice: 214-800-8900 X#5562 -- This e-mail is private and may be confidential and is for the intended recipient only. If misdirected, please notify us by telephone and confirm that it has been deleted from your system and any copies destroyed. If you are not the intended recipient you are strictly prohibited from using, printing, copying, distributing or disseminating this e-mail or any information contained in it. We use reasonable measures to virus scan all E-mails leaving illustro but no warranty is given that this E-mail and any attachments are virus free. You should ensure you have adequate measures in place for your own virus checking.
-----Original Message----- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Donald Likens Sent: Wednesday, May 25, 2011 8:22 PM To: IBM-MAIN@bama.ua.edu Subject: Re: Use of MCSOPMSG Thanks for looking at this... I have abended after the OPMSG macro and R1 looked exactly like R9 in this dump. Here is my code to set R9 and I display the return code MCSOPMSG DS 0H MCSOPMSG REQUEST=GETMSG,NAME=CONNAME,RTNCODE=MCS_RC, X RSNCODE=MCS_RS EMCSMSG DS 0H CPYA R9,R1 LR R9,R1 *C IF TRACING THEN CLI WKPARM,C'T' BNE TR001 *C WRITE 'MEAC0T1 MCSOPMSG HEX RC=' SPUT MEAC0T1,L=MEAC0T1L <== Display MCS_RS and MCS_RC (in hex). Does this look correct? Am I using IPCS correctly to look at the MCS dataspace? You were correct about the MDB ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
