Re: Retrieving spooled file information inside an RPG program

["Steve Landess" <sjl_abc@xxxxxxxxxxx>]

Alan-
Sounds interesting, can you share them?
-sjl

"Alan Campin"  wrote in message 
news:mailman.2000.1426743320.14083.rpg400-l@xxxxxxxxxxxx...

I created some service programs that wrapper the spool file api's if you
are interested.

I have a short(Runs listing directly) version and a long(Use List api for
long running) version.

Just call functions to set spool attributes you want and call and you get
back a list with all the information.

On Wed, Mar 18, 2015 at 10:24 PM, midrange <franz9000@xxxxxxxxx> wrote:

> It's a binary nbr so not 4.0 but 9.0
>
> FADRSQL7P  O    E             PRINTER OFLIND(*IN88)
> F                                     INFDS(@INFDS1)
> D* * * * * * * * * * * * * * * * * * * * *
> D* PRINTER FILE INFORMATION DATA STRUCTURE
> D* * * * * * * * * * * * * * * * * * * * *
> D @INFDS1         DS
> D  @FILE1                 1      8
> D  @SPLF#1              160    163B 0
> D  @LINE#1              367    368B 0
>
> Jim
>
>
> -----Original Message-----
> From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Steve
> Landess
> Sent: Wednesday, March 18, 2015 9:05 PM
> To: rpg400-l@xxxxxxxxxxxx
> Subject: Retrieving spooled file information inside an RPG program
>
> IBM i System running V7.1
> ----------------------------------
>
> I'm working in a JDE shop using the standard JDE copy books for the file
> information data structure.
>
> In my RPGIV program, if an error occurs, after I close the error report I
> want to copy the spooled file to a database file.  Also, before the 
> printer
> file was opened, an OVRPRTF was executed to change the name of the spooled
> file.
>
>     Example:
>     OVRPRTF FILE(QSYSPRT) SPLFNAME(WINGNUT)
>
> Thus the report was created with the name 'WINGNUT'.
>
> I need the actual spooled file name and spooled file number for CPYSPLF.
>
> From what I have observed,
>
> 1) The INFDS for the printer file does not give the full six-digit spooled
> file number, only a 4-digit spooled file number.
> 2) The INFDS for the printer file also does not appear to have a field
> containing the actual spooled file name which was opened.
>
> How Do I get the full six-digit spooled file number and spooled file name
> for the report?
>
> -sjl
>
> --
> This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
> mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
> unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives at
> http://archive.midrange.com/rpg400-l.
>
> --
> This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
> mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.