OpenVMS DCL Command Procedure :

$!
$ SAY :== "WRITE SYS$OUTPUT"
$!
$QLOOP:
$!
$ QNAME =  F$GETQUI("DISPLAY_QUEUE","QUEUE_NAME","*")
$ IF QNAME .EQS. "" THEN GOTO EXIT
$ IF QNAME .NES. "(Batch Queue To Check)" THEN GOTO QLOOP
$!
$JLOOP:
$!
$ NOACCESS = F$GETQUI("DISPLAY_JOB","JOB_INACCESSIBLE",,"ALL_JOBS")
$ IF NOACCESS .EQS. "TRUE" THEN GOTO JLOOP
$ IF NOACCESS .EQS. "" THEN GOTO QLOOP
$ JNAME = F$GETQUI("DISPLAY_JOB","JOB_NAME",,-
          "FREEZE_CONTEXT,ALL_JOBS")
$ ENT_NUM = F$GETQUI("DISPLAY_JOB","ENTRY_NUMBER",,-
          "FREEZE_CONTEXT,ALL_JOBS")
$!
$ IF JNAME .EQS. "(Batch Job To Check For)"
$ THEN
$!
(Action To Take If Batch Job Is Found)
$!
$ ENDIF
$!
$ GOTO JLOOP
$!
$EXIT:
$!
$ EXIT

This page hosted by Get your own Free Homepage