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)