Re: Problem writing to a IFS file

[Booth Martin <booth@xxxxxxxxxxxx>]

noooooo.....  i didn't say that.  it was the monkeys that live in my head.

What I was trying to say is that I wonder if you are cutting off the 
CRLF when you do the trims.

Booth Martin wrote:
> See if this works:
>
> Fd=write(RC2:%addr(stringvalW): (%Len(%Trim(stringvalW)) + CRLF))
>
>
>
> Grizzly Malchow wrote:
> > I'm writing records to a stream file opened up as follows:
> >
> > O_WRONLY          C                   2
> > D O_CREAT         C                   8  
> > D O_CODEPAGE      C                   8388608  
> > D S_IXUSR         C                   64    
> > D CRLF            c                   const(X'0D25')
> >
> > RC2=open(TempStmfFile:O_CREAT+O_WRONLY+O_CODEPAGE
> >          :S_IWUSR
> >          :819);
> >
> > StringValW = %TrimR(StringVal) + CRLF;                  
> > Fd=write(RC2:%addr(stringvalW):%Len(%Trim(stringvalW)));
> >
> > The write is inside of a loop. The problem I'm having is sometimes lines
> > are being appended as opposed to being written on a new line. Or at
> > least that's what it looks like when I view the file. 
> > For instance if I had the following?
> >
> > StringVal = 'LINE 1                   ';
> > StringValW = %TrimR(StringVal) + CRLF;
> > Fd=write(RC2:%addr(stringvalW):%Len(%Trim(stringvalW)));
> >
> > StringVal = 'LINE 2    ';
> > StringValW = %TrimR(StringVal) + CRLF;
> > Fd=write(RC2:%addr(stringvalW):%Len(%Trim(stringvalW)));
> >
> > The output in the IFS file reads as follows:
> > LINE1 LINE2
> >
> > I can't seem to figure out what I'm doing wrong. Any ideas? Would I be
> > better off using O_TEXTDATA in place of O_CODEPAGE if I was dealing with
> > a text file/HTML file? 
> >
> > Thanks,
> > Griz