RE: BASED data structure anomaly(?)

["Jon Paris" <Jon.Paris@xxxxxxxxxxxxxx>]

 >> The problem is that the packed numbers look funny in my data structures,
and they don't match what's in the LIKEREC data structures.

By their very nature, any anomaly in a based DS is created by us - the
programmers <grin>

It is likely that the offsets you are using are not correct.  Why not use
the %Addr of the field itself within the F and D structures to obtain the
address?  It is always risky to use hard coded offsets.

More to the point perhaps, why aren't you just using the field names within
D and F directly when you compare the fields?  Is it just because you want
to compare the AgingChk DSs directly and only compare at the field level if
they don't match?

If you want to compare the "lumps" of data then why not compare substrings
of the F and D DSs.

This is not tested and I've probably screwed up the math, but you'll get the
idea.

StartOfString = 1 + (%Addr(D.FirstFieldInBlock) - %Addr(D));
LengthOfString = %Addr(D.LastFieldInBlock) - %Addr(D.FirstFieldInBlock) +
%Size(D.LastFieldInBlock);

If %Subst(D: StartOfString: LengthOfString) = ........



Jon Paris
Partner400
www.Partner400.com