1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
y: MODULE <> USE_SEIZE_FILE "x.grt" <> SEIZE a_ps; p: PROC (); DCL xx a_ps; xx := [a, b]; END p; p(); END y;