Re: RPGLE writing to IFS text file unusual translation of single character -- RPG400-L

x'3F' - someone has updated this description for the record involved (the
example ebcdic is data as of today, while ascii was 2 weeks ago), but I
found another record with same issue.

We get input through web interface, or transmission from other sources,
and they are supposed to strip all the hidden characters out -

Thank you!

Jim Franz

On Wed, May 6, 2015 at 4:58 PM, Henrik Rützou <hr@xxxxxxxxxxxx> wrote:

You should see in the EBCDIC field - if the ascii is x'1A' it should be
x'3F' (a 5250 nondisplay attribute)

On Wed, May 6, 2015 at 10:51 PM, Jim Franz <franz9000@xxxxxxxxx> wrote:

To expand upon this, we have a regulatory requirement to submit the data

as

input (unaltered), so it is not an option to strip out or remove
characters. For that reason the specs call for the <![CDATA[ data
]]> surrounding such data.
Jim

On Wed, May 6, 2015 at 4:38 PM, Jim Franz <franz9000@xxxxxxxxx> wrote:

The edi partner asked for <![CDATA[ data ]]> for any text strings with
unusual characters.
Jim

On Wed, May 6, 2015 at 4:07 PM, Henrik Rützou <hr@xxxxxxxxxxxx> wrote:

Do you encode the special entities in your XML a apos/quot is not

allowed

in
XML data

On Wed, May 6, 2015 at 9:37 PM, Jim Franz <franz9000@xxxxxxxxx>

wrote:

I have a program running for years using writeline, writing an xml

file,

and within 1.4 million writes, a single instance of a single quote

(ebcdic

hex 7D)
did not translate to ascii correctly. I've used this process for

years

in

writing edi files without having this issue. This is V7R1. We send

this

file every day, always building a new uniquely named file.

This worked (wrklnk display, ascii hex and the single quote in ascii

is

27

454D504C 4F594545 275320 EMPLOYEE'S

this is ebcdic from file
C5D4D7D3 D6E8C5C5 7DE240C1 D9D440 EMPLOYEE'S

from same file, same column of data

This did not and single quote is now ascii 1A (which blew the

trading

partner's process..)
20534149 44205348 45204449 444E1A54 20464545 SAID SHE DIDN T FEE

this is the ebcdic where single quote is 7D
40E2C1C9 C440E2C8 C540C4C9 C4D57DE3 40C6C5C5 D340E6C5

text file is CCSID 819

This writes the one record (it's based on an old set of code, but it

has

always worked)
eval @vdata = %trim(CLCMLN)
exsr $valid
eval @dtext=indent2+'<IncidentDesc>' +
%trim(@vdata) +
'</IncidentDesc>'
eval @len = %len(%trimr(@dtext))
callp writeline(fd: %addr(@dtext):@len)

DSPFFD of column

Field Type Length Length Position Usage
Heading
CLCMLN CHAR 150 150 324 Both CAUSE

xxx

Field text . . . . . . . . . . . . . . . : CAUSE OF
INJURY
Referenced
information
Referenced file . . . . . . . . . . . . : SREF
Library . . . . . . . . . . . . . . . : MMOD
Referenced record format . . . . . . . : CSREF
Referenced field . . . . . . . . . . . :
CMLN
Attributes changed . . . . . . . . . . :
Other
Coded Character Set Identifier . . . . . : 37

Text File create

Create a new file, and assign it a code page of 819:
Create this file with "all" permissions *RWX per BTS requirements
eval fd = open(%trim(filename):
O_CREAT+O_WRONLY+O_CODEPAGE:
S_IRWXO+S_IRWXU+S_IRWXG:
819)
if fd < 0
callp die('open(): ' + %str(strerror(errno)))
eval @errflag='Y'
endif
callp close(fd)

Now re-open the file in text mode. Since it was assigned a
code page of 819, and we're opening it in text mode, OS/400
will automatically translate to/from ASCII for us.
eval fd = open(%trim(filename):
O_WRONLY+O_TEXTDATA)

Have I missed something obvious?

Jim Franz
--
This is the RPG programming on the IBM i (AS/400 and 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.

--
Regards,
Henrik Rützou

http://powerEXT.com <http://powerext.com/>
--
This is the RPG programming on the IBM i (AS/400 and 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 IBM i (AS/400 and 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.

--
Regards,
Henrik Rützou

http://powerEXT.com <http://powerext.com/>
--
This is the RPG programming on the IBM i (AS/400 and 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.