Re: Determine Spool file attributes

What I have done with this:
cpy the spool file attribs as a print then read all of "my" spool file
entries back into a subfile with their attribs. I have sent you a copy of
the programs directly as it's too large for this forum. It only does one at
a time which is how I used it but simple mod. to do multiples.  You can copy
the source from the text files directly into SEU., good luck, Rick.

-----Original Message-----
From: Douglas A. Griffin <degriff@srv.net>
To: RPG400-L@midrange.com <RPG400-L@midrange.com>
Date: Saturday, March 27, 1999 9:35 AM
Subject: Re: Determine Spool file attributes


>Hi.  A related question.  I have a bunch of spool files for a job that is
>already finished sitting in an outq.  I want to back up these files to tape
>and the only way I know how to do that is copy them to a physical file
using
>CPYSPLF (if there is a better way please let me know).  There are several
>thousand of them so I need to write a program rather than do it from the
>command line.
>
>Since these files were created with multiple jobs previously run I can't
use
>the file feedback data structure to retrieve the spool file attributes I
>need. required by CPYSPLF.
>
>In other words I want to process an outq in batch. Is there an API or
perhaps
>a physical file somewhere that has the info I need.
>
>Thanks in advance for advice
>
>Doug Griffin
>Rexburg, ID.
>
>Stone, Brad V (PP) wrote:
>
>> 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          *
>> * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
>
>
>
>--
>----------------------------------------------------------------
>The universe is a big place, perhaps the biggest." Kilgore Trout
>           http://www.srv.net/~degriff/welcome.htm
>----------------------------------------------------------------
>
>
>* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
>* 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          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *