HBOUNDACROSS
HBOUNDACROSS returns a FIXED BINARY value that specifies the current upper bound of a DIMACROSS reference x.
- x
- DIMACROSS reference
Under the CMPAT(V3) compiler option, HBOUNDACROSS returns a FIXED BIN(63) value. Under the CMPAT(V2) and CMPAT(LE) compiler options, HBOUNDACROSS returns a FIXED BIN(31) value.
Example
The following example shows the use of HBOUNDACROSS:
dcl jx fixed bin(31);
dcl
1 a,
2 b fixed bin,
2 c fixed bin;
dcl 1 xa( 100 ) like a dimacross;
...
do jx = 1 to hboundacross(xa);
a = xa, by dimacross(jx);
...
end;