`
Par2: Passing a queue 2001-11-29 -- Randy Rogers Use a queue TYPE DataQ QUEUE,TYPE ValueA STRING ValueB STRING END Proc1 PROCEDURE DataQ1 QUEUE(DataQ). code DataQ1.ValueA = 'A' DataQ1.ValueB = 'B' add(DataQ1) Proc2(DataQ1) Proc2 PROCEDURE(DataQ DataQ2) code get (DataQ2,1) message(DataQ2.valueA) Printed May 11, 2024, 9:12 am This article has been viewed/printed 35122 times. |