IFS CCSID 1025

Hi All

I know this has been discussed before, but I have no clue....

So here I go;

We have users with Client Access Cyrillic fonts installed and sessions
with ccsid 1025.
They key in Russian data which looks nice on their pc, with their
settings. (it looks likes random special characters to us)

When I create a .txt file in the IFS (enabling translation ccsid=1025) the
data is still scrambled eggs.
I must be overlooking something obvious....

We have a VB workaround which creates a .txt file with encoding=unicode
and ccsid 1025.
But I just don't like the detour.

Does anyone have any suggestions?


Thanks in advance &
Have a Nice day
Wim

/free

*inlr = *on ;

// Retrieve string YYYYMMDDHHMMSS from current timestamp
aTimeStamp = %subst(%char(%timestamp:*iso0):1:14) ;

// Create txt file name
aFileName = 'Cyril_' + aTimeStamp + '.txt' ;

// Change directory ...
if chdir('/tmp') < 0 ;
ErrMsg = %str(strerror(errno)) ;
Return ;
endif ;

// Set flag & mode parameters ...
Flags = O_CREAT + O_EXCL + O_RDWR + O_CCSID ;
Mode = S_IRUSR + S_IWUSR + S_IXUSR +
S_IRGRP + S_IWGRP + S_IXGRP +
S_IROTH + S_IWOTH + S_IXOTH ;

// Create the file, with CCSID 1025
fd = open( %trimr(aFileName)
: Flags
: Mode
: 1025 ) ;

// Close the file
closef(fd) ;

// Open the file again (enable translation)
fd = open( %trimr(aFileName) : O_RDWR + O_TEXTDATA ) ;

// Get data
dou %eof(DHL007132) ;
read DHL007132 ;
if %eof(DHL007132) ;
Leave ;
endif ;

aData = %trim(DETL006) + crlf ;
// Write data to stream file ...
if write(fd: %addr(aData): %len(%trimr(aData))) < 1 ;
ErrMsg = %str(strerror(errno)) ;
endif ;

Enddo ;

// Close the file ...
closef(fd) ;

// End Program
return ;

/end-free