RE: Determine Spool file attributes

["Stone, Brad V (PP)" <bvstone@xxxxxxxxxxxxx>]

Move the binary field into a zoned field.  Then you will have the number.

C               eval    zonednum = binnum

That's all you should have to do.

Brad

> -----Original Message-----
> From: Gary Munroe [mailto:GMUNROE@flemingc.on.ca]
> Sent: Thursday, March 25, 1999 10:59 AM
> To: RPG400-L@midrange.com
> Subject: Determine Spool file attributes
> 
> 
> I am trying to find out the attributes (spool # mainly) of the spool 
> file that I am using in an RPG III program on V3R2 (RPG IV is not an 
> option rght now).  I've basically figured out that I need to get the 
> information from the INFDS but the spool number is defined as 
> positions 123-124 binary.  I have never used a binary before and am 
> unsure on how to retrieve this information.  Can anyone help?
> 
> Thanks
> 
> 
>  __________________________________________________________________
> | Gary Munroe                                                      |
> |------------------------------------------------------------------|
> | I.T.S., AS/400 Services        Work: gmunroe@flemingc.on.ca      |
> | Sir Sandford Fleming College   Home: izzi@calweb.com             |
> | (705) 749-5523 x1409            Web: http://www.calweb.com/~izzi |
> |__________________________________________________________________|
> * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
> * * * * * *
> * This is the RPG/400 Discussion Mailing List!  To submit a 
> new         *
> * message, send your mail to "RPG400-L@midrange.com".  To 
> unsubscribe   *
> * from this list send email to MAJORDOMO@midrange.com and 
> specify       *
> * 'unsubscribe RPG400-L' in the body of your message.  
> Questions should *
> * be directed to the list owner / operator: 
> david@midrange.com          *
> * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
> * * * * * *
> 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List!  To submit a new         *
* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
* from this list send email to MAJORDOMO@midrange.com and specify       *
* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
* be directed to the list owner / operator: david@midrange.com          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *