Static Eye is a Constant in memory, I dont write anything that difficult. *---------------------------------------------------------------------* * Anchor Block *---------------------------------------------------------------------* STATIC_DATA DS 0D . STATIC_EYE DC CL12'NINEXXXXV002' .Eye Catcher STATIC_NAME DC CL4'XXXX' .SubSystem Identifier STATIC_STAMP DC 4XL4'00000000' .SubSystem Time Stamp STATIC_STATE DC XL4'00000000' .SubSystem State ---------- Original Message ---------- From: Sam Siegel <[email protected]> To: [email protected] Subject: Re: Can Someone Point Out My error Here Date: Sun, 17 Aug 2014 14:25:24 -0700
I did see what you mention and i was confused also. That is why I wanted to see all the code. On Aug 17, 2014 2:22 PM, "[email protected]" <[email protected]> wrote: > STATIC EYE is a Constant in memory ANd If You look at the COde > It is compared to 00(R1) the JNE was not taken. > That why im confused > > ---------- Original Message ---------- > From: Sam Siegel <[email protected]> > To: [email protected] > Subject: Re: Can Someone Point Out My error Here > Date: Sun, 17 Aug 2014 14:12:22 -0700 > > Provided code does not show how anchor1 is populated. > > Sample code does not show what static_eye points to. > > Please provide all code. > On Aug 17, 2014 1:28 PM, "[email protected]" <[email protected]> wrote: > > > Im executing 5 Instructions and then I force an Abend. > > I load the address of a storage area into Register 1 nd verify it by the > > presence of an eye-catcher. > > After executing the 5 instructions below; I expect the area Labeled > > "LOCLCOMM" to contain a copy of the eye-catcher that Register 1 is > pointing > > to. However after execiting the 5 instructions the area LOCLCOMM contains > > 256 Binary zeroes ??? > > . > > . > > There is No Multi Tasking as this is a single TCB program. > > . > > . > > L R1,ANCHOR1@ Storage Anchor Address > > CLC STATIC_EYE,00(R1) Valid Eye Catcher > > JNE NO_STATIC_EYE NO Eye-Catcher > > * > > LARL R14,LOCLCOMM DEBUG > > MVC 00(16,R14),00(R1) DEBUG > > ABEND 444,DUMP,STEP DEBUG > > * > > * > > * > > DS 0D Alignment > > DC CL8'LOCLCOMM' Eye Catcher > > LOCLCOMM DS CL256 > > DC CL12'LOCLCOMMEND ' Eye Catcher > > ORG , > > . > > . > > So what Am I missing here ? > > Can someone point out my mistake ? > > . > > . > > Paul > > >
