The TYPE pseudovariable assigns a typed structure or union to the storage located by the handle x.
|
Given a defined structure T, the following assignments are valid:
dcl P1 handle T; dcl P2 handle T; dcl D1 type T; dcl D2 type T; D1 = type(P2); /* Assigns the storage located by P2 to D1 */ type(P1) = type(P2); type(P1) = D2; /* Assigns D2 to the storage located by P1 */