F$GETQUI problem

[Dave Deacon-Holmes]

Hi - I'm trying to write a script thus:

@jobname batch$queue jobname

giving a result of the entry number and the batch queue it's in.
F$GETQUI is making me tear my hair out, can anyone please assist?

[Hakan Zanderau ( Anders]

F$GETQUI is not an easy one.....

Have you looked at the examples in

http://h71000.www7.hp.com/doc/83final/9996/9996pro_101.html#green_20

Hakan

[Dave Deacon-Holmes]

Thanks Hakan,
Yes I've perused that but still unable to get satisfactory results.

Dave

[Hakan Zanderau ( Anders]

I have just modified example #3 and got if to work.

$ TEMP = F$GETQUI("")
$ QLOOP:
$ QNAME = F$GETQUI("DISPLAY_QUEUE","QUEUE_NAME","*")
$ IF QNAME .EQS. "" THEN EXIT
$ 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")
$ ENUM = F$GETQUI("DISPLAY_JOB","ENTRY_NUMBER",,"FREEZE_CONTEXT")
$ if JNAME .eqs. "''p1'"
$ then
$ WRITE SYS$OUTPUT " JOB: ", JNAME," QUEUE: ",QNAME," ENTRY: ",ENUM
$ endif
$ GOTO JLOOP

Hakan

[Hakan Zanderau ( Anders · Accepted solution]

Some lines "wrapped" when I "cut & paste".

Use it as:

@COMMANDFILE 'jobname'

Then you have to edit the code to suit your needs.

Hakan

[Dave Deacon-Holmes]

Thanks again Hakan, but it's producing no results here.
I can see a batch queue with a job in it, but I can't run the job with the batch queue name and the jobname as params to give me the entry number of the jobname.

[Dave Deacon-Holmes]

Hakan, you're a genius, it worked a treat many thanks,

Dave

[Hakan Zanderau ( Anders]

Genius is a strong word, but Thanks !
I have some friends in the VMS-world that make me feel like a rockie.

If you need help to modify the script, mail me.

Hakan
hakan(dot)zanderau(at)ha-solutions(dot)se

[Ian Miller.]

See also http://dcl.openvms.org
where you will find several examples of using F$GETQUI

[Hakan Zanderau ( Anders]

My fingers typed without confirming with my brain.....

The word is ROOKIE, not rockie ! ;-)

Hakan