Re: RPG, IFS, and FTP

["Brad Stone" <brad@xxxxxxxxxxxx>]

I converted the data to ASCII in the RPG program before
writing it and it seemed to have solved that.  I assumed
that was done with the APIs (the EBCDIC to ASCII conversion
that is).

I opened the file and create it with the following:

C                   Eval      oflag = O_CREATE + O_RDWR +
O_CODEPAGE +
C                                     O_TRUNC + O_TEXTDATA
 * Set security attribute parameter
C                   Eval      mode = S_IRWXU + S_IRWXG +
C                                    S_IROTH + S_IXOTH
 *
C                   eval      Path = '/tmp/geturidebug.txt'
 * Create stream file
C                   Eval      DebugDesc =
openstmf(%trimr(Path) : oflag :
C                                             mode :
codepage)
 *
 * Close stream file
C                   EXSR      $EndDebug
 *
 * Re-Open stream file
C                   Eval      DebugDesc =
openstmf(%trimr(Path) : oflag :
C                                             mode :
codepage)

codepage is 819.

I'm just so fried on alergy medicine that I don't see what I
did wrong.  I don't remember having this problem in the
past.

Thanks for everyone's help!

Brad
www.bvstools.com

On Mon, 28 Oct 2002 16:55:19 -0600
 "DeLong, Eric" <EDeLong@Sallybeauty.com> wrote:
> Brad, if you check the file attributes in WRKLNK, did it
> show up as CP819?
> How did you create the file?
>
> Eric DeLong
> Sally Beauty Company
> MIS-Project Manager (BSG)
> 940-898-7863 or ext. 1863
>
>
>
> > -----Original Message-----
> > From: Brad Stone [mailto:brad@bvstools.com]
> > Sent: Monday, October 28, 2002 4:41 PM
> > To: rpg400-l@midrange.com
> > Subject: RPG, IFS, and FTP
> >
> >
> > I am creating an IFS file with an RPG program.  I am
> > specifying the file as text data, code page 819.
> >
> > If I use WRKLNK to view the file, it looks great.  If I
> try
> > and use FTP to download the file, it's all garbage on
> my PC.
> >
> > can anyone explain why?  :)
> >
> > I'm having a little brain fry today...
> >
> > Brad
> > _______________________________________________
> > This is the RPG programming on the AS400 / iSeries
> (RPG400-L)
> > mailing list
> > To post a message email: RPG400-L@midrange.com
> > To subscribe, unsubscribe, or change list options,
> > visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> > or email: RPG400-L-request@midrange.com
> > Before posting, please take a moment to review the
> archives
> > at http://archive.midrange.com/rpg400-l.
> >
> >
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries
> (RPG400-L) mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the
> archives
> at http://archive.midrange.com/rpg400-l.
>

Bradley V. Stone
BVS.Tools
www.bvstools.com