[Info-vax] JIB Jab

[VAXman- at SendSpamHere.ORG]

In article <xOCdnQymjsavokjXnZ2dnUVZ_gVi4p2d at speakeasy.net>, "Craig A. Berry" <craigberry at nospam.mac.com> writes:
>
>
>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)

If you can make that work for a process other then your own, do let us know.

-- 
VAXman- A Bored Certified VMS Kernel Mode Hacker    VAXman(at)TMESIS(dot)ORG

  http://www.quirkfactory.com/popart/asskey/eqn2.png
  
  "Well my son, life is like a beanstalk, isn't it?"