Re: How do I get RPG to tell me what library a file is open in?

[Scott Klement <rpg400-l@xxxxxxxxxxxxxxxx>]

Hello Guy,

> I'm adding an FTP command to the end of a program to send a file that the 
> program just wrote.  The PUT subcommand needs the library.  How do I get 
> RPGIV to tell me what library a file is open in?  V5R2M0

The INFDS will tell you the library.

This information is in the "open feedback" section of the INFDS, and 
therefore won't be available unless you have the file open while you 
request it. You'll want to close the file before FTPing it, though.

Consequently, I'd do something like the following:

     FCUSTMAS   IF   E           K DISK    INFDS(FILEINFO)
     F                                     USROPN

     D FILEINFO        ds
     D   Filename             83     92A
     D   Library              93    102A
     D   Member              129    138A

     D PUTNAME         s             36A   varying

      /free

            open CUSTMAS;

         ... do work here ...

            PUTNAME = 'PUT ' + %trimr(Library) + '/'
                             + %trimr(Filename) + '.'
                             + %trimr(Member);

            close CUSTMAS;

          ... do FTP stuff here, using PUTNAME ...

      /end-free

Good Luck