I understand your code; my question stands: What is in the R1 you're looking at
(presumably either from a dump or an IEA995I message? For that matter, what's
in R14 since your message indicates that that LARL is commented?
Bob
[email protected] wrote:
r1 is loaded from a Field called ANCHOR1@
It contains the address of a storage Block or structure
Before using it I CHECK THE EYE CATCHER which I previously posted.
There is a Compare for the value f the eye catcher to veridy that I am using
the right Storage Structure, and I AM as evident by the JNE - not be taken.
There is No Pruning of instructions
These 5 instructions are executed as written
.
.
---------- Original Message ----------
From: Bob Rutledge <[email protected]>
To: [email protected]
Subject: Re: Can Someone Point Out My error Here
Date: Sun, 17 Aug 2014 17:40:55 -0400
[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
What exactly is in R1?
Bob
