1 2 3 4 5 6 7 8 9 10 11 12 13
gch1280: MODULE SYNMODE m_x = ARRAY (1:3) LONG; DCL v_x m_x; DCL v_xx m_x; doit: PROC () END doit; v_x := [ 11, 12, 13 ]; doit (); END gch1280;