•  환경변수 등록
  - 서버 정보(ip, port) 등록
  - export WSNADDR=//190.190.154.95:42000

• 서비스 Makefile 구성
  ...
  ## APSERVER
  APSERVER        = bqry1
  
  ## Path
  TUXBUILDER  = $(TUXDIR)/bin/buildserver
  USERLIBDIR  = $(HOME)/lib
  ORALIBDIR   = $(ORACLE_HOME)/lib
  ID/PASS     = `$(HOME)/bin/dbconfig`
  
  ## 서비스 지정
  APSERVICE   = -s C0021Z -s C0021Y
  
  ## Objects
  APOBJS      = dbcon.o c0021z.o c0021y.o
  OBJS        = $(APOBJS)
  ...
  

• 서비스 작성
  - TMAX와 별다른 차이가 없다. 미들웨어 표준 존재 예상.

• 클라이언트 프로그램 예제
  /*---------------------------------------- ** This is a TUXEDO's Sample Program ** Description : TOUPPER's Client Program ** using STRING buffer **------------------------------------------*/ #include <stdio.h> #include <atmi.h> /* TUXEDO Header */ #define SNDBUF 1024 #define RCVBUF 1024 main(argc,argv) int argc; char *argv[]; { int n; long slen; long rlen; char *sndbuf; char *rcvbuf; /** 환경파일의 경로와 환경변수명을 임의로 지정할 수 있다. if(tuxreadenv("./tux.env", "WSNADDR") == -1) { printf("tuxreadenv error! [%s]\n",tpstrerror(tperrno)); exit(1); } ***/ /* 기본 환경변수로 서버정보를 읽어들임 WSNADDR */ if(tpinit((TPINIT *)NULL)==-1) { printf("tpinit error! [%s]\n",tpstrerror(tperrno)); exit(1); } if((sndbuf = tpalloc("CARRAY", NULL, SNDBUF)) == NULL) { printf("snbuf tpalloc error! [%s]\n",tpstrerror(tperrno)); tpterm(); exit(1); } if((rcvbuf = tpalloc("CARRAY", NULL, RCVBUF)) == NULL) { printf("rcvbuf tpalloc error! [%s]\n",tpstrerror(tperrno)); tpfree((char*)sndbuf); tpterm(); exit(1); } /* sndbuf */ memset(sndbuf, '9', 100); slen = 100; if (tpcall("C0021Z", sndbuf, slen, &rcvbuf, &rlen, 0)==-1) { printf("tpcall error! [%s]\n",tpstrerror(tperrno)); tpfree((char*)sndbuf); tpfree((char*)rcvbuf); tpterm(); exit(1); } printf("Returned Value : (%d) -> %s\n", rlen, rcvbuf); tpfree((char*)sndbuf); tpfree((char*)rcvbuf); tpterm(); }

위의 정보가 도움이 되셨나요? 그렇다면 댓글 하나만 남겨주세요.
댓글 하나가 운영자에겐 커다란 힘이 됩니다!