Re: Code convert ascii to EBCDIC

Question

At 09:06 PM 8/13/97 +0900, Isao Yamada wrote:
I am trying conversion ascii-to-EBCDIC conversion.You didn't mention the platform, but if it is Unix, I would just pipe the
input through the dd command. Even if this is a Win32 platform, I would
consider buying the Win95 toolkit from Ready-to-Run and using the dd
command in it.
=========================================================================
Thomas Mercer Hursh, Ph.D email: [email protected]
Computing Integrity, Inc. sales: 510-233-9329
550 Casey Drive - Cypress Point support: 510-233-9327
Point Richmond, CA 94801-3751 fax: [phone]

Answer 1

Isao,
You can convert arbitrary binary data
using MemoryStream, ReadBinary(), pointers
and casting to convert simple binary types to the
type you require. Here is a partial code fragment
from some binary communications code we wrote
to give you the idea. Although it looks like
'C' in places it really is valid TOOL code.
buf : MemoryStream = new;
theHeader : MemoryStream = new;
theData : MemoryStream = new ;
tempData : BinaryData = new ;
countBytes : integer = 0 ;
tempcountBytes : integer = 0 ;
ConnId : ui2 = 0 ;
magicNumber : ui4 = 0x5aa50ff0 ;
p : pointer = nil;
buf.Open(accessMode = SP_AM_READ_WRITE);
theHeader.Open(accessMode = SP_AM_READ_WRITE);
// Read the header
theHeader.Flush() ;
theHeader.Seek( position = SP_RP_START ) ;
countBytes = 0 ;
// Parse theHeader here
theHeader.Seek( position = SP_RP_START ) ;
theHeader.ReadBinary( target = tempData, length = 4 ) ;
p = (pointer)(tempData.Value) ;
PacketLength = *(pointer to ui4)(p) ;
theHeader.ReadBinary( target = tempData, length = 1 ) ;
p = (pointer)(tempData.Value) ;
PacketType = *(pointer to ui1)(p) ;
theHeader.ReadBinary( target = tempData, length = 2 ) ;
p = (pointer)(tempData.Value) ;
PacketSeqNo = *(pointer to ui2)(p) ;
theHeader.ReadBinary( target = tempData, length = 2 ) ;
p = (pointer)(tempData.Value) ;
ConnId = *(pointer to ui2)(p) ;
theHeader.ReadBinary( target = tempData, length = 4 ) ;
p = (pointer)(tempData.Value) ;
magicNumber = *(pointer to ui4)(p) ;
if( magicNumber != 0x5aa50ff0 ) then
buf.Close() ;
theHeader.Close() ;
return FALSE ;
end if ;
[email protected]
MIME-Version: 1.0
Content-type: text/plain; charset=iso-2022-jp
Hi! Everyday I read some useful tips from this mailing-list.
I am trying conversion ascii-to-EBCDIC conversion.
I want to read binary-file, because EBCDIC code data come by floppy-disk.
But I can't read this file into TextData object.
(TextData Class have method to access by byte.)
I know that I can read binary-data into BinaryData object.
if I can access BinaryData class by byte or read binarydata into textdata.
Does anyone have good idea for this question?
thanks.
T.C.F.Co.Ltd.
Isao Yamada([email protected])
Any views expressed in this message are those of the individual sender,
except where the sender specifically states them to be the views of
Reuters Ltd.