Re: Spool file position in QSPL

Hello Loyd,

I notice you have been given information to determine the member via the object 
locks.  However, you may also 
want to determine this information programatically.  There is no API available 
so this information is 
security level dependant.

You can use MI to determine this information:  The Work Control Block has a 
pointer to the Spool Control 
Block and there is a section for each output file in which you will find a 
pointer to the member containing 
the spooled data.  You can materialise this pointer to determine the member 
name.  Finding the file is a bit 
harder.  You need to get the reference to the 'owning' file from the member but 
my memory is fading.  I can't 
recall exactly how to this.  I'd need to start dumping internal thingies again.

You do need to know the the spooled file information and be able to read the 
IRP from, for instance, an RPG 
program to determine the layout of each control block.

Regards,
Simon Coulter.

//----------------------------------------------------------
// FlyByNight Software         AS/400 Technical Specialists
// Phone: +61 3 9419 0175      Mobile: +61 0411 091 400
// Fax:   +61 3 9419 0175      E-mail: shc@flybynight.com.au
// 
// Windoze should not be open at Warp speed.
//--- forwarded letter -------------------------------------------------------
> X-Mailer: Forte Agent 1.5/32.452
> Date: Fri, 11 Dec 98 21:18:12 +0000
> From: lgoodbar@watervalley.net
> To: midrange-l@midrange.com
> Reply-To: MIDRANGE-L@midrange.com
> Cc: lgoodbar@watervalley.net
> Subject: Spool file position in QSPL

> 
> For a particular spool file, is there a way to determine which file & member
> in QSPL it's in?
> 
> Thanks,
> Loyd Goodbar

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---