Re: Determine Spool file attributes

[jmoreno@xxxxxxxxxxxxxxxx]

Sample
   FPRINTF O   E             99     PRINTER        UC
   F                                              KINFDS PRTDS
    * Spooled File Number (0001 - 9999), Current Line and Page number
   IPRTDS       DS
   I                                    B 123  1240SPLNBR
   I                                    B 367 3680CURLIN
   I                                    B 369 3720CURPAG

   **  OPEN THE PRINT FILE .... Excecute an Output ine to the PRINT File,
   **                                                       Read the contents 
of SPLNBR
   **                                                        (I usually hand 
that information to a CL pgm in Charater(Alpha) Format)

   C                     SPLNBR  IFGE      0001
   C                     SPLNBR  ANDLE 9999
   C
    **                      etc
**************** End of data ***********************************




Gary Munroe <GMUNROE@flemingc.on.ca> on 03/25/99 11:59:12 AM

Please respond to RPG400-L@midrange.com

To:    RPG400-L@midrange.com
cc:     (bcc: Jorge A Moreno/Military Car Sales)
Subject:
E-Mail Ref #:  01-WNY-1561325




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          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *