D QDCXLATE        PR                  ExtPgm('QDCXLATE')
     D pnLen                          5P 0 CONST
     D paData                     32766A   OPTIONS(*VARSIZE)
     D paTable                       10A   CONST

     D gethostbyname   PR              *   EXTPROC('gethostbyname')
     D hostname                        *   VALUE OPTIONS(*STRING)

      * Get numeric internet address from x.x.x.x
     D inet_addr       PR            10U 0 EXTPROC('inet_addr')
     D paAddress                       *   VALUE OPTIONS(*STRING)

     D cnINADDR_NONE   C                   CONST(4294967295)

      * Create a socket
     D socket          PR            10I 0 EXTPROC('socket')
     D pnAddrFamily                  10I 0 VALUE
     D pnType                        10I 0 VALUE
     D pnProtocol                    10I 0 VALUE

     D cnAF_INET       C                   CONST(2)
     D cnSOCK_STREAM   C                   CONST(1)
     D cnIPPROTO_IP    C                   CONST(0)

     D connect         PR            10I 0 EXTPROC('connect')
     D pnSocket                      10I 0 VALUE
     D ppIpAddress                     *   VALUE
     D pnAddrLen                     10I 0 VALUE

     D getsockname     PR            10I 0 EXTPROC('getsockname')
     D pnSocket                      10I 0 VALUE
     D ppIpAddress                     *   VALUE
     D pnAddrLen                       *   VALUE

     D recv            PR            10I 0 EXTPROC('recv')
     D pnSocket                      10I 0 VALUE
     D ppBuf                           *   VALUE
     D pnBufLen                      10I 0 VALUE
     D pnFlags                       10I 0 VALUE

     D send            PR            10I 0 EXTPROC('send')
     D pnSocket                      10I 0 VALUE
     D ppBuf                           *   VALUE
     D pnBufLen                      10I 0 VALUE
     D pnFlags                       10I 0 VALUE

     D closeSocket     PR            10I 0 EXTPROC('close')
     D pnSocket                      10I 0 VALUE

     D sndStr          PR            10I 0
     D pnSocket                      10I 0 VALUE
     D paString                   30000A   VALUE