Qshell Interpreter (qsh) - FTP Directory Listing - IBM

128 Qshell Interpreter (qsh)
int c; /* Option letter */
int nflag=0; /* True when -n option is specified */
int port=QSH_PORT; /* Port to connect to on server */
int sd; /* Socket to server */
fd_set read_set; /* For select() */
int rc; /* Return code */
struct sockaddr_in svr_addr; /* AF_INET socket address */
long ip_addr; /* IP address of server system */
struct in_addr host_addr; /* Host address for gethostbyaddr() */
char *hostname; /* Short host name of server system */
size_t len; /* Length of input string */
char *ascii_user; /* Username in ASCII */
char *ebcdic_user; /* Username in EBCDIC */
char *ascii_pwd; /* Password in ASCII */
char *ebcdic_pwd; /* Password in EBCDIC */
struct hostent *host_p; /* Pointer to hostent structure returned by
gethostbyname() */
char *ascii_buf; /* Buffer for ASCII text */
char *ebcdic_buf; /* Buffer for EBCDIC text */
int buf_size; /* Amount of data read from server */
/********************************************************************/
/* Initialization. */
/********************************************************************/
#ifdef USE_ICONV
/* Open the conversion descriptors for converting between ASCII and
EBCDIC. We'll assume the server job on the AS/400 is running in
CCSID 37. This must be changed if the server job is running in a
different CCSID. The input parameters to iconv_open() may need to
be changed depending on the operating system. This ioonv_open() is
coded for AIX. */
if ((acd = iconv_open(“IBM-850”, “IBM-037”))