Re: Use of MCSOPMSG

2011-05-27 Thread Chuck Arney 
The problem is resolved but I did not get much detail to relay.  I
believe it was just typical AR mode programming problems.

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 Shmuel Metz (Seymour J.)
Sent: Thursday, May 26, 2011 5:38 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: Use of MCSOPMSG

In , on
05/26/2011
   at 02:18 PM, Chuck Arney  said:

>I responded to this offline to take it off-list.

Please consider posting the solution on the list.
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see <http://patriot.net/~shmuel/resume/brief.html> 
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

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

Re: Use of MCSOPMSG

2011-05-26 Thread Shmuel Metz (Seymour J.) 
In , on
05/26/2011
   at 02:18 PM, Chuck Arney  said:

>I responded to this offline to take it off-list.

Please consider posting the solution on the list.
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see  
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

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

Re: Use of MCSOPMSG

2011-05-26 Thread Chuck Arney 
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 DS0H   
 MCSOPMSG 
REQUEST=GETMSG,NAME=CONNAME,RTNCODE=MCS_RC,  X
   RSNCODE=MCS_RS   
EMCSMSG  DS0H   
 CPYA  R9,R1
 LRR9,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

Re: Use of MCSOPMSG

2011-05-25 Thread Donald Likens 
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 DS0H   
 MCSOPMSG 
REQUEST=GETMSG,NAME=CONNAME,RTNCODE=MCS_RC,  X
   RSNCODE=MCS_RS   
EMCSMSG  DS0H   
 CPYA  R9,R1
 LRR9,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

Re: Use of MCSOPMSG

2011-05-24 Thread Chuck Arney 
There is still not enough information here to determine the cause of the
abend.  The basic MCSOPxx macros look okay so I'm guessing this has more
to do with AR mode programming than using MCSOPxx macros.

If you get a zero return code from MCSOPMSG then AR1/R1 should contain
the address of the MDB.  You need to show the listing of the code
between the MCSOPMSG and the abend and show the complete symptom dump.
Or you could abend it right after the MCSOPMSG and show the symptom dump
to check the returned R15, R1, AR1 and make sure R15 is zero and R1 is
what you are seeing in R9 and AR1 is what you are seeing in AR9 in your
later dump.  In your earlier post you said the abend was addressing the
MCD.  I assume you actually intended to say MDB?  Or something else?

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: Tuesday, May 24, 2011 2:03 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: Use of MCSOPMSG

EC PSW at time of error  070C4000 80007702 00040007 
  

  Access Registers at time of error   
 0-3  9679EC12        
 4-7          
 8-11   01010037      
 12-15        
 
  GPRs at time of error 
0-3  84E4  7A10    00FDE8B8 
4-7  80FB2688  007FF350  007CAFE0  882C 
8-11 8880  619C  882C  007FF350 
12-15 800075C0  7A10  80007D82  800075C0  

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

Re: Use of MCSOPMSG

2011-05-24 Thread Donald Likens 
EC PSW at time of error  070C4000 80007702 00040007 
  

  Access Registers at time of error   
 0-3  9679EC12        
 4-7          
 8-11   01010037      
 12-15        
 
  GPRs at time of error 
0-3  84E4  7A10    00FDE8B8 
4-7  80FB2688  007FF350  007CAFE0  882C 
8-11 8880  619C  882C  007FF350 
12-15 800075C0  7A10  80007D82  800075C0  

I use the SAC 512 command to set the mode before issuing the macros:

The expansion of MCSOPMSG follows:

  MCSOPMSG 
REQUEST=GETMSG,NAME=CONNAME,RTNCODE=MCS_RC,   
RSNCODE=MCS_RS   
+*  MACDATE -05/04/15-<2>
+M00M0005 DS0H MCSOPMSG-2
+  PUSH  PRINT   
+  PRINT ON  
+ B #Z0005AS   ++ MCSOPMSG ARG PARMS 
+#Z0005A  DS0D ++ MCSOPMSG PARM LIST 
+#Z0005A_XACRO DS CL4  ++ CONSTANT   
+#Z0005A_XVERSION DS XL1   ++ INPUT XVERSION 
+#Z0005A_XREQUEST DS XL1   ++ INPUT XREQUEST 
+#Z0005A_GETMSG EQU 1  ++ XREQUEST.GETMSG 
KEYWORD
+#Z0005A_RESUME EQU 2  ++ XREQUEST.RESUME 
KEYWORD
+#Z0005A_XCMDRESP DS BL.8  ++ INPUT  
+#Z0005A_XCMDRESP_YES EQU B'1000'
+  ++ XCMDRESP.YES KEYWORD 
150+#Z0005A_XCMDRESP_NO EQU B'0100'  
   +  ++ XCMDRESP.NO KEYWORD 
151+#Z0005A_KEYUSED_CMDRESP EQU B'0010'  
   +  ++ KEYUSED.CMDRESP KEYWORD 
152+#Z0005A_KEYUSED_CART EQU B'0001' 
   +  ++ KEYUSED.CART KEYWORD
153+#Z0005A_KEYUSED_MASK EQU B'1000' 
   +  ++ KEYUSED.MASK KEYWORD
154+#Z0005A_KEYUSED_NAME EQU B'0100' 
   +  ++ KEYUSED.NAME KEYWORD
