Paul, The second LG...why are you loading eight bytes from a location that is decimal 50 bytes into the storage area you just obtained? Your comment says "position past starting address", but that's not what that instruction does.
Mike Shaw MVS/QuickRef Support Group Chicago-Soft, Ltd. On Sun, Aug 28, 2016 at 5:24 PM, [email protected] <[email protected]> wrote: > I would like to convert a Data space to use a Memory Chunk and 64 Bit > Addressing. > Program is invoked in AMODE 31 and RMODE ANY > . > When I try to move some control information to the beginning of the memory > chunk I incur > a 0C4-03B Abend > . > * > SAM64 Switch To 64 Bit Mode > LG G1,ORIGIN64 Get Starting Address > LG G1,50(,G1) Position Past Starting Address > LAY R2,HDR64 Header Description > LLGTR G2,G2 Ensure G2 has a good address > MVC 00(HDR64#,G1),00(R2) Transfer Header Descripton > SAM31 Return To 31 Bit Mode > * > The MVC instruction abends with an 0c4 - 03B > . > . > Can someone on this list explain why I am Abending ,,,, And explain how to > properly correct it. > What exactly am I doing incorrectly > . > . > . > Here is a snipet of code preceding the move. > . > > * Use z/Architecture Instructions > SYSSTATE AMODE64=YES,ARCHLVL=2 > * > XGR G0,G0 G0 = 0 > IARV64 REQUEST=GETSTOR, > SEGMENTS=SEGMENTS, > GUARDLOC=HIGH, > GUARDSIZE=GRDSIZE, > ORIGIN=ORIGIN64, > COND=YES, > FPROT=NO, > USERTKN=NO_USERTKN, > TTOKEN=NO_TTOKEN, > RETCODE=RETCD64,RSNCODE=RSNCD64, > MF=(E,IARV64L,COMPLETE) > * > > > > STM R15,R0,ZRETCODES Save Return & Reason Code > * > SYSSTATE AMODE64=NO,ARCHLVL=2 > * > BRAS R14,EXAMINE_RESPONSE > > > * > SAM64 Switch To 64 Bit Mode > LG G1,ORIGIN64 Get Starting Address > LG G1,50(,G1) Get Starting Address > LARL R2,HDR64 Header Description > LAY R2,HDR64 Header Description > LLGTR G2,G2 Ensure G2 has a good address > MVC 00(HDR64#,G1),00(R2) Transfer Header Descripton > SAM31 Return To 31 Bit Mode > * > * > DS 0AD .IARV64 Alignment > SEGMENTS DC FD'01' .IARV64 Segments > ORIGIN64 DC AD(0) .IARV64 Origin Address > HIGH64 DC AD(0) .IARV64 High End Address > DC AD(0) .Reserved > > > . > . > Paul D'Angelo > * > * >
