RPG Calliing Sockets API

A co-worker of mine is using some of Scott Klements programs to learn to use
Sockets APIs.

She is working on a program that is based on CLIENTEX1. I beleive she
changed
it to use procedures, and added a display screen.

On screen she has a service field and a host name as well as a command line
and
a response field. When she enters 25 in the service and Bypass (our server
name)
in the host, she receives a response back.

She then enters 'HELO'  in the command field and presses enter. The program
goes into a loop that executes

rc = recv(sock: %addr(ch): 1: 0)

The first 3 times it receives back non-displayable characters and the 4th
time it hangs while on recv

She is translating from EBCIC to ASCII just before calling recv, and back
from
ASCII back to EBCDIC just before displaying the green screen.


She also was trying to key commands to talk to a couple devices we have on
the network that required an escape character, and a Carriage Return. When
she
typed those commands, nothing happened.

We are posting the source for it and wondering in Scott or anyone else
familiar
with the api would mind taking a look to see a problem jumps out at them.

Thank you much in advance for any help you can provide.