pr-5646.ch   [plain text]

y: MODULE

<> USE_SEIZE_FILE "pr-5646-grt.grt" <>
SEIZE a_ps;

p: PROC ();

  DCL xx a_ps;

  xx := [a, b];
END p;

p();

END y;