dcl Uarea area(1000); dcl Pz ptr; dcl C99z char(99) varyingz based(Pz); dcl (SizeBefore, SizeAfter) fixed bin(31); SizeBefore = availablearea(Uarea); /* returns 1000 */ Alloc C99z in(Uarea); SizeAfter = availablearea(Uarea); /* returns 896 */ dcl C9 char(896) based(Pz); Alloc C9 in(Uarea);