$ OPEN/READ/SHARE q SYS$SYSTEM:SYS$QUEUE_MANAGER.QMAN$QUEUES
$loop:
$ READ/END=eof_q q line
$ IF F$LENGTH(line) .LE. %XB0+4 THEN $ GOTO loop
$ queue_name = F$EXTRACT(13,31,line)
$ pid = F$CVUI(0,32,F$EXTRACT(%XB0,4,line))
$ IF pid .EQ. 0 THEN $ GOTO loop                ! batch or generic queue
$ WRITE SYS$OUTPUT F$FAO("Queue name: !AS - Symbiont PID: !XL",queue_name,pid)
$ GOTO loop
$!
$eof_q:
$ CLOSE q