[Info-vax] JIB Jab

[Tim E. Sneddon]

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.