That does not require the storage to be fixed, unless you are disabled 
or you are using a real address for the target of the copy. 

Jim Mulder z/OS Diagnosis, Design, Development, Test  IBM Corp. 
Poughkeepsie NY

> From: Joseph Reichman <[email protected]>
> To: [email protected]
> Date: 08/04/2017 02:40 PM
> Subject: Re: PGSER FIX returns CC = 18A Reason=35000301
> Sent by: IBM Mainframe Discussion List <[email protected]>
> 
> Copy storage from the address space in which SRB is running to the 
> address space that scheduled it
> 
> Thanks
> 
> 
> 
> > On Aug 4, 2017, at 1:32 PM, Jim Mulder <[email protected]> wrote:
> > 
> >  The answer is in the manual:
> > 
> > ,EA=end add 
> >      Specifies the last byte on the last page of the virtual area for 
R 
> > requests.
> > 
> > 
> >   Your EA specifies the first byte on the next page, which is not 
> > GETMAINed. 
> > 
> >   What are you doing in the SRB that requires this storage to be fixed 

> > in 31-bit real storage?
> > 
> > Jim Mulder z/OS Diagnosis, Design, Development, Test  IBM Corp. 
> > Poughkeepsie NY
> > 
> >> I am getting an error for PGSER Fix that the storage has not been 
> > getmain'ed
> >> 
> >> I have tried different subpool(s)  0 and 10 with same result AND same
> >> address was returned
> >> 
> >> Here is the storage macro whose storage I am trying to fix
> >> 
> >>         USING VALSTOR,R3 
> >>         LA    R0,4095                 GET LENGTH 
> >>         AH    R0,=H'1' 
> >>         STORAGE OBTAIN, X
> >>               LENGTH=(R0), X
> >>               ADDR=(R7), X
> >>               BNDRY=PAGE, X
> >>               SP=10, X
> >>               LOC=(31,31) 
> >> * 
> >> *   Page Fix Ws till SRB completes 
> >> * 
> >>          LR    R7,R13                         Point to beg of WS 
> >>          LA    R8,4095(,R7)                   4K 
> >>          LA    R8,1(,R8) 
> >> 
> >> 
> >> * 
> >> 
> >>          PGSER R, X
> >>                FIX, X
> >>                A=(R7), X
> >>                EA=(R8), X
> >>                ECB=0 



----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN

Reply via email to