begin-handler /list
silent-header
new-fifo mylist
write-fifo mylist key "key1" value "value1"
write-fifo mylist key "key2" value "value2"
start-loop
read-fifo mylist key k value v status st
if-true st not-equal GG_OKAY
break-loop
end-if
@Obtained key <<print-out k>> with value <<print-out v>>
end-loop
rewind-fifo mylist
start-loop
read-fifo mylist key k value v status st
if-true st not-equal GG_OKAY
break-loop
end-if
@Again obtained key <<print-out k>> with value <<print-out v>>
end-loop
purge-fifo mylist
end-handler
Copied!