RE: How do I...

["Lim Hock-Chai" <Lim.Hock-Chai@xxxxxxxxxxxxxxx>]

try change %char to %edit with edit code of 'X'.  Example:
%subst(%edit(#exdte :'X') :5, 2))
%subst(%edit(#exdte :'X') :1:4))
%subst(%edit(#extim :'X'):1:6))

%char does not retain leading 0.  Depending on what time you exec the program, 
you will get the error you indicated.



-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Guy Henza
Sent: Wednesday, April 06, 2005 6:37 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: RE: How do I...


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


-- 
This is the RPG programming on the AS400 / 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.