Here's some sample code.  Be warned that this is "whip it out" code.  It has
been tested, but I expect that many on this list could write it better.  Here's
the logon udc:

x
option logon
if not HPINTERACTIVE
  setvar START POS('#',HPSTREAMEDBY)
  setvar END POS(')',HPSTREAMEDBY)-1
  setvar STBY STR(HPSTREAMEDBY,START,END-START+1)
  if "#S" = LFT(STBY,2)
    purge ST!HPJOBNUM.FLAGS
    echo !STBY > ST!HPJOBNUM.FLAGS
    save ST!HPJOBNUM.FLAGS
  else
    purge ST!HPJOBNUM.FLAGS
    copy !["ST"+RHT(STBY,-3)].FLAGS,ST!HPJOBNUM.FLAGS
  endif
  input STBY < ST!HPJOBNUM.FLAGS
  deletevar START
  deletevar END
endif

Here are three sample jobs:

/l job1
    1     !job test1,job.jobtest;outclass=,2
    2     !showvar stby
    3     !tell !STBY Job 1 checking in.
    4     !stream job2
    5     !eoj
/l job2
    1     !job test2,job.jobtest;outclass=,2
    2     !showvar stby
    3     !tell !STBY Job 2 checking in.
    4     !stream job3
    5     !eoj
/l job3
    1     !job test3,job.jobtest;outclass=,2
    2     !showvar stby
    3     !tell !STBY Job 3 checking in.
    4     !eoj

Note that this technique, as it stands would end with a few thousand files in
one group.  All small, but significant in aggragate.  Actual implementation of
the process could either include having the downtream jobs purge the files as
they were no longer needed--if all of the multiple-job hierarchies are linear,
use a single file with short records for the storage or do daily sweeps through
the group purging files.

Ted
--
Ted Ashton ([log in to unmask]), Info Sys, Southern Adventist University
          ==========================================================
You treat world history as a mathematician does mathematics, in which
nothing but laws and formulae exist, no reality, no good and evil, no time,
no yesterday, no tomorrow, nothing but an eternal, shallow, mathematical
present.
                        -- Hesse, Hermann (1877-1962)
          ==========================================================
         Deep thoughts to be found at http://www.southern.edu/~ashted

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