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 |