Taking the lead from Ed Caruso's post about getting the streamer's LDEV
by using JOBINFO, I coded up all of the items in a COBOL program.
 
Ed was correct about how to interpret item 48, but it's still not
documented as of the latest LaserRom.
 
Leonard Berkowitz
RIA Group (Warren, Gorham & Lamont)
617-292-8349 (TZ=EST5EDT)
 
 
______________________________ Reply Separator _________________________________
Subject: Re: Streamed by LDEV
Author:  Ed Caruso <[log in to unmask]> at Internet-Exchange
Date:    09/17/96 3:24 PM
 
 
Recently Ralph asked:
 
Date:    Mon, 16 Sep 1996 14:53:18 -0700
From:    Ralph ALEXANDER <[log in to unmask]>
Subject: STREAMED BY LDEV ?
 
Each job-protocol contains a line with informations about the session
(or the job) which streamed the job.
 
Exaample:
 
STREAMED BY ALEX,MANAGER.SYS (#S123) ON LDEV# 111
   STREAM DATE: ......
 
Is it possible to get the LDEV - information to use it for file-
equations ?
 
I want to use it to adjust the correct output-printer depending on the
streaming terminal.
 
thanx
 
Ralph
****************
Ralph:
 
You can obtain the information by calling jobinfo item number 45.
This will retrieve the the ldev number for the streamer of the
job who does in job info call.  In other words Session A on ldev 100
launches a job (JOB B).  In the job, a program such as STRMINFO (streamer
info program) which I have written and ouotput shown below. loads some
mpe/ix variables which can then be used durning the remainder of the stream job.
the program I wrote is in COBOL.
 
The chart below may be of some help..
 
I obtained the following info from PICS about three years ago....
however the information is available now in
the MPE/IX intrinsics REFERENCE MANUAL sixth edition (brown paperback)
printed USA 1994
see pages 4-464 thru 4-470
 
Item number       return data type   returned information
-----------       -------------     ----------------
38                  s9(9) comp       $STDIN
39                  s9(9) comp       $STDLIST
41                  s9(9) comp       streamer's job #
42                  x8               streamer's job name
43                  x8               streamer's username
44                  x8               streamer's acct name
45                  x8               streamer's ldev
46                  s9(4) comp       streamer date (calendar format)
                                                   (use FMTCALENDAR)
47                  s9(9) comp       streamer time
48                  s9(4) comp       streamer jobtype
 
you will have to check which value means what as a return value for item
48.  I could not use item 48 because at the time that item number was not
supported.  I would imagine 1 = session & 2 = job.  Similar to the jsind
indicator described at the beginnig of the JOB info discussion.
 
NOTE many of these item numbers are useless and do not apply if the caller
of JOBINFO is a session.  The caller of JOBINFO MUST BE A JOB!!
 
<sample output>
 
:STRMINFP.PUB
 STRMINFP Version: A.00.03 04/21/94
 
 **************************
 STRMMYJOBNUM = 324
 STRMMYOUT = 9633
 STRMRJOBNUM = 441
 STRMRJOBNAME = CARUSO
 STRMRUSERNAME = PGMR
 STRMRACCTNAME = PSISCH
 STRMRLDEV = 29
 STRMRJOBTYPE = S
 STREAMER = CARUSO,PGMR.PSISCH
 STREAMERNUM = S441
 **************************
 
 
 
 
 
 
 
Edward A. Caruso
 
The opinions expressed are my own and do not necessarily match those of any
other individual or orgainzation
 
"There can be Only One !!" --- Conner Mcleod "The Highlander"
 
voice: 415-306-1620  fax: 415-365-2706
email: (work) [log in to unmask] (home) [log in to unmask] OR [log in to unmask]