Re: XMEM annomly issues

[Peter Relson]

Building an SDWA is not part of the intended programming interface. So I 
will make no comment on the correctness or incorrectness of your doing so. 
You have provided no information on what you are trying to do. 

If you're asking would your code copy something to the secondary address 
space, the answer is yes. What it would copy depends on a lot of things 
that have not been provided (including various "usings").
The storage you obtained via STORAGE OBTAIN was in the primary address 
space. I have no idea what you're doing with that storage other than 
copying into it. You wrote that something "failed" when you used ALET=0 
and also when you used ALET=2, but we have no idea what failed. It has 
been observed in previous posts of yours that you often do not provide the 
information that you have that is potentially applicable to others' 
understanding. Work on that, if you want help.

What does this have to do with an ECB's having to be addressable from the 
home address space, which I thought was the theme of your original 
question? 

Your general lack of punctuation makes it close to impossible to 
understand exactly what your questions are.  Please be considerate of 
those who might have interest in helping.

If the FRR is one that was specified by you on IEAMSCHD, then the FRR is 
set by the system with the default SETFRR options. If the FRR is one that 
you set after your SRB gets control then the options are under 
your control. The default is MODE=HOME. 

Surely your "moving" code would be better coded to move 256 bytes rather 
than 255 bytes at a clip.

Peter Relson
z/OS Core Technology Design


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: XMEM annomly issues

[michelbutz]

I thinks that irrelevant when I SSAR I know it's the right address space 1 is 
secondary 
I am quite sure that the the source is primary ALET 0 I also tried it with ALET 
2 which is home 
And that failed too 

Sent from my iPhone

> On Jun 10, 2016, at 3:15 PM, Philippe Leite  wrote:
> 
> I don't know exactly what you are trying to do but I would check your MODE= 
> parameter both on SETFRR and SCHEDULE calls and check if you are getting the 
> rights SASN before you enter in AR Mode with ALET 1.
> 
> 
> Regards,
> 
> Philippe Leite
> z/OS System Programmer
> Banco Safra
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

XMEM annomly issues

[michealbutz]

Well

 

I was able to Post  the adress space seems like I am having issuing getting
the data there

 

First the Enivorment this code is a FRR of a SRB so I guess this primary the
Address space I scheduled it from is Home I am try ing to move it Seconday
the data is the SDWA 

 

I have WTO it looked right in The seconday Addres space running under
TESTAUTH I display the data its not correct the parms to the FRR are the ECB
an Address (pirivate of the secondary ) the asid

 

*   Get Storage For SDWA   

 *  

  LAR0,((SDWAEND-SDWA)+(SDWASEND-SDWARC1)+(SDWAIEND-SDWARC2)

+(SDWALEND-SDWARC3)+(SDWAEEND-SDWARC4)+(SDWAPEND-SDWAPTR

S)+(SDWAPTRS-SDWAPEND)+(SDWAREND-SDWANRC1)+(SDWASEN-SDWA

NRC2)+(SDWADEND-SDWANRC3))  

  STR0,SDWA_LEN 

  STORAGE OBTAIN,LENGTH=(R0),ADDR=(R6),SP=0,OWNER=PRIMARY   

  STR6,SDWA_ADDRESS 

  LAR7,SDWAEND-SDWA 

  LRR11,R7  

  LRR10,R4  

  MVCL  R6,R10  

  L R8,SDWAXPAD ADDRESS SDWA EXTENSION PTRS 

  L R10,SDWADSRP-SDWAPTRS(R8)  ADDREESS  RECORDABLE XTNS

  MVC   0(SDWAREND-SDWANRC1,R6),0(R10) move 

  LAR6,SDWAREND-SDWANRC1(,R6)   

  L R10,SDWASRVP-SDWAPTRS(R8)  DDRESS OF RECORDABLE XTNSION 

  LAR11,SDWASEND-SDWARC1

  LRR7,R11  

  MVCL  R6,R10  

  L R10,SDWAXIOM-SDWAPTRS(R8) ADDRESS OF RECORDERABLE EXT   

  MVC   0(SDWAIEND-SDWARC2,R6),0(R10) DD CMP

  LAR6,SDWAIEND-SDWARC2(,R6)

  L R10,SDWAXSPL-SDWAPTRS(R8) ADDRESS OF RECORDABLE XTNSION 

  MVC   0(SDWASEN-SDWANRC2,R6),0(R10) DD CMP

  LAR6,SDWASEN-SDWANRC2(,R6)

 L R10,SDWAXLCK-SDWAPTRS(R8) ADDRESS OF
RECORDABLE XTNSION 

MVC   0(SDWALEND-SDWARC3,R6),0(R10) DD CMP


   LAR6,SDWALEND-SDWARC3(,R6)


   L R10,SDWADSPP-SDWAPTRS(R8) ADDRESS OF
RECORDABLE XTNSION 

 MVC   0(SDWADEND-SDWANRC3,R6),0(R10) DD CMP


  LAR6,SDWADEND-SDWANRC3(,R6)


   L R10,SDWAXEME-SDWAPTRS(R8) ADDRESS OF RECORDABLE
XTNSION 

 LAR11,SDWAEEND-SDWARC4


LRR7,R11


MVCL  R6,R10


  L R2,USER_PARMGet Paramter Area
Back  

USING ESTPARM,R2


 *  

 LAR8,1


*  

 AXSET AX=(R8)Give us Authority TO MOVE TO
SRV 

*  

  XRR5,R5


*  

 ICM   R5,B'0011',SERVASID Get Server asid


*  

   SSAR  R5  Set it SASN


*  

LAM   AR0,AR15,=16F'0'Zero it out


*  

 ICM   R8,B'',SDWA@ADRGet Server Address   

  L R9,SDWA_ADDRESS Get our Address 

  

*   

*   

  XRR0,R0


  L R0,SDWA_LEN


*   

  LAM   AR8,AR8,=F'1'  Secondary alet


*   

 SAC   512 Asc Ar mode  

*   

MVC_LOOP DS0H   

 C R0,=F'255'