friedkiwi/ibm-information-center
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
8826eae394
ibm-information-center/dist/eclipse/plugins/i5OS.ic.rzahp_5.4.0.1/rzahpexpertclient.htm

359 lines
13 KiB
HTML
Raw Blame History

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE html
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html lang="en-us" xml:lang="en-us">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta name="security" content="public" />
<meta name="Robots" content="index,follow" />
<meta http-equiv="PICS-Label" content='(PICS-1.1 "http://www.icra.org/ratingsv02.html" l gen true r (cz 1 lz 1 nz 1 oz 1 vz 1) "http://www.rsac.org/ratingsv01.html" l gen true r (n 0 s 0 v 0 l 0) "http://www.classify.org/safesurf/" l gen true r (SS~~000 1))' />
<meta name="DC.Type" content="reference" />
<meta name="DC.Title" content="Example: TI-RPC expert-level client API" />
<meta name="abstract" content="This code example illustrates an expert-level client API that is used in developing TI-RPC applications." />
<meta name="description" content="This code example illustrates an expert-level client API that is used in developing TI-RPC applications." />
<meta name="DC.Relation" scheme="URI" content="rzahpclientcode.htm" />
<meta name="copyright" content="(C) Copyright IBM Corporation 1998, 2006" />
<meta name="DC.Rights.Owner" content="(C) Copyright IBM Corporation 1998, 2006" />
<meta name="DC.Format" content="XHTML" />
<meta name="DC.Identifier" content="rzahpexpertclient" />
<meta name="DC.Language" content="en-us" />
<!-- All rights reserved. Licensed Materials Property of IBM -->
<!-- US Government Users Restricted Rights -->
<!-- Use, duplication or disclosure restricted by -->
<!-- GSA ADP Schedule Contract with IBM Corp. -->
<link rel="stylesheet" type="text/css" href="./ibmdita.css" />
<link rel="stylesheet" type="text/css" href="./ic.css" />
<title>Example: TI-RPC expert-level client API</title>
</head>
<body id="rzahpexpertclient"><a name="rzahpexpertclient"><!-- --></a>
<!-- Java sync-link --><script language="Javascript" src="../rzahg/synch.js" type="text/javascript"></script>
<h1 class="topictitle1">Example: TI-RPC expert-level client API</h1>
<div><p>This code example illustrates an expert-level client API that is
used in developing TI-RPC applications.</p>
<div class="section"><p>The expert level for the development of a client API is the most
complicated. It also offers the most customization. This is the only level
where the buffer size can be tuned for the client API. This level requires
the programmer to set up the universal address for the client to connect to,
either by using the name-to-address translation APIs or one of the other expert-level
APIs. Either way, this level requires more work, but it allows the programmer
to tailor the client application to the environment it runs in.</p>
<div class="note"><span class="notetitle">Note:</span> By
using the code example, you agree to the terms of the <a href="codedisclaimer.htm">Code license and disclaimer information</a>.</div>
<pre>#include &lt;stdio.h&gt;
#include &lt;netconfig.h&gt;
#include &lt;netdir.h&gt;
#include &lt;errno.h&gt;
#include "myapp.h"
#define EXIT 100
int main(void) {
enum clnt_stat rslt; /* return value of clnt_call() */
char hostname[256]; /* buffer for remote service's hostname */
unsigned long procnum; /* procedure to call */
char filename[512]; /* buffer for filename */
xdrproc_t xdr_argument; /* xdr procedure to encode arguments */
xdrproc_t xdr_result; /* xdr procedure to decode results */
CLIENT *clnt; /* pointer to client handle */
struct timeval tout; /* timeout for clnt_call() */
struct netconfig *nconf;/* transport information */
struct netbuf svcaddr; /* universal address of remote service */
bool_t rpcb_rslt; /* return value for rpcb_getaddr() */
char *arg = filename; /* pointer to filename buffer */
union {
u_int myapp_get_uid_result;
char * myapp_get_uid_string_result;
int myapp_get_size_result;
long myapp_get_mtime_result;
char * myapp_get_mtime_string_result;
u_short myapp_get_codepage_result;
char * myapp_get_objtype_result;
char * myapp_get_filetype_result;
} result; /* a union of all the possible results */
/* initialize the struct netbuf space */
svcaddr.maxlen = 16;
svcaddr.buf = (char *)malloc(svcaddr.maxlen);
if (svcaddr.buf == (char *)NULL) {
/* if malloc() failed, print error messages and exit */
fprintf(stderr, "Error calling malloc() for struct netbuf\n");
fprintf(stderr, "errno: %d\n", errno);
return 1;
}
tout.tv_sec = 30; /* set default timeout to 30.00 seconds */
tout.tv_usec = 0;
/* get the hostname from the user */
printf("Enter the hostname where the remote service is running: \n");
scanf("%s", (char *)&amp;hostname);
myapp_print_menu(); /* print out the menu choices */
/* get the procedure number to call from the user */
printf("\nEnter a procedure number to call: \n");
scanf("%lu", &amp;procnum);
/* get the filename from the user */
printf("\nEnter a filename to stat: \n");
scanf("%s", (char *)&amp;filename);
/* getnetconfigent(nettype) */
nconf = getnetconfigent(NETTYPE);
/* check to make sure getnetconfigent() didn't fail */
if (nconf == NULL) {
/* if getnetconfigent() failed, print error messages and exit */
fprintf(stderr, "Error calling getnetconfigent(%s)\n", NETTYPE);
fprintf(stderr, "errno: %d\n", errno);
return 1;
}
/* rpcb_getaddr(prognum, versnum, nconf, output netbuf, hostname) */
/* this sets the universal address svcaddr */
rpcb_rslt = rpcb_getaddr(PROGNUM, VERSNUM, nconf, &amp;svcaddr, hostname);
/* check to make sure rpcb_getaddr() didn't fail */
if (rpcb_rslt == FALSE) {
/* if rpcb_getaddr() failed, print error messages and exit */
fprintf(stderr, "Error calling rpcb_getaddr()\n");
fprintf(stderr, "PROG: %lu\tVERS: %lu\tNET: %s\n",
PROGNUM, VERSNUM, NETTYPE);
fprintf(stderr, "clnt_stat: %d\n", rpc_createerr.cf_stat);
fprintf(stderr, "errno: %d\n", errno);
fprintf(stderr, "re_errno: %d\n", rpc_createerr.cf_error.re_errno);
return 1;
}
/* clnt_tli_create(filedes, netconfig, netbuf, */
/* prognum, versnum, sendsz, recvsz); */
clnt = clnt_tli_create(RPC_ANYFD, nconf, &amp;svcaddr,
PROGNUM, VERSNUM, 0, 0);
/* check to make sure clnt_tli_create() didn't fail */
if (clnt == (CLIENT *)NULL) {
/* if we failed, print out all appropriate error messages and exit */
fprintf(stderr, "Error calling clnt_tli_create()\n");
fprintf(stderr, "PROG: %lu\tVERS: %lu\tNET: %s\n",
PROGNUM, VERSNUM, NETTYPE);
fprintf(stderr, "clnt_stat: %d\n", rpc_createerr.cf_stat);
fprintf(stderr, "errno: %d\n", errno);
fprintf(stderr, "re_errno: %d\n", rpc_createerr.cf_error.re_errno);
return 1;
}
/* switch on the input */
switch (procnum) {
case NULLPROC:
/* set the encode procedure */
xdr_argument = (xdrproc_t)xdr_void;
/* set the decode procedure */
xdr_result = (xdrproc_t)xdr_void;
break;
case GET_UID:
/* set the encode procedure */
xdr_argument = xdr_wrapstring;
/* set the decode procedure */
xdr_result = xdr_u_int;
break;
case GET_UID_STRING:
/* set the encode procedure */
xdr_argument = xdr_wrapstring;
/* set the decode procedure */
xdr_result = xdr_wrapstring;
break;
case GET_SIZE:
/* set the encode procedure */
xdr_argument = xdr_wrapstring;
/* set the decode procedure */
xdr_result = xdr_int;
break;
case GET_MTIME:
/* set the encode procedure */
xdr_argument = xdr_wrapstring;
/* set the decode procedure */
xdr_result = xdr_long;
break;
case GET_MTIME_STRING:
/* set the encode procedure */
xdr_argument = xdr_wrapstring;
/* set the decode procedure */
xdr_result = xdr_wrapstring;
break;
case GET_CODEPAGE:
/* set the encode procedure */
xdr_argument = xdr_wrapstring;
/* set the decode procedure */
xdr_result = xdr_u_short;
break;
case GET_OBJTYPE:
/* set the encode procedure */
xdr_argument = xdr_wrapstring;
/* set the decode procedure */
xdr_result = xdr_wrapstring;
break;
case GET_FILETYPE:
/* set the encode procedure */
xdr_argument = xdr_wrapstring;
/* set the decode procedure */
xdr_result = xdr_wrapstring;
break;
case END_SERVER:
/* set the encode procedure */
xdr_argument = (xdrproc_t)xdr_void;
/* set the decode procedure */
xdr_result = (xdrproc_t)xdr_void;
break;
case EXIT:
/* we're done. clean up and exit */
clnt_destroy(clnt);
return 1;
break;
default:
/* invalid procedure number entered. defaulting to NULLPROC */
printf("Invalid choice. Issuing NULLRPOC instead.\n");
procnum = NULLPROC;
/* set the encode procedure */
xdr_argument = (xdrproc_t)xdr_void;
/* set the decode procedure */
xdr_result = (xdrproc_t)xdr_void;
break;
} /* end of switch(procnum) */
/* clnt_call(client, procnum, xdr_inproc, in, xdr_outproc, out, timeout) */
rslt = clnt_call(clnt, procnum, xdr_argument, (char *)&amp;arg,
xdr_result, (char *)&amp;result, tout);
/* check to make sure clnt_call() succeeded */
if (rslt != RPC_SUCCESS) {
/* if clnt_call() failed, print errors and exit */
printf("An error occurred calling %lu procedure\n", procnum);
printf("clnt_stat: %d\terrno: %d\n", rslt, errno);
clnt_destroy(clnt);
return 1;
}
/* clnt_call() succeeded. switch on procedure and print results */
switch (procnum) {
case NULLPROC:
/* print results and exit */
printf("NULLRPOC call succeeded\n");
break;
case GET_UID:
/* print results and exit */
printf("uid of %s: %u\n",
filename, result.myapp_get_uid_result);
break;
case GET_UID_STRING:
/* print results and exit */
printf("owner of %s: %s\n",
filename, result.myapp_get_uid_string_result);
break;
case GET_SIZE:
/* print results and exit */
printf("size of %s: %d\n",
filename, result.myapp_get_size_result);
break;
case GET_MTIME:
/* print results and exit */
printf("last modified time of %s: %ld\n",
filename, result.myapp_get_mtime_result);
break;
case GET_MTIME_STRING:
/* print results and exit */
printf("last modified time of %s: %s\n",
filename, result.myapp_get_mtime_string_result);
break;
case GET_CODEPAGE:
/* print results and exit */
printf("codepage of %s: %d\n",
filename, result.myapp_get_codepage_result);
break;
case GET_OBJTYPE:
/* print results and exit */
printf("object type of %s: %s\n",
filename, result.myapp_get_objtype_result);
break;
case GET_FILETYPE:
/* print results and exit */
printf("file type of %s: %s\n",
filename, result.myapp_get_filetype_result);
break;
case END_SERVER:
/* print results and exit */
printf("Service has been unregistered.\n");
printf("You must still kill the job in QBATCH\n");
break;
default:
/* we should never get the default case. */
/* the previous switch should catch it. */
break;
} /* end of switch(procnum) */
/* clean up and exit */
/* free the netconfig struct */
freenetconfigent(nconf);
/* free the universal address buffer */
free(svcaddr.buf);
/* destroy the client handle */
clnt_destroy(clnt);
return 0;
}
void myapp_print_menu(void) {
/* print out the procedure choices */
printf("%.2ld - GET_UID %.2ld - GET_UID_STRING\n",
GET_UID, GET_UID_STRING);
printf("%.2ld - GET_SIZE %.2ld - GET_MTIME\n",
GET_SIZE, GET_MTIME);
printf("%.2ld - GET_MTIME_STRING %.2ld - GET_CODEPAGE\n",
GET_MTIME_STRING, GET_CODEPAGE);
printf("%.2ld - GET_OBJTYPE %.2ld - GET_FILETYPE\n",
GET_OBJTYPE, GET_FILETYPE);
printf("%.2ld - END_SERVER %.2d - EXIT\n",
END_SERVER, EXIT);
}</pre>
</div>
</div>
<div>
<div class="familylinks">
<div class="parentlink"><strong>Parent topic:</strong> <a href="rzahpclientcode.htm" title="Transport independent remote procedure call (TI-RPC) programming provides an effective method for developing distributed client-server based applications on i5/OS.">Develop client applications based on TI-RPC code examples</a></div>
</div>
</div>
</body>
</html>
Reference in New Issue View Git Blame Copy Permalink