Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

How to find if job with given name in queue

0 views
Skip to first unread message

mdl...@lhn.gns.cri.nz

unread,
Apr 15, 1993, 5:56:43 PM4/15/93
to
Anyone give me some tips as to how (preferably in DCL) you find out if
there is a job called X currently in queue Y?
Thanks, Phil

Arne Vajhøj

unread,
Apr 17, 1993, 3:37:12 PM4/17/93
to
> Anyone give me some tips as to how (preferably in DCL) you find out if
> there is a job called X currently in queue Y?

Try something like:

$ tmp=f$getqui("")
$ tmp=f$getqui("DISPLAY_QUEUE","QUEUE_NAME",p1,"WILDCARD")
$ loop:
$ name=f$getqui("DISPLAY_JOB","JOB_NAME",,"ALL_JOBS")
$ if name .eqs. "" then goto endloop
$ if name .eqs. p2 then write sys$output p2," found in ",p1
$ goto loop
$ endloop:
$ exit

Hope it helps !

Arne

Arne Vajhøj local DECNET: KO::ARNE
Computer Department PSI: PSI%238310013040::ARNE
Business School of Southern Denmark Internet: AR...@KO.HHS.DK


Anders Ostling

unread,
Apr 24, 1993, 8:13:10 AM4/24/93
to
AR...@kopc.hhs.dk (Arne Vajhj) writes:

> > Anyone give me some tips as to how (preferably in DCL) you find out if
> > there is a job called X currently in queue Y?
>
> Try something like:
>
> $ tmp=f$getqui("")
> $ tmp=f$getqui("DISPLAY_QUEUE","QUEUE_NAME",p1,"WILDCARD")
> $ loop:
> $ name=f$getqui("DISPLAY_JOB","JOB_NAME",,"ALL_JOBS")
> $ if name .eqs. "" then goto endloop
> $ if name .eqs. p2 then write sys$output p2," found in ",p1
> $ goto loop
> $ endloop:
> $ exit
>
> Hope it helps !
>
> Arne
>

> Arne Vajhxj local DECNET: KO::ARNE


> Computer Department PSI: PSI%238310013040::ARNE
> Business School of Southern Denmark Internet: AR...@KO.HHS.DK


Anders Ostling <Vax/Un*x Systems Manager>, IKEA Northern Europe AB, Sweden
Voice <+46 42 25 73 08> Internet <an...@ineab.ikea.se>

0 new messages