Re: Code Page Problem with Scott's IFS Book

[Mike <koldark@xxxxxxxxx>]

Okay... I found an example browsing through the archives and it works. For
the sake of documentation, this works:

         callp unlink ('/web/customerService/webCategories.xml');
         fd = open('/web/customerService/webCategories.xml' + x'00':
                   O_CREAT+O_WRONLY+O_TRUNC+O_TEXTDATA+O_TEXT_CREAT+O_CCSID:
                   RW*OWNER + RW*GROUP + R: 1208);

On 9/17/07, Tommy.Holden@xxxxxxxxxxxxxxxxxxxxx <
Tommy.Holden@xxxxxxxxxxxxxxxxxxxxx> wrote:
> yep that's what i meant...
>
> Thanks,
> Tommy Holden
>
>
>
> Mike <koldark@xxxxxxxxx>
> Sent by: rpg400-l-bounces@xxxxxxxxxxxx
> 09/17/2007 10:16 AM
> Please respond to
> RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
>
>
> To
> "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
> cc
>
> Subject
> Re: Code Page Problem with Scott's IFS Book
>
>
>
>
>
>
> Not quite sure what you mean, you mean like:
>
> fd = open('/web/customerService/webCategories.xml':
>                    O_CREAT+O_TRUNC+O_WRONLY:
>                    RW*OWNER + RW*GROUP + R: 819);
> callp close(fd);
> fd = open('/web/customerService/webCategories.xml':
>          O_WRONLY:
>          RW*OWNER + RW*GROUP + R: 819);
>
> On 9/17/07, Tommy.Holden@xxxxxxxxxxxxxxxxxxxxx <
> Tommy.Holden@xxxxxxxxxxxxxxxxxxxxx> wrote:
> > did you close the stream file & reopen it before writing data to it?
> >
> > Thanks,
> > Tommy Holden
> >
> >
> >
> > Mike <koldark@xxxxxxxxx>
> > Sent by: rpg400-l-bounces@xxxxxxxxxxxx
> > 09/17/2007 10:02 AM
> > Please respond to
> > RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
> >
> >
> > To
> > "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
> > cc
> >
> > Subject
> > Code Page Problem with Scott's IFS Book
> >
> >
> >
> >
> >
> >
> > I am working with Scott Klement's IFS book and keep on having a code
> page
> > problems. I have my open statement as:
> >
> > fd = open('/web/customerService/webCategories.xml':
> >                    O_CREAT+O_TRUNC+O_WRONLY:
> >                    RW*OWNER + RW*GROUP + R: 819);
> >
> > and I still get gobbly gook in my file. Ideas?
> >
> > --
> > Mike Wills
> > http://www.linkedin.com/in/mikewills
> > Blog - http://mikewills.name
> > Podcasts - http://podcastmike.com
> > --
> > 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 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.
>
>
> --
> Mike Wills
> http://www.linkedin.com/in/mikewills
> Blog - http://mikewills.name
> Podcasts - http://podcastmike.com
> --
> 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 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.