Login
Templates, Tools and Utilities
|
||
![]() |
![]() |
Icetips Article
Back to article list
Search Articles
Add Comment
Printer friendly
Direct link
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)
Today is April 1, 2025, 11:27 am This article has been viewed 35392 times.
|
|