155+#Z0005A_XRSV0001 DS CL01  ++ RESERVED
156+#Z0005A_XCART DS CL8  ++ 
157+#Z0005A_XMASK DS CL8  ++ 
158+#Z0005A_XCONSID DS F  ++ 
159+#Z0005A_XRSV0002 DS CL04  ++ RESERVED
160+#Z0005A_XNAME DS CL8  ++ INPUT   
161+#Z0005AL EQU   *-#Z0005A  ++ LENGTH OF PLIST 
163+#Z0005AS DC0H'0'  ++ MCSOPMSG ARG PARMS  
+ LAE   1,#Z0005A  ++ LOCATE ARG PARMS   
+ XC0(40,1),0(1)   ++ INITIALIZE 
+ MVC   0(4,1),=CL4'MDR '  ++ CL4 CONSTANT   
+ MVI   4(1),2 ++ INPUT XVERSION XL1 
+ MVI   5(1),1 ++ INPUT XREQUEST 
+ OI6(1),B'01000100'   ++ INPUT BL1  
+ MVC   32(8,1),CONNAME++ INPUT XNAME
+ L 15,16(0,0) GET ADDRESS OF CVT FROM PSA   
+ L 15,772(15) GET ADDRESS OF SFT FROM CVT   
+ LA14,6   GET MCSOPMSG INDEX INTO LINKAGE TA
+ AL14,100(15) POINT REG14 TO MCSOPMSG ETD ENTRY 
+ PC0(14)  PC TO MCSOPMSG SERVICE
+ ST15,MCS_RC  ++ SET RETURN CODE
+ ST0,MCS_RS   ++ SET REASON CODE
+ POP   PRINT
+*MCSOPMSG-2 

CONNAME  DCC'MEASCNSL'
959 MCS_RC   DSF  RETURN CODE FROM MCS  
960 MCS_RS   DSF  REASON CODE FROM MCS  

The expansion or MCSOPER follows:


  
 LAR8,MCSPARM   
 USING MCSOPPRM,R8  IEZVG111 ADDRESSABILITY 
 XC MCSOPPRM(MCSOPLEN),MCSOPPRM CLEAR THE OPERPARM 
AREA 
 OI MCSOFLAG,MCSOVRDY OVERRIDE CONSOLE 
ATTRIBUTES   
 OI MCSOMISC,MCSOHDCY REQUEST THE HARDCOPY 
ATTRIBUTE
 DROP  R8   
 MCSOPER 
REQUEST=ACTIVATE,NAME=CONNAME,TERMNAME=CONNAME,   X
   
MCSCSA=MCSCSA,MCSCSAA=MCSCSAA,CONSID=CONSID,X

Re: Use of MCSOPMSG

2011-05-24 Thread Chuck Arney 
What does your PSW look like at the time of the abend?  Does it show you
are running in AR mode?  Did you use the SAC 512 instruction to enter AR
mode?  You have to specifically switch to AR mode to access storage
using AR registers.  Refer to the Extended Addressability Guide
(SA22-7614) for information on AR mode programming.

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: Tuesday, May 24, 2011 10:13 AM
To: IBM-MAIN@bama.ua.edu
Subject: Use of MCSOPMSG

I have never coded in AR mode and also not used MCSOPMSG before so 
please bare with me.

My program gets zero return codes from both the MCSOPER and 
MCSOPMSG macros but when I attempt to access the MCD I do not get 
what I expect and abend on an S0C7 working with the time. I am using 
R9 to access the MCD. My AR reg is: AR R9=01010037 (I think this is a 
good ALET). My GP reg is: GP R9=619C. If I have this correct the 
dataspace is address space 37 and I should have some data 
(something) at 619C in address space 37. Here is what IPCS says:

ASID(X'0025') ADDRESS(1000.) STORAGE 
Command ===>
1000.:C68FFF.--Storage not available

I have no idea on the name of the address space since MCSOPER does 
not document this.

IBM's examples for these macros do nothing to address AR mode so 
they are of no value to me. 

I would love an example of a working program that use the 
MCSOPER/MCSOPMSG macros that deal with AR issues. I would like any 
help on what I am doing wrong.

Note: My MCS macros follow:

 MCSOPMSG REQUEST=GETMSG,NAME=CONNAME,RTNCODE=MCS_RC,
   RSNCODE=MCS_RS 
   
MCSOPER 
REQUEST=ACTIVATE,NAME=CONNAME,TERMNAME=CONNAME,   X
  MCSCSA=MCSCSA,MCSCSAA=MCSCSAA,CONSID=CONSID,X
  MSGECB=MCSECB,OPERPARM=MCSPARM 

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

Re: Use of MCSOPMSG

2011-05-24 Thread Elardus Engelbrecht 
Donald Likens wrote:
>Note: My MCS macros follow:

> MCSOPMSG REQUEST=GETMSG,NAME=CONNAME,RTNCODE=MCS_RC,
>   RSNCODE=MCS_RS

>MCSOPER
>REQUEST=ACTIVATE,NAME=CONNAME,TERMNAME=CONNAME,   X
>  MCSCSA=MCSCSA,MCSCSAA=MCSCSAA,CONSID=CONSID,X
>  MSGECB=MCSECB,OPERPARM=MCSPARM

Please post the declarations of the variables used by those macros.

Also please post all the macros formats (list form and execute form) too.

Groete / Greetings
Elardus Engelbrecht

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