[Info-vax] JIB Jab

[Tim E. Sneddon]

Craig A. Berry wrote:
> 
> 
> Tim E. Sneddon wrote:
>> VAXman- @SendSpamHere.ORG wrote:
>>> Here's one for you all to ponder since there's little VMS talk here 
>>> of late.
>>>
>>> How do you get the JIB from the PID using DCL such that you can see 
>>> the JOB
>>> logical table of the process whose PID you've specified.  Have fun...
>>>     
>>
>> Here is my entry:
>>
>> pooky_FTA8> type jib.com
>> $ set noon
>> $ on warning then goto bail_out
>> $ on control_y then goto bail_out
>> $
>> $ say = "write sys$output"
>> $
>> $ p1 = f$edit(p1,"TRIM,UNCOMMENT,COLLAPSE,UNCOMMENT")
>> $ if (p1 .eqs. "") then p1 = f$getjpi("","PID")
>> $
>> $ pipe say "show process/id=''p1'" -
>>      | analyze/system -
>>      | search sys$pipe "JIB" -
>>      | ( read sys$pipe result ; -
>>          define/job/nolog pipe_result &result )
>> $
>> $ jibadr = f$element(5," 
>> ",f$edit(f$trnlnm("PIPE_RESULT"),"COMPRESS,TRIM"))
>> $
>> $ say "The job table for process ''p1' is LNM$JOB_''jibadr'"
>> $
>> $bail_out:
>> $ exitt 1
>> pooky_FTA8> jib
>> The job table for process 0000046D is LNM$JOB_884F9D00
> 
> That seems like a lot of work.  How about:
> 
> $ show log/structure lnm$job
>    "LNM$JOB" = "LNM$JOB_886E6300" (LNM$PROCESS_DIRECTORY)

But the challenge was for any PID.  My procedure simply defaults
to the current process (as do most system services, etc. that
deal with process specific information).

If you supply any PID as argument P1 my procedure will track down
its job logical table name.

Tim.