Re: pointer to fields in file, mapped to array

[Booth Martin <booth@xxxxxxxxxxxx>]

It looks like a typo, either in the program or in  the email:
> array:  QtyArr  s    like(VRJAN) dim(36) Based(prQty)
> pointer: ptQty  s   *

Is it prQTY or ptQty?

On 12/3/2010 4:23 PM, Gqcy wrote:
> We have the following:
> a file contains 54 buckets (packed 9,0) (one for each accounting week of
> year)
> to easily get these into an array I make:
>
> an array:   QtyArr  s   like(TAW01) Dim(54)  Based(ptQty)
> a pointer:  ptQty   s  *
>
> I read a record,
> then I set the pointer to the first field in the record:
>
>    ptQty =  %addr(TAW01)  ;
>
> I can work with QtyArr(x) fine...
>
>
> however I tried to copy this logic to another program (different file),
> instead of weekly buckets (packed 7,2) , I have 3 buckets per month...
> and the array winds up with garbage...
>
> array:  QtyArr  s    like(VRJAN) dim(36) Based(prQty)
> pointer: ptQty  s   *
>
> read a record
> then:
>     ptQty =  %addr(VRJAN)  ;
>
> My array has garbage, which when I dump, in the later elements has the
> names of different procedures in our binding directory, so either the
> pointer is not correct, or the input record isn't all there???
>
> Any Ideas to help debug this?
>
> -gerald