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 April 27, 2024, 7:55 pm This article has been viewed/printed 35107 times. |