WRITEQ TS

1 WRITEQ TS
2 QUEUE(name)
2 QNAME(name)
3 FROM(data-area)
4? LENGTH(data-value)
5? 
5 NUMITEMS(data-area)
5 ITEM(data-area)
5.1? REWRITE
6? SYSID(systemname)
7! AUXILIARY
7?
7 MAIN
8? NOSUSPEND