$ If "''P1'" .EQS. ""
$ Then
$ Write SYS$OUTPUT "You must specify a query!"
$    Exit
$ EndIf
$ Query = "''P1' ''P2' ''P3' ''P4' ''P5' ''P6' ''P7' ''P8'" 
$ Open/read/write net icaen::"task=ph"
$ Write net query
$Loop:
$ read/time=15/End=Done net reply
$ Write sys$output reply
$ GoTo Loop
$Done:
$ close net
.