Re: Interesting results when writing to an IFS file

Pete,

I think you need to close the file after creating it then open it again
for output something like this:

fd = open('/ads2datanfs/ads001.txt':
O_CREAT+O_WRONLY+O_CODEPAGE+O_APPEND:
S_IWUSR+S_IRUSR+S_IRGRP+S_IROTH:
437);
callp close(fd);
fd = open('/ads2datanfs/ads001.txt':
O_WRONLY+O_TEXTDATA+O_APPEND);


-----Original Message-----
From: Pete Helgren [mailto:pete@xxxxxxxxxx]
Sent: Wednesday, April 13, 2011 3:28 PM
To: RPG programming on the IBM i / System i
Subject: Re: Interesting results when writing to an IFS file

Just to give a bigger picture:

I am using the following D specs to set the values:

D q S 1A Varying
D Inz('"')
D c S 1A Varying
D Inz(',')
D sc S 3A Varying
D Inz('":"')
D lb S 1A Varying
D Inz('{')
D rb S 1A Varying
D Inz('}')
D lc S 1A Varying
D Inz(' ')


The file is opened with the following (snippet):

c eval fd = open('/tmp/' + %trim(INFile) :
c O_CREAT+O_TRUNC+O_CODEPAGE+O_WRONLY:
c S_IRWXU+S_IRWXG+S_IROTH: 819)

A variable called line is then concatenated with the values:

Line = lc + lb + q + 'msgtxt' + sc + msgtxt + q + c +
q + 'msgid' + sc + RCVM0200.MsgID + q + c +
q + 'jobName' + sc + RCVM0200.SndJobNam + q + c +
q + 'jobUser' + sc + RCVM0200.SndJobUsr + q + c +
q + 'jobNumber' + sc + RCVM0200.SndJobNbr + q + rb ;

And the written to the file:

len = %len(%trimr(line));
callp write(fd: %addr(line): len);


but the "} and ": character sequences end up with unexpected values in
the string.

Using the hex constants for the curly braces made no difference in the
output.

Pete Helgren
Value Added Software, Inc
www.asaap.com
www.opensource4i.com


On 4/13/2011 1:56 PM, Pete Helgren wrote:

Same result. I don't think it is an artifact of edtf because if I map
the folder in Windows and view the file, I see the "weird" characters

as

well in wordpad.

Looks like ": also formats to a strange character as well ('s w').

Pete Helgren
Value Added Software, Inc
www.asaap.com
www.opensource4i.com


On 4/13/2011 1:22 PM, Luis Rodriguez wrote:

Pete,

Check out this nice EBCDIC reference page:

http://www.rpgworld.com/rpg-world/showascii

<http://www.rpgworld.com/rpg-world/showascii>Regards,

Luis Rodriguez
IBM Certified Systems Expert - eServer i5 iSeries
--



On Wed, Apr 13, 2011 at 2:49 PM, Luis Rodriguez<luisro58@xxxxxxxxx>

wrote:

Pete,

It seems a character mapping error.... What happens if you use the

hex

value for the curly braces (e.g. } = x'D0' ) ?

HTH,
Luis Rodriguez
IBM Certified Systems Expert - eServer i5 iSeries
--

--
This is the RPG programming on the IBM i / System i (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 IBM i / System i (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.