Memory release is not taken into account (for example, the FREE statement).
DCL 1 DATA1, 2 B FIXED; DCL 1 DATA2 LIKE DATA1; DCL 1 A1 BASED(P), 2 B FIXED; DCL 1 A2 BASED(P), 2 B FLOAT; DCL 1 A3 BASED(Q), 2 B FIXED; P = ADDR(DATA1); Q = ADDR(DATA2); A1.B = 1; /* 1 */ Q->A1.B = 1; /* 2 */ P = Q; /* 3 */
Entities for which memory is not allocated are still included in the Data View.
Fetch and Pointer Add are not currently supported. DataView will be as follows:
DATA1 | B | A1 | B | A2 | B | ||
DATA2 | B | A1 | B | A2 | B | A3 | B |