Re: OSG and (DataLink NT) CSMS communication from iSeries?

["Alan G. Campin" <agc@xxxxxxxxxxxxxxxxxxxx>]

If that is all there is, that is not much. 

I have used 2 and 4 byte headers before and they are very nice. But like
they say, the only trick is that you need to convert from the Network
byte order to the Host byte order.
 
"C" function ntohl converts from a long integer in network byte order to
host byte order (The AS/400). My StdIntUns is standard integer 4 bytes
long unsigned.  

d ConvertLongToHostAPI...
d                      pr               ExtProc('ntohl')
d                                       Like(StdIntUns)
d   PR_IntegerInNetworkOrder...
d                                       Like(StdIntIns)
 /Free

  // Read in 4 bytes as integer. Then convert to host order and read
number of bytes from header. 
  CharactersRead = ReadAPI(Handle, %Addr(NetworkInteger), 4);
  
  HostInteger = ConvertLongToHostAPI(NetworkInteger); 
  
  CharactersRead = ReadAPI(Handle, %Addr(Buffer), HostInteger);

 /End-Free

No guarantee on any of this code. Just doing from top of my head. 

Htonl takes it back the other way. 

I hope I am answering your question. 

------------------------------------------------------------------------
------------------------
> >  From the documentation I have derived that OSG has certain specifics
in the 
> > data sent (First Four Bytes depicts the length of the data
send/recieved in 
> > 'network integer format') that are less common in normal Socket
communication 
> > and that perhaps require special conversion.