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 November 21, 2024, 3:54 am This article has been viewed 35320 times.
|
|