Re: more based() %addr array questions!!! found my problem:

["Richard B Baird" <rbaird@xxxxxxxxxxxxxxxxxxxxx>]

never mind on why my pointer was not set....  but now I even more confused.

my pointer was not set because I misspelled my pointer variable name -
$QxChkBase should have been $QzChkBase.

which begs the question - how did my program compile?  $QxChkBase is not a
valid variable or pointer.

Hans? Barbara?  Stop me before I kill again!

Rick

---my original message---

Now I'm really confused.

I'm just now getting around to testing what I thought was a sound solution
to my redefining data structure fields as an array.  here is the code:

DDSINPUT        E DS                  EXTNAME(DSUPDPAG)inz

 * dsupdpag has QZAMT1-12 and QZCHK1-12 defined.

D $QzAmtBase      S               *   inz(%addr(QZAMT1))
D $QzAmt          S                   like(QZAMT1) based($QzAmtBase)
D                                      dim(12)
D $QzChkBase      S               *   inz(%addr(QZCHK1))
D $QzChk          S                   like(QZCHK1 ) based($QxChkBase)
D                                      dim(12)