Re: Varying length subfield contains blanks instead of length 0 ?

On 5/5/2014 2:41 PM, Koester, Michael wrote:

In this particular case, I'm working with an array DS. I'm finding that even when I initialize the DS, the "empty" subfields contain all x'4040'. And when I test for *blanks, or for %len(...) = 0, I get blown out by the index exceeding the range (its dim(32) is a bit short of 4040). Looks like a MONITOR block is my only [albeit not especially elegant] way out. Gotta love it.

I suspect we'll need to see the code. This displays 'zero' (as
expected) on 7.1:

d datastructure...
d ds inz dim(2) qualified
d subfield0 10a
d subfield1 10a varying

d x s 10i 0 inz(1)

c/free
if %len(datastructure(x).subfield1) = 0;
dsply 'zero';
else;
dsply 'nonzero';
endif;
*inlr = *on;
/end-free

--buck