[Info-vax] JIB Jab

[Craig A. Berry]

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)