Re: comparing ds array subfields

[Sean Porterfield <sporter@xxxxxxxxxxxx>]

Scott Klement wrote:

> Since I'm a big fan of LIKEDS, I'd convert the data structure to a
> "template" (a structure that's just used as a template for creating other
> data structures) and then I'd create a copy that's all zeroes to compare
> to.


>      DBrnTotal         ds                  likeds(BrnTotal_t)
>      D                                     dim(999)
>      D                                     inz(*LIKEDS)
>
>      DBrnZeroes        ds                  likeds(BrnTotal_t)
>      D                                     inz(*LIKEDS)
>
>       /free
>
>           For Brn = 1 to %elem(BrnTotal);
>               if (BrnTotal(Brn) <> BrnZeroes);

Wow, that's my favorite of the answers I've seen!  Thanks, Scott.

BTW, Joep - yes BTAM59 was my correct first field.  Thanks for the 
overflow answer on my loop; I probably should have known that, but at 
least I can change Brn to LIKE(branch) +1 instead of 10.

Of course, the best part is that it worked!  Thanks to all who replied.

Sean