Re: Retrieving spooled file information inside an RPG program

[Bradley Stone <bvstone@xxxxxxxxx>]

Can you let us know what OS version you are running and show us your
declaration of the INFDS and spooled file number you're using?

Brad
www.bvstools.com

On Wed, Mar 18, 2015 at 8:04 PM, Steve Landess <sjl_abc@xxxxxxxxxxx> wrote:

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