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
*
LA R0,((SDWAEND-SDWA)+(SDWASEND-SDWARC1)+(SDWAIEND-SDWARC2)
+(SDWALEND-SDWARC3)+(SDWAEEND-SDWARC4)+(SDWAPEND-SDWAPTR
S)+(SDWAPTRS-SDWAPEND)+(SDWAREND-SDWANRC1)+(SDWASEN-SDWA
NRC2)+(SDWADEND-SDWANRC3))
ST R0,SDWA_LEN
STORAGE OBTAIN,LENGTH=(R0),ADDR=(R6),SP=0,OWNER=PRIMARY
ST R6,SDWA_ADDRESS
LA R7,SDWAEND-SDWA
LR R11,R7
LR R10,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
LA R6,SDWAREND-SDWANRC1(,R6)
L R10,SDWASRVP-SDWAPTRS(R8) DDRESS OF RECORDABLE XTNSION
LA R11,SDWASEND-SDWARC1
LR R7,R11
MVCL R6,R10
L R10,SDWAXIOM-SDWAPTRS(R8) ADDRESS OF RECORDERABLE EXT
MVC 0(SDWAIEND-SDWARC2,R6),0(R10) DD CMP
LA R6,SDWAIEND-SDWARC2(,R6)
L R10,SDWAXSPL-SDWAPTRS(R8) ADDRESS OF RECORDABLE XTNSION
MVC 0(SDWASEN-SDWANRC2,R6),0(R10) DD CMP
LA R6,SDWASEN-SDWANRC2(,R6)
L R10,SDWAXLCK-SDWAPTRS(R8) ADDRESS OF
RECORDABLE XTNSION
MVC 0(SDWALEND-SDWARC3,R6),0(R10) DD CMP
LA R6,SDWALEND-SDWARC3(,R6)
L R10,SDWADSPP-SDWAPTRS(R8) ADDRESS OF
RECORDABLE XTNSION
MVC 0(SDWADEND-SDWANRC3,R6),0(R10) DD CMP
LA R6,SDWADEND-SDWANRC3(,R6)
L R10,SDWAXEME-SDWAPTRS(R8) ADDRESS OF RECORDABLE
XTNSION
LA R11,SDWAEEND-SDWARC4
LR R7,R11
MVCL R6,R10
L R2,USER_PARM Get Paramter Area
Back
USING ESTPARM,R2
*
LA R8,1
*
AXSET AX=(R8) Give us Authority TO MOVE TO
SRV
*
XR R5,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'1111',SDWA@ADR Get Server Address
L R9,SDWA_ADDRESS Get our Address
*
*
XR R0,R0
L R0,SDWA_LEN
*
LAM AR8,AR8,=F'1' Secondary alet
*
SAC 512 Asc Ar mode
*
MVC_LOOP DS 0H
C R0,=F'255'
BH MOVEIT
BCTR R0,0 DOWN BY 1
EX R0,MOVELAST
B POSTIT
MOVEIT DS 0H
MVC 0(255,R8),0(R9)
S R0,=F'255'
LA R8,255(,R8) bump out put
LA R9,255(,R9)
B MVC_LOOP
POSTIT DS 0H
*
LAM R8,R8,=F'0'
SAC 0 Back to Primary
Thi should move the data to secondary right ?
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
