AR/XM question

Article View: bit.listserv.asm370

Article #228

Back to bit.listserv.asm370 Previous Next

#228

From: Ing Usar
Date: Tue, 25 Oct 2005 18:00

42 lines
2416 bytes

Hello

I have a client that makes a XM call to a stacking PC routine. In this
routine I wish to access some data in the client address space using AR.

The service routine is defined as follows:

ETDSVC1        ETDEF TYPE=ENTRY,PROGRAM='SVC0001',SSWITCH=YES,SASN=OLD,X
               STATE=SUPERVISOR,AKM=(0:15),EKM=(0:15),PKM=REPLACE,     X
               ARR='ARR0001',ASCMODE=AR


And in the client I set the address of the data and call the routine as follows:

         LA    5,DATAPARM
               :
               :
         MODESET MODE=PROB
         MODESET KEYADDR=KEYADDR1,WORKREG=2
         PC    0(14)

And dataparm is a static variable :

DATAPARM     DC   CL25'TESTING....'

In the service routine, I set the ALET to 1 to refer back to the secondary
address space (client):

               SAC     512
               LAM     5,5,=F'1'
               MVC     0(25,4),0(5)
               SAC     0


On running this I get a 0C4-04. I even defined the service routine to use
PSW key 0 using EK=0. But that didn't help. Without AR, this works fine. Can
anyone let me know where I am going wrong


Thanks

Ing

Technical Details

Message-ID: <200510251800.j9PHuVnU032576@malibu.cc.uga.edu>

Path:

arc1-ca.pugleaf.net!g2news1.google.com!news4.google.com!news.glorb.com!newsfeed2.easynews.com!newsfeed1.easynews.com!easynews.com!easynews!sn-xit-03!sn-xit-08!sn-xit-14!supernews.com!149.173.6.116.MISMATCH!foggy!vm.sas.com!YAHOO.COM!inguser2005

Show Full Headers

Complete Article Headers

X-Google-Thread: fcdcb,892da0ab58f1661,start
X-Google-Attributes: gidfcdcb,public
X-Google-Language: ENGLISH,ASCII-7-bit
Path: arc1-ca.pugleaf.net!g2news1.google.com!news4.google.com!news.glorb.com!newsfeed2.easynews.com!newsfeed1.easynews.com!easynews.com!easynews!sn-xit-03!sn-xit-08!sn-xit-14!supernews.com!149.173.6.116.MISMATCH!foggy!vm.sas.com!YAHOO.COM!inguser2005
From: Ing Usar <inguser2005@YAHOO.COM>
Newsgroups: bit.listserv.asm370
Subject: AR/XM question
Date: Tue, 25 Oct 2005 14:00:07 -0400
Organization: SAS Inc.
Lines: 42
Sender: IBM Mainframe Assembler List <ASSEMBLER-LIST@LISTSERV.UGA.EDU>
Message-ID: <200510251800.j9PHuVnU032576@malibu.cc.uga.edu>
NNTP-Posting-Host: mozart.unx.sas.com
Mime-Version: 1.0
Content-Type: text/plain
Content-Transfer-Encoding: 7bit
X-Trace: foggy.unx.sas.com 1130263708 666 10.19.150.41 (25 Oct 2005 18:08:28 GMT)
X-Complaints-To: usenet@unx.sas.com
NNTP-Posting-Date: Tue, 25 Oct 2005 18:08:28 +0000 (UTC)
Comments: Gated by NETNEWS@VM.SAS.COM
Return-Path: <owner-assembler-list@LISTSERV.UGA.EDU>
Return-Path: owner-assembler-list@LISTSERV.UGA.EDU
X-OriginalArrivalTime: 25 Oct 2005 18:08:25.0907 (UTC)
                       FILETIME=[182CD830:01C5D98F]
Originator: daemon@mozart.unx.sas.com