× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Hello Denis,

You wrote:
>When I look at the hex value in the files on the Ontario machine, I
>have X'4A' for the braket as we should expect. When I do a CA transfer,
>if I do not instruc CA to translate from CCSID 65535 and have the result
>sent to the display, I get the Hex value sent (40 for blank space ...)
>So if I look where X'4A' should be, I find X'B0'!!! so there is some
>translation going on.

This makes no sense at all.  If you have a X'4A' code point and it is
displayed as a left-square-bracket then you are using CP500 (given the
information we know so far) to view the data.  However, you said the
Ontario machine was 697-37 in which case the left-square-bracket is x'BA'.
x'4A' is a CP37 'cent' sign which explains why you see a 'cent' sign when
you transfer that file to the PC.  EBCDIC 'cent' in CP37 is x'4A' and is
converted to ASCII 'cent' sign in CP1252 as x'A2'.

X'4A' is a CP500 left-square-bracket.

X'B0' is a CP500 'cent' sign.  It is also a CP37 'caret' which often gets
mistranslated as a 'cent' sign in ASCII.

What are LANGID, CCSID, DEFAULT JOB CCSID of the job you use when viewing
the data on the Ontario system?  What is the CCSID of the file/field.

If you want get to the bottom of this send me the following information:

Codepage (and OS) of the target PC
QLANGID of both AS/400 systems
DSPFD and DSPFFD of the file from both AS/400 systems
CPYF of 1 record from both systems (the same record) containing the 'bad'
characters with OUTPUT(*PRINT) OUTFMT(*HEX)
Hex dump of the same record after transferring to the PC (both downloads)
DSPJOBD OUTPUT(*PRINT) of the job description used by the job that creates
the data.
Tell me on what system the data is created
Tell me how you get the file from Ontario AS/400 to Quebec AS/400

Regards,
Simon Coulter.
--------------------------------------------------------------------
   FlyByNight Software         AS/400 Technical Specialists
   http://www.flybynight.com.au/

   Phone: +61 3 9419 0175   Mobile: +61 0411 091 400        /"\
   Fax:   +61 3 9419 0175   mailto: shc@flybynight.com.au   \ /
                                                             X
                 ASCII Ribbon campaign against HTML E-Mail  / \
--------------------------------------------------------------------



As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.