topic Re: Lexical function in Operating System - OpenVMS

Lexical function

Just_Sergey — Wed, 10 Sep 2008 11:34:33 GMT

Help me plz.
How can i get Entry number of executing job by f$getqui function??
I know just job name.

Re: Lexical function

EdgarZamora_1 — Wed, 10 Sep 2008 11:42:43 GMT

More details would get you a more specific answer.

If you want to get the entry number of your currently executing job (from that job itself) then something like...

entry = f$getqui("display_job","entry_number",,"this_job")

If the job you're interested in is another job (not the process you're running in) then you would need to loop through the queues (or the specific queue if you know the queue name) then loop through the jobs in that queue and check for the specific job name you want. Once you find that job then you can get the entry number.

Re: Lexical function

Wim Van den Wyngaert — Wed, 10 Sep 2008 11:57:19 GMT

And note that the job name is not a unique key for getting a job (you can have 2 jobs calling "COMPILE").

Wim

Re: Lexical function

Just_Sergey — Wed, 10 Sep 2008 12:08:50 GMT

2EdgarZamora: i have second case.
I'm interested in is another job.
And I know queue name, but I dont know how realize it. ((
Can you write some example?
2Wim Van den: I have just one job with this job_name

Re: Lexical function

Robert Gezelter — Wed, 10 Sep 2008 12:09:15 GMT

Just_Sergey,

As was implied by the other posts, one must be careful as it is possible to have multiple jobs of the same name in the queues and/or executing at the same time (for either the same user or different users).

Only the entry number is unique, so long as the job exists. Entry numbers can be quickly recycled, so care is recommended.

- Bob Gezelter, http://www.rlgsc.com

Re: Lexical function

Wim Van den Wyngaert — Wed, 10 Sep 2008 12:16:44 GMT

Here you have an example of a .com that creates (if not there) and deletes (if there) job entries.

Wim

Re: Lexical function

Just_Sergey — Wed, 10 Sep 2008 12:28:24 GMT

I thought it would work. (in Attachment)
Naively )

Re: Lexical function

Wim Van den Wyngaert — Wed, 10 Sep 2008 12:44:35 GMT

Replace display_job by display_entry and it will.

Wim

Re: Lexical function

Just_Sergey — Wed, 10 Sep 2008 12:55:51 GMT

It does not ((( Attach

Re: Lexical function

EdgarZamora_1 — Wed, 10 Sep 2008 13:08:47 GMT

The attached sample code will do what you want. Tailor it for flexibility.

Re: Lexical function

Wim Van den Wyngaert — Wed, 10 Sep 2008 13:08:48 GMT

Are you system ? I just did the same test and it works for my job.

Wim

Re: Lexical function

EdgarZamora_1 — Wed, 10 Sep 2008 13:21:22 GMT

Re my response... you might want to add a "BATCH" flag to the GETQUI for less overhead...

$ QNAME = F$GETQUI("DISPLAY_QUEUE","QUEUE_NAME","*","BATCH")

Re: Lexical function

Just_Sergey — Thu, 11 Sep 2008 12:10:09 GMT

Thanks to all especially Wim Van den and his example. Found solution to a problem.

Re: Lexical function

Duncan Morris — Fri, 12 Sep 2008 19:17:58 GMT

Hi, Just_sergy

from your Forum Profile:

I have assigned points to 0 of 8 responses to my questions.

Maybe you can find some time to do some assigning?

http://forums1.itrc.hp.com/service/forums/helptips.do?#33

Mind, I do NOT say you necessarily need to give lots of points. It is fully up to _YOU_ to decide how many. If you consider an answer is not deserving any points, you can also assign 0 ( = zero ) points, and then that answer will no longer be counted as unassigned.
Consider, that every poster took at least the trouble of posting for you!

To easily find your streams with unassigned points, click your own name somewhere.
This will bring up your profile.
Near the bottom of that page, under the caption "My Question(s)" you will find "questions or topics with unassigned points " Clicking that will give all, and only, your questions that still have unassigned postings.

Thanks on behalf of your Forum colleagues.

PS. nothing personal in this. I try to post it to everyone with this kind of assignment ratio in this forum.

Re: Lexical function

Just_Sergey — Wed, 17 Sep 2008 06:32:13 GMT

now know )