Jeff,

As you say 'all intermediate jobs ... are alive'. In our case it can be
guaranteed that they will not.

Oh well. It looks as if the only viable solution is to either use permanent
files (as suggested by Ted Ashton and several others) or to finally have a
use for the system-wide variables (as mentioned by Paul Taffel).

Thanks to all who responded to this question.

regards,
Robert
-----Original Message-----
From: VANCE,JEFF (HP-Cupertino,ex1) [mailto:[log in to unmask]]
Sent: 29 May 2001 23:28
To: [log in to unmask]
Subject: Re: Passing HPSTREAMEDBY from one job to another.


> Use your parser to get the job number of the streaming job,
> use jinfo to see who streamed it. Keep going back until you
> get to the streaming session identifier.

I like this approach too.  It does require that all intermediate jobs and
the originating session are alive.  Here is a script that accomplishes
the task of chasing jobs via their 'streamedby' job number until the
initial session is found.  Of course it can be improved upon in a number of
ways, but it provides the basic function.

FWIW,
 Jeff (behind on email) Vance, CSY


======================
PARM job,rtnvar=origsess
# This script accepts a job number and, using the id of who streamed it,
# returns in the "rtnvar" variable the originating session id.
#
setvar !rtnvar ""
setvar _by word(jinfo('!job','streamedby'),'()',-2)
while jinfo(_by,'exists') and lft(_by,2) = '#J' do
   setvar _by word(jinfo(_by,'streamedby'),'()',-2)
endwhile
if lft(_by,2) = '#S' then
   setvar !rtnvar _by
endif

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *