RE: Socket Programming - HL7 Data to Win2k server

[GKern@xxxxxxxxxxxxxxxx]

Jeff, here is the prototype I use to do the ASCII/EBCDIC translations:

 * EBCDIC to ASCII Translator 
D Translate       Pr                  Extpgm('QDCXLATE') 
D Length                         5P 0 Const 
D Data                       32766A   Options(*varsize) 
D Table                         10A   Const 

And here is the code: 

C                   CallP     Translate( %Len(SocketData) 
C                              :Xlate_Data:'QASCII') 

I 'prefix' the start block at the beginning of Xlate_Data, then the actual 
data followed by the carriage return and line feed. Then it gets sent 
through the translator. Then it is sent as such.

Chris:

I am building my message to send as a variable length field (in EBCDIC) 
which is then translated to ASCII and then sent. I'm of the impression 
that the SD/CR/LF will all have to be in ASCII went sent as this is what 
the WIN2K server is looking for.


Regards,

Gerald Kern