Re: RPG IFS & codepage

I use code page 437 for the ones I create.

Matt Hopkins 
Sr. Programmer/Analyst 
Web: www.pdpgroupinc.com 
Email: MWHopkins@xxxxxxxxxxxxxxx 
Office: 410-584-0330 
Fax: 410-584-0336 





"Holden Tommy" <Tommy.Holden@xxxxxxxxxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
02/23/2007 01:57 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
cc

Fax to

Subject
RPG IFS & codepage






OK this is driving me nuts.

I have a program that creates a file on the IFS.  The file looks fine on 
the AS/400 using WRKLNK & displaying the file.  The file is an XML 
document (very simple).

XML on iSeries IFS:
<XML>
 <AUTHOR>Tommy Holden </AUTHOR>
</XML>

If I connect a mapped drive to the IFS folder open using notepad and it's 
all gibberish:
LçÔÓn@LÁäãÈÖÙnã-

I'm using codepage 37 to create the file.
          fd = Open( %TrimR(FileName)
                   : O_CREAT+O_TRUNC+O_RDWR+O_CODEPAGE+O_TEXTDATA
                   : S_IRUSR+S_IWUSR+S_IXUSR+
                     S_IRGRP+S_IWGRP+S_IXGRP+
                     S_IROTH+S_IXGRP:37); 

The IFS file reflects the codepage :
 
 Coded character set ID . . . . . . . . :   37 
 Hidden file  . . . . . . . . . . . . . :   No 
 PC system file . . . . . . . . . . . . :   No 
 Read only  . . . . . . . . . . . . . . :   No 
 
I've tried other codepages with the same results.  I'm hoping this is just 
something stupid I'm doing.  Any ideas?


Thanks,
Tommy Holden