#include <stdio.h>
#include <ctype.h>
#include <atmi.h>/* TUXEDO Header File */
#include <userlog.h>/* TUXEDO Header File */

tpsvrinit(int argc, char *argv[])
#else
tpsvrinit(argc, argv)
int argc;
char **argv;
#endif
{
      /* Some compilers warn if argc and argv aren't used. */
      argc = argc;
      argv = argv;
      /* userlog writes tothecentral TUXEDO message log */
      userlog("Welcome to the simple server");
      return(0);
}
#ifdef __cplusplus
extern "C"
#endif
void
#if defined(__STDC__) defined(__cplusplus)
TOUPPER(TPSVCINFO *rqst)
#else
TOUPPER(rqst)
TPSVCINFO *rqst;
#endif
{
      int i;
      for(i = 0; i < rqst->len-1; i++)
      rqst->data[i] = toupper(rqst->data[i]);
      /* Return the transformed buffer to the requestor. */
      tpreturn(TPSUCCESS, 0, rqst->data, 0L, 0);
}

#include <stdio.h>
#include "atmi.h"/* TUXEDOHeader File */
#if defined(__STDC__) defined(__cplusplus)
main(int argc, char *argv[])
#else
main(argc, argv)
int argc;
char *argv[];
#endif
{
      char *sendbuf, *rcvbuf;
      long sendlen, rcvlen;
      int ret;
      if(argc != 2) {
            (void) fprintf(stderr, "Usage: simpcl stringn");
            exit(1);
      }
      /* Attach to System/T as a Client Process */
      if (tpinit((TPINIT *) NULL) == -1) {
            (void) fprintf(stderr, "Tpinit failedn");
            exit(1);
      }
      sendlen = strlen(argv[1]);
      if((sendbuf = (char *) tpalloc("STRING", NULL, sendlen+1)) == NULL) {
            (void) fprintf(stderr,"Error allocating send buffern");
            tpterm();
            exit(1);
      }
      if((rcvbuf = (char *) tpalloc("STRING", NULL, sendlen+1)) == NULL) {
            (void) fprintf(stderr,"Error allocating receive buffern");
            tpfree(sendbuf);
            tpterm();
            exit(1);
      }
      (void) strcpy(sendbuf, argv[1]);
      /* Request the service TOUPPER, waiting for a reply */
      ret = tpcall("TOUPPER", (char *)sendbuf, 0, (char **)&rcvbuf, &rcvlen, (long)0);
      if(ret == -1) {
            (void) fprintf(stderr, "Can't send request to service TOUPPERn");
            (void) fprintf(stderr, "Tperrno = %dn", tperrno);
            tpfree(sendbuf);
            tpfree(rcvbuf);
            tpterm();
            exit(1);
      }
      (void) fprintf(stdout, "Returned string is: %sn", rcvbuf);
      /* Free Buffers & Detach from System/T */
      tpfree(sendbuf);
      tpfree(rcvbuf);
      tpterm();
      return(0);
}

*RESOURCES
IPCKEY123456
#Example:
#IPCKEY123456
DOMAINIDsimpapp
MASTERsimple
MAXACCESSERS10
MAXSERVERS5
MAXSERVICES10
MODELSHM
*MACHINES
DEFAULT:
APPDIR="D:tuxedo71samplesatmisimpapp"
TUXCONFIG="D:tuxedo71samplesatmisimpapptuxconfig"
TUXDIR="D:tuxedo71"
DUZRLMID=simple
*GROUPS
GROUP1
LMID=simpleGRPNO=1OPENINFO=NONE
*SERVERS
DEFAULT:
CLOPT="-A"
simpservSRVGRP=GROUP1 SRVID=1
*SERVICES
TOUPPER

Set TUXDIR=D:tuxedo71
Set WSNADDR=127.0.0.1:4444
Set APPDIR=D:tuxedo71samplesatmisimpapp
Set PATH=%TUXDIR%bin;%APPDIR%;%PATH%
Set TUXCONFIG=%APPDIR%tuxconfig
Set PATH=D:tuxedo71bin;
C:Program FilesMicrosoft Visual StudioVC98Include;
C:Program FilesMicrosoft Visual StudioVC98bin;
C:Program FilesMicrosoft Visual StudioCommonMSDev98Bin
（以上是配置Tuxedo使用VC的编译器）

D:tuxedo71samplesatmisimpapp>tmloadcf ubbsimple
Really overwrite TUXCONFIG file: D:tuxedo71samplesatmisimpapptuxconfig [y,
q] ? y

D:tuxedo71samplesatmisimpapp>buildclient -o simpcl.exe -f simpcl.c

Microsoft(R) 32-bit C/C++ Optimizing Compiler Version 12.00.8168 for 80x86
Copyright (C) Microsoft Corp 1984-1998. All rights reserved.
simpcl.c
Microsoft (R) Incremental Linker Version 6.00.8168
Copyright (C) Microsoft Corp 1992-1998. All rights reserved.
/out:simpcl.exe
-implib:BC-628.lib
simpcl.obj
d:tuxedo71liblibtux.lib
d:tuxedo71liblibbuft.lib
d:tuxedo71liblibfml.lib
d:tuxedo71liblibfml32.lib
d:tuxedo71liblibengine.lib
wsock32.lib
kernel32.lib
advapi32.lib
user32.lib
gdi32.lib
comdlg32.lib
winspool.lib

D:tuxedo71samplesatmisimpapp>buildserver -o simpserv.exe -f simpserv.c -s TOUPPER