Re: Sockets program adding characters?

Hi Charles,

Your recvAscii() routine receives a chunk of data. Converts it to EBCDIC, and then sends the EBCDIC data back to the server! Why is it doing the send()? Is the server expecting all of it's data echoed back in EBCDIC? This doesn't make any sense to me.


On 3/2/2011 8:52 AM, Versfelt, Charles wrote:

Hi,

Thanks for the earlier help on my Sockets program. I have now successfully made it through a connect() and sent their CONNECT API command in Ascii, received (and converted back to Ebcdic) the OK reply from their server.

Now I'm attempting to send another API (their RATE API) and I'm not getting a valid reply. The debug log on the server seems to show characters getting appended to the beginning my request. I'm also getting an error that the response is truncated, but right now I'm not getting any valid response because of those appended characters. (A third error having to do with the timezone I'm assuming isn't a problem to be concerned about.)

I'm using a procedure called SendAscii (from one of the sample programs) and RecvAscii (I created that one).
SendAscii converts to Ascii and Sends. RecvAscii recieves Ascii data and converts to Ebcdic.
The code for these is below.

I call the procedure as follows, where s = my socket and ReqData = the data for my API.

SendAscii(s: %trimr(ReqData));

The data for the API is this, and was contained in variable ReqData

0000000151RATE|CARRIER|PURL|SERVICE|AIR|AUDIT_USER|PCL|SFCUSTNUM|0001235000|PKGCNT|1|TERMS|S|S2COUNTRYID|CA|S2CITY|CALGARY|S2STATE|AB|S2PCODE|T2A7W6|WEIGHT|1.00|

The specific errors I'm questioning are these. Especially the weird characters in front of 0000000151RATE|

02/Mar/2011:09:17:15:609 -0500;4364;9;DICom.cpp;InOutProc;INFO;Server could not send data on the socket;Reponse was bigger than the message size used for request message. Truncated. Please try to use bigger message length protocol. Full response is getting logged..
02/Mar/2011:09:17:15:609 -0500;4364;9;DICom.cpp;InOutProc;INFO;Server could not send data on the socket;ERRCODE|001000011|ERRMSG|Validation of message failed : ðððððððððóÖÒO0000000151RATE|

In case it helps, below is a larger snippet of the debug log from the server. The 0000000003OK| is the reply back from the CONNECT API, sent using my SendAscii and reply received using RecvAscii.

02/Mar/2011:09:16:38:828 -0500;4364;0;DICom.cpp;InOutProc;INFO;Message Read;CONNECT|CLIENTTYPE|10|CLIENTID|E0007825019-1|
02/Mar/2011:09:16:38:843 -0500;4364;0;DICom.cpp;InOutProc;INFO;Reply Write;0000000003OK|
02/Mar/2011:09:17:15:593 -0500;4364;0;DICom.cpp;InOutProc;INFO;Length Of Incoming Message;
02/Mar/2011:09:17:15:593 -0500;4364;0;dcTimeZoneInfoWindows.cpp;getDCLocalTime;ERRO;TimeZone;Timezone information is not properly configured for DC# 0. Using server timezone as DC timezone.
02/Mar/2011:09:17:15:609 -0500;4364;0;dcTimeZoneInfoWindows.cpp;getDCLocalTime;ERRO;TimeZone;Timezone information is not properly configured for DC# 0. Using server timezone as DC timezone.
02/Mar/2011:09:17:15:609 -0500;4364;9;DICom.cpp;InOutProc;INFO;Server could not send data on the socket;Reponse was bigger than the message size used for request message. Truncated. Please try to use bigger message length protocol. Full response is getting logged..
02/Mar/2011:09:17:15:609 -0500;4364;9;DICom.cpp;InOutProc;INFO;Server could not send data on the socket;ERRCODE|001000011|ERRMSG|Validation of message failed : ðððððððððóÖÒO0000000151RATE|
02/Mar/2011:09:17:15:609 -0500;4364;0;DICom.cpp;InOutProc;INFO;Reply Write;0
02/Mar/2011:09:17:15:703 -0500;4364;0;DICom.cpp;InOutProc;INFO;Length Of Incoming Message;
02/Mar/2011:09:17:15:703 -0500;4364;0;dcTimeZoneInfoWindows.cpp;getDCLocalTime;ERRO;TimeZone;Timezone information is not properly configured for DC# 0. Using server timezone as DC timezone.
02/Mar/2011:09:17:15:718 -0500;4364;0;dcTimeZoneInfoWindows.cpp;getDCLocalTime;ERRO;TimeZone;Timezone information is not properly configured for DC# 0. Using server timezone as DC timezone.

Here's where I send the API:

s = @psock;
SendAscii(s: %trimr(ReqData));
if s<= 0;
@preturn = 'RATE002';
@prtnmsg = 'RATE Send Request Failed.';
joblog('RATE Request failed during send!');
return;
endif;

Here's SendAscii and RecvAscii:

*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
* This converts data to ASCII and then sends it.
*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

P SendAscii B

d SendAscii pi 10I 0
d sock 10I 0 value
d data 1024A value

d len s 10I 0
d RecLen s 10I 0

/free
joblog(data);
len = %len(%trimr(data));
Translate ( len: data: 'QTCPASC' );
return send(sock: %addr(data): len: 0 );
/end-free

*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
* This recieves data and converts from ASCII to EBCDIC.
*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
P RecvAscii B

d RecvAscii pi 10I 0
d sock 10I 0 value
d data 1024A value

d RecLen s 10I 0
d RspBufAdr s *
d RspBufLen s 10I 0
D reply s 10I 0
D errornum s like(errno)

// and translate the ASCII to EBCDIC
// ---------------------------------------------------

// Recv() API parameters
// int - Socket descriptor
// char - address of the input buffer area
// int - buffer area length
// int - flags (not used here)

RspBufAdr = %addr(data);
RspBufLen = %size(data);
RecLen = recv(s: RspBufAdr : RspBufLen : 0);
errornum = errno;
If (RecLen< 1);
data = 'ERR: No Reply. ';
return -1;
Endif;

// Translate: QDCXLATE API parameters
// Length of data being converted Input Packed(5,0)
// Conversion data I/O Char(*)
// ASCII In, EBCDIC Out
// SBCS conversion table name Input Char(10)

Translate(RecLen : data : 'QTCPEBC' );
Monitor;
On-Error;
data = 'ERR: Trans Fail';
return -1;
EndMon;
Sockdata = Data;
return send(sock: %addr(data): RecLen: 0 );
/End-Free

P E