[Info-vax] JIB Jab

[VAXman- at SendSpamHere.ORG]

In article <Fd9Bm.47363$ze1.417 at news-server.bigpond.net.au>, "Tim E. Sneddon" <tim.sneddon at bigpond.com> writes:
>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
>
>Tim.

Yeah Tim, I believe that escape to SDA is the only way.  I don't understand
why the $GETJPI system service doesn't have the JIB as one of its item list
codes.

-- 
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?"