Re: Determine Spool file attributes

["Douglas A. Griffin" <degriff@xxxxxxx>]

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