READQ TS

1 READQ TS
2 QUEUE(name)
2 QNAME(name)
3 INTO(data-area)
3 SET(ptr-ref)
4? LENGTH(data-area)
5? NUMITEMS(data-area)
6! NEXT
6?
6 ITEM(data-value)
7? SYSID(systemname)