ONHBOUND
ONHBOUND returns a REAL FIXED BIN(63) value that specifies the upper bound of an array for which SUBSCRIPTRANGE has been raised.
If ONHBOUND is used out of context, zero is returned.
If the following code is run, then ONHBOUND would return
4.
dcl a(3,2:4) fixed bin(31) init( (*) 0 );
dcl jx fixed bin(31);
dcl value fixed bin(31);
jx = 5;
(subrg): value = a(1,jx);