$! This command procedure shows all queues and the jobs in them.
$ set nover
$  inquire qcua "Quina Cua vols Cancel.lar (nom/*)"
$  inquire qjob "N                                                                                                                          mero Entry (nnn/*)?"
$  if qjob .eqs. "*"
$  then
$  	inquire confirm "Demanar Confirmaci                                                                                                                    (S/N) ?"
$  else
$      confirm = "s"
$  endif
$!
$  TEMP = F$GETQUI("")
$  QLOOP:
$  QNAME = F$GETQUI("DISPLAY_QUEUE","QUEUE_NAME","*")
$  IF QNAME .EQS. "" THEN EXIT
$  if qcua .nes. "*" .and. qname .nes. qcua then goto qloop
$  WRITE SYS$OUTPUT ""
$  WRITE SYS$OUTPUT "QUEUE: ", QNAME
$  JLOOP:
$  NOACCESS = F$GETQUI("DISPLAY_JOB","JOB_INACCESSIBLE",,"ALL_JOBS")
$  IF NOACCESS .EQS. "TRUE" THEN GOTO JLOOP
$  IF NOACCESS .EQS. "" THEN GOTO QLOOP
$  JENTR = F$GETQUI("DISPLAY_JOB","ENTRY_NUMBER",,"FREEZE_CONTEXT,ALL_JOBS")
$  JNAME = F$GETQUI("DISPLAY_JOB","JOB_NAME",,"FREEZE_CONTEXT,ALL_JOBS")
$!
$  if qjob .nes. "*" .and. jentr .nes. qjob then goto jloop
$!
$  WRITE SYS$OUTPUT "    JOB:  ", JENTR, " - ", JNAME
$  if confirm .eqs. "s" .or. confirm .eqs. "S"
$  then
$  	inquire sino "Cancel.lar Treball ?"
$  else
$        sino = "s"
$  endif
$!
$  if sino .eqs. "s" .or. sino .eqs. "S"
$  then
$  	delete/entry='jentr 'qname
$  endif
$  GOTO JLOOP