//#pragma runopts(posix(on))
#define _OE_SOCKETS
#define _OPEN_SYS_SOCK_EXT
#define _OPEN_THREADS
//#define _XOPEN_SOURCE 600
#define CLIENT "TCPECHO "
#define SERVER "TCPECHOS"
#define SERVER_PORT 1959
#define Blank(A) memset(&A, ' ', sizeof A)
#define Clear(A) memset(&A, '\0', sizeof A)
#define kINET "INET"
#define kIUCV "IUCV"
#define BUFFER_LEN 81
#define exit_if_error(FUNC,CODE) {                       \
           if (CODE < 0) {perror(#FUNC "() failed"); return(CODE); } }
#include <sys/socket.h>
#include <sys/types.h>
#include <netinet/in.h>
#include <arpa/inet.h>
#include <saiucv.h>
#include <netdb.h>
#include <string.h>
#include <stdlib.h>
#include <stdio.h>
#include <errno.h>
#include <pthread.h>
#include <vmcpro.h>
/* #include <vmsock.h> */