RE: How do I... -- RPG400-L

Thanks Lim, Jerry, Scott, everybody, INFDS worked, but now I'm getting:

Statement in Error . . . . . . . . . . : 00016010 Message Data . . . . . . . . . . . . . : Length or start position is out of range for the string operation.

003000 Fbwva      O    E             DISK    INFDS(bwvads)

003807 D bwvads          ds
003809 D  bwvalib               93    102
004500 D                SDS
005800 D  #exdte               276    281  0
005900 D  #extim               282    287  0

016010 C Eval Data1 = 'put ' + %trimr(bwvalib) + 016011 C '/bwva jdasn20' + 016013 C %subst(%char(#exdte):5:2) + 016014 C %subst(%char(#exdte):1:4) + 016015 C %subst(%char(#extim):1:6) + '.txt'

000002=O                       DATA1              312A CHAR      312

This was working yesterday when I had the library hard coded.

Guy


------------------------------

date: Tue, 5 Apr 2005 14:33:32 -0400
from: Kimaly Mayhew <mmayhew@xxxxxxxxxxxxxxxxxxxxx>
subject: RE: How do I get RPG to tell me what library a file is open
        in?

*LIBL works.


Kimaly,
*LIBL does not work on a FTP PUT command.

 -----Original Message-----
From:   Guy Henza [mailto:guyhenza@xxxxxxxxxxx]
Sent:   Tuesday, April 05, 2005 2:30 PM
To:     rpg400-l@xxxxxxxxxxxx
Subject:        How do I get RPG to tell me what library a file is open in?

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

Guy


------------------------------

date: Tue, 5 Apr 2005 13:34:19 -0500
from: "Lim Hock-Chai" <Lim.Hock-Chai@xxxxxxxxxxxxxxx>
subject: RE: How do I get RPG to tell me what library a file is open
        in?

check the INFDS.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Guy Henza
Sent: Tuesday, April 05, 2005 1:30 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: How do I get RPG to tell me what library a file is open in?


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

Guy

------------------------------

date: Tue, 5 Apr 2005 13:48:22 -0500 (CDT)
from: Scott Klement <rpg400-l@xxxxxxxxxxxxxxxx>
subject: Re: How do I get RPG to tell me what library a file is open
        in?

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

Thanks again