|
midrange.com
Guy
the information ds only gets updated
after file i/o has been done to this file
(blocking may also be a factor) which is
possibly why bwvalib is blank.
I know its a bit naff but could u do a read
of bwva before creating your string ?
Mike
-----Original Message-----
From: Guy Henza [mailto:guyhenza@xxxxxxxxxxx]
Sent: 06 April 2005 12:37
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.
_____________________________________________________________________
This e-mail has been scanned for viruses by MCI's Internet Managed Scanning
Services - powered by MessageLabs. For further information visit
http://www.mci.com
###########################################
This message has been scanned by F-Secure Anti-Virus for Microsoft Exchange.
For more information, connect to http://www.F-Secure.com/
**********************************************************************
This communication and the information it contains: - (a) Is intended for the
person(s) or organisation(s) named above and for no other person(s) or
organisation(s). Access to this mail by anyone else is unauthorised. (b) Is
confidential, and may be legally privileged or otherwise protected in law.
Unauthorised use, circulation, copying or disclosure of any part of this
communication may be unlawful. (c) May be susceptible to interference, and
should not be assumed that it has come in its original form and/or from the
stated sender or PinkRoccade UK accepts no responsibility for information,
errors or omissions in this e-mail or use or misuse thereof or any act done or
omitted to be done in connection with this communication. If you are not the
intended recipient, please inform postmaster@xxxxxxxxxxxxxxxxx immediately and
delete it and all copies from your system.
www.pinkroccade.co.uk
**********************************************************************
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
