Tmax 시스템을 호출할 때 설정된 에러값을 반환하는 함수이다.

서비스에서 tpreturn할 경우 설정한 urcode를 반환하는 함수이다.

비동기형 서비스 요청을 송신하는 함수로, 내부적으로 tpacall을 호출한다.

유형 버퍼(Typed Buffer) 할당 함수로, 내부적으로 tpalloc을 호출한다.

동기형 서비스 요청 송수신 함수로, 내부적으로 tpcall을 호출한다.

OnTpacall이 반환한 호출 구별자인 cd로 응답을 취소하는 함수로, 내부적으로 tpcancel을 호출한다.

대화형 서비스와 통신 연결을 하는 함수로, 내부적으로 tpconnect를 호출한다.

대화형 통신 연결 종료 함수로, 내부적으로 tpdiscon을 호출한다.

Tmax 시스템과의 연결을 해제하는 함수로, 내부적으로 tpend를 호출한다.

유형 버퍼(Typed Buffer)에 할당된 메모리를 해제하는 함수로, 내부적으로 tpfree를 호출한다.

OnTpalloc 등으로 할당한 버퍼에 대한 포인터가 가리키고 있는 값을 가져오는 함수이다.

비동기적으로 요청한 서비스에 대한 응답 수신 함수로, 내부적으로 tpgetrply를 호출한다.

OnTpalloc 등으로 할당한 버퍼에 대한 포인터가 가리키고 있는 곳에 value값을 설정하는 함수이다.

유형 버퍼(Typed Buffer)의 재할당하는 함수로, 내부적으로 tprealloc을 호출한다.

대화형 통신으로 연결된 상대방 프로그램으로부터 송신된 데이터를 수신하기 위해 사용되는 함수로, 내부적으로 tprecv를 호출한다.

대화형 통신을 할 경우 메시지를 송신하는 함수로, 내부적으로 tpsend를 호출한다. 호출자는 반드시 통신 제어권을 가지고 있어야 한다.

Tmax 시스템에 연결하는 함수로, 내부적으로 tpstart를 호출한다. TPSTART_T의 파라미터에 들어갈 멤버를 파라미터로 받아온다.

버퍼의 유형 및 하위 유형에 대한 정보를 제공하는 함수로, 내부적으로 tptypes를 호출한다.

클라이언트가 Tmax 시스템과 연결된 상태인지 체크하는 함수로, 내부적으로 tptobackup를 호출한다.

환경변수를 파일로부터 로드하는 함수로, 내부적으로 tmaxreadenv를 호출한다.

최대 sec시간 동안 sleep하다가 그 안에 데이터가 도착하면 즉시 반환하는 함수로, 내부적으로 tp_sleep를 호출한다.

최대 usec시간 동안 sleep하다가 그 안에 데이터가 도착하면 즉시 반환하는 함수로, 내부적으로 tp_usleep를 호출한다.

tpenq()를 이용하여 서비스를 요청한 결과나 또는 tpenq()를 이용할 때 서비스명을 NULL로 하여 저장한 데이터를 읽는 함수로, 내부적으로 tpdeq를 호출한다. 단, tpenq()를 이용할 때 flags에 TPNOREPLY를 설정한 서비스는 결과를 받을 수 없다.

RQ에 데이터를 저장하는 함수로, 내부적으로 tpenq를 호출한다.

Tmax 시스템을 호출할 때 발생한 오류에 대해 자세한 정보를 얻을 때 사용하는 함수로, 내부적으로 tperrordetail를 호출한다.

OnTpdeq()로 RQ에서 데이터를 읽은 경우 해당 데이터에 대한 상세한 정보를 알고자 할 때 사용하는 함수로 내부적으로 tpextsvcinfo를 호출한다.

OnTpdeq()로 RQ에서 데이터를 읽은 경우 해당 데이터의 서비스명을 알고자 할 때 사용하는 함수로, 내부적으로 tpextsvcname를 호출한다.

str이라는 이름으로 등록된 환경변수의 값을 반환하는 함수로, 내부적으로 tpgetenv를 호출한다.

str로 입력된 '이름=값'을 환경변수에 적용하는 함수로, 기존의 환경변수가 존재한다면 수정을 하며 존재하지 않는다면 새로 추가한다. 함수 내부적으로 tpputenv를 호출한다.

현재 큐에 저장된 데이터의 통계값을 반환하는 함수로, 내부적으로 tpqstat를 호출한다.

현재 큐에 저장된 데이터 중 특정 서비스에 대한 통계값을 반환하는 함수로, 내부적으로 tpqsvcstat를 호출한다.

OnTpdeq() 등으로 RQ를 통한 서비스 수행 중 네트워크 불안정이나 기타 서버 측의 오류로 서비스 수행을 실패하여 fail 큐에 쌓인 클라이언트의 서비스 요청 데이터를 다시 request 큐에 넣는 함수로 내부적으로 tpreissue를 호출한다.

현재 접속된 클라이언트를 즉시 해제하는 함수로 내부적으로 tpreset를 호출한다.

서버에 설정되어 있는 서비스 제한시간인 Blocking Timeout 시간을 변경할 때 사용하는 함수로, 내부적으로 tpset_timeout을 호출한다.

서브큐 번호에 해당하는 큐의 이름을 반환하는 함수로 내부적으로 tpsubqname를 호출한다.

클라이언트가 Tmax 백업 시스템으로 연결하는 함수로, 내부적으로 tptobackup를 호출한다. 함수를 사용하려면 TMAX_BACKUP_ADDR과 TMAX_BACKUP_PORT가 설정되어 있어야 한다.

필드 버퍼의 크기를 계산한 후 메모리를 할당하는 함수로 내부적으로 fballoc를 호출한다.

OnTpalloc()으로 필드 버퍼를 메모리에 할당받을 때 적정한 메모리를 할당받기 위하여 사전에 필드 버퍼의 크기를 계산하는 함수로, 내부적으로 fbcalcsize를 호출한다.

필드 버퍼에서 지정한 필드키의 전체 데이터를 삭제하는 함수로, 내부적으로 fbdelall를 호출한다.

필드 버퍼에 지정한 필드키의 필드 순번에 해당되는 데이터를 삭제하는 함수로, 내부적으로 fbdelete를 호출한다.

필드 버퍼 내에 있는 모든 필드의 수를 반환하는 함수로, 내부적으로 fbfldcount를 호출한다.

필드 버퍼의 메모리를 해제하는 함수로, 내부적으로 fbfree를 호출한다.

필드 버퍼에서 필드키에 해당되는 필드 데이터를 반환하는 함수로, 내부적으로 fbget을 호출한다.

필드 버퍼의 크기를 반환하는 함수로, 내부적으로 fbfree를 호출한다.

지정한 필드명과 일치하는 필드키를 반환하는 함수로, 내부적으로 fbget_fldkey를 호출한다.

지정한 필드키와 일치하는 필드명을 반환하는 함수로, 내부적으로 fbget_fldkey를 호출한다.

지정한 필드키의 필드 타입을 정수로 반환하는 함수로, 내부적으로 fbget_fldtype를 호출한다.

지정한 필드키의 필드 타입을 문자열로 반환하는 함수로, 내부적으로 fbget_strfldtype를 호출한다.

메모리에 할당된 필드 버퍼 중 아직 사용되지 않은 필드 버퍼의 크기를 계산하는 함수로, 내부적으로 fbget_unused를 호출한다.

메모리에 할당된 필드 버퍼 중 아직 사용 중인 필드 버퍼의 크기를 계산하는 함수로, 내부적으로 fbget_used를 호출한다.

필드 버퍼에 저장되어 있는 필드 데이터를 지정한 타입으로 변환하여 순차적으로 반환하는 함수로, 내부적으로 fbgetc를 호출한다.

필드 버퍼에 저장되어 있는 필드 데이터를 순차적으로 반환하는 함수로, 내부적으로 fbgetf를 호출한다.

지정한 필드키에 저장되어 있는 필드 데이터 중 지정한 데이터가 저장되어 있는 필드 개수을 반환하는 함수로, 내부적으로 fbgetnth를 호출한다.

지정한 필드키에 저장되어 있는 필드 데이터 중 지정한 데이터가 저장되어 있는 필드 순번을 반환하는 함수로, 내부적으로 fbgetntht를 호출한다.

필드 버퍼에 지정한 필드키의 필드 순번에 해당하는 필드 데이터를 반환하는 함수로 내부적으로 fbgetval을 호출한다.

지정한 필드키의 필드 순번에 해당하는 필드 데이터를 정수로 변환하여 반환하는 함수로, 내부적으로 fbgetvali를 호출한다.

지정한 필드키의 필드 순번에 해당하는 필드 데이터를 문자열로 변환하여 반환하는 함수로, 내부적으로 fbgetvals를 호출한다.

지정한 필드키의 필드 순번에 해당하는 필드 데이터를 지정한 타입으로 변환하여 반환하는 함수로, 내부적으로 fbgetvalt를 호출한다.

필드 버퍼를 초기화하는 함수로, 내부적으로 fbinit를 호출한다.

필드 버퍼에 지정한 필드키의 필드 순번에 데이터를 저장하는 함수로, 내부적으로 fbinsert를 호출한다.

지정한 필드 버퍼가 유효한지(OnFballoc 또는 OnTpalloc으로 버퍼를 할당받은 변수인지) 확인하는 함수로, 내부적으로 fbisfbuf를 호출한다.

필드 버퍼에 지정한 필드키의 필드 순번에 필드 데이터가 존재하는지 확인하는 함수로, 내부적으로 fbispres를 호출한다.

메모리로 로딩된 FDL 파일을 새로 로딩하는 경우 이 함수를 호출할 수 있다. 이 함수를 호출하면 기존에 메모리로 로딩된 데이터는 삭제되고 환경변수인 FDLFILE에 설정된 파일이 메모리에 로딩된다. 함수 내부적으로 fbkeynm_unload를 호출한다.

필드 버퍼에서 지정한 필드키의 필드 순번을 반환하는 함수로, 내부적으로 fbkeyoccur를 호출한다.

새로운 필드키를 동적으로 생성하는 함수로, 내부적으로 fbmake_fldkey를 호출한다.

메모리로 로딩된 FDL 파일을 새로 로딩하는 경우 함수를 호출할 수 있다. 이 함수를 호출하면 기존에 메모리로 로딩된 데이터는 삭제되고 환경변수인 FDLFILE에 설정된 파일이 메모리에 로딩된다. 함수 내부적으로 fbnmkey_unload를 호출한다.

필드 버퍼에 새로운 필드를 추가하는 함수로, 내부적으로 fbput를 호출한다.

필드 버퍼에 데이터를 지정한 타입으로 변환한 후 새로운 필드를 추가하여 저장하는 함수로, 내부적으로 fbputt를 호출한다.

필드 버퍼를 메모리에 다시 할당하는 함수로, 내부적으로 fbget_used를 호출한다.

필드 버퍼를 조작할 때 에러 내용을 문자열로 반환하는 함수로, 내부적으로 fbstrerror를 호출한다.

지정한 필드 데이터를 지정한 타입으로 데이터형을 변환하여 반환하는 함수로, 내부적으로 fbtypecvt를 호출한다.

필드 버퍼에 지정한 필드키의 필드 순번에 해당되는 데이터를 변경하는 함수로, 내부적으로 fbupdate를 호출한다.

필드 버퍼와 관련된 API 함수를 수행하는 도중에 에러가 발생하였을 경우 에러값을 반환하는 함수로, 내부적으로 getfberrno를 호출한다.

필드 버퍼와 관련된 API 함수를 수행하는 도중에 에러가 발생하였을 경우 에러값을 반환하는 함수로 내부적으로 getfberror를 호출한다.

전역 트랜잭션을 시작하는 함수로, 내부적으로 tx_begin를 호출한다.

전역 트랜잭션을 Commit하는 함수로, 내부적으로 tx_commit를 호출한다.

전역 트랜잭션을 Rollback하는 함수로 내부적으로 tx_rollback를 호출한다.

전역 트랜잭션의 Timeout을 설정하는 함수로, 내부적으로 tx_set_transaction_timeout을 호출한다.

프로그램은 다음과 같이 구성된다.

다음은 프로그램의 특징이다.

메인화면

프로그램을 실행하기 전에 윈도우의 실행 창에서 <regsvr32 tmaxcomcli.dll>을 실행한다.

프로그램을 실행하면 다음과 같은 화면이 나타난다. 버튼은 [INSERT], [UPDATE], [DELETE], [SELECT]로 구성되어 원하는 버튼을 클릭할 수 있다.

입출력 관리

다음은 계정번호를 통한 입출력관리 예제이다.

<Tmaxtest.asp>

<HTML>
<HEAD>
<TITLE> New Document </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
</HEAD>
<%
      Dim retStr
      Dim retAccount
      Dim retBranch
      Dim retPhone
      Dim retAddr
      retStr = request("retStr")
      retAccount = request("retAccount")
      retBranch = request("retBranch")
      retPhone = request("retPhone")
      retAddr = request("retAddr")
%>
<script language="javascript">
   function insertPage(){
        var accountValue = document.form1.taccount_id.value;
        var branchValue = document.form1.tbranch_id.value;
        var phoneValue = document.form1.tphone.value;
        var addrValue = document.form1.taddr.value;
        location.href="insert.asp?taccount_id="+accountValue+"&tbranch_id=
                     "+branchValue+"&tphone="+phoneValue+"&taddr="+addrValue;
   }
   function updatePage(){
        var accountValue = document.form1.taccount_id.value;
        var branchValue = document.form1.tbranch_id.value;
        var phoneValue = document.form1.tphone.value;
        var addrValue = document.form1.taddr.value;
        location.href="update.asp?taccount_id="+accountValue+"&tbranch_id=
                      "+branchValue+"&tphone="+phoneValue+"&taddr="+addrValue;
   }
   function deletePage(){
        var accountValue = document.form1.taccount_id.value;
        location.href="delete.asp?taccount_id="+accountValue;
   }
   function selectPage(){
        var accountValue = document.form1.taccount_id.value;
        location.href="select.asp?taccount_id="+accountValue;
   }
</script>
<BODY>
<form action="" name="form1" method="get">
<TABLE>
<TR>
      <TD colspan=2>계정번호</TD>
      <TD colspan=2><INPUT TYPE="text" NAME="taccount_id"></TD>
</TR>
<TR>
      <TD colspan=2>지사번호</TD>
      <TD colspan=2><INPUT TYPE="text" NAME="tbranch_id" value="<%if retBranch<> "" 
                 then response.write retBranch else response.write "" end if %>">
                 </TD>
</TR>
<TR>
      <TD colspan=2>전화번호</TD>
      <TD colspan=2><INPUT TYPE="text" NAME="tphone" value="<%if retPhone<> "" 
                 then response.write retPhone else response.write "" end if %>">
                 </TD>
</TR>
<TR>
      <TD colspan=2>주소</TD>
      <TD colspan=2><INPUT TYPE="text" NAME="taddr" value="<%if retAddr<> "" 
                 then response.write retAddr else response.write "" end if %>"></TD>
</TR>
<TR>
      <TD colspan=2>결과값</TD>
      <TD colspan=2><INPUT TYPE="text" NAME="trval" value="<%if retStr<> "" 
                 then response.write retStr else response.write "" end if %>"></TD>
</TR>
<TR>
      <TD>
          <INPUT TYPE="button" NAME="insert" value="INSERT" onclick="insertPage();">
      </TD>
      <TD>
          <INPUT TYPE="button" NAME="update" value="UPDATE" onclick="updatePage();">
     </TD>
      <TD >
          <INPUT TYPE="button" NAME="delete" value="DELETE" onclick="deletePage();">
      </TD>
      <TD>
          <INPUT TYPE="button" NAME="select" value="SELECT" onclick="selectPage();">
      </TD>
</TR>
</TABLE></form>

</BODY>
</HTML>

INSERT 버튼 실행 스크립트

다음은 [INSERT] 버튼의 예제이다.

<insert.asp>

<%
      Dim file
      Dim label
      Dim tmp
      'Tmax와 통신하기 위한 변수
      Dim fbuf
      'INSERT 서비스에서 fbuf에 담아온 값을 읽기 위한 변수
      Dim retStr
      'TmaxTestTx.asp에서 받아 온 값을 담을 변수
      Dim taccount_id
      Dim tranch_id
      Dim tphone
      Dim taddr
      
      Dim rlen
      Dim rVal
      Dim errno

      'TmaxTestTx.asp에서 받아 온 값을 설정한다.
      taccount_id = request("taccount_id")
      tbranch_id = request("tbranch_id")
      tphone = request("tphone")
      taddr = request("taddr")

      '인터페이스의 Object를 생성한다.
      Set objAtmi = Server.CreateObject("Tmaxcom.Atmi")
      Set objFdl = Server.CreateObject("Tmaxcom.Fdl")
      Set objEtc = Server.CreateObject("Tmaxcom.Etc")
      Set objTx = Server.CreateObject("Tmaxcom.Tx")
      ...
      file = "C:\\Inetpub\\wwwroot\\tmax.env"
      label = "TMAXC1"

      'Tmax와 연결하기 위해 OnTmaxreadenv로 환경변수를 읽어 온다.
      rVal = objEtc.OnTmaxreadenv (file, label)
      if rVal < 0 then
         error processing
         ...
      end if
      'Tmax와 OnTpstart로 연결한다.
      tmp = ""
      rVal = objAtmi.OnTpstart (tmp, tmp, tmp, tmp, CINT(0))
      if rVal < 0 then
         error processing
         ...
      end if
      '버퍼를 OnTpalloc으로 할당한다.
      '보낼 버퍼/받을 버퍼
      fbuf = objAtmi.OnTpalloc ("FIELD", "", CINT(0))
      '필드 데이터를 가져올 버퍼
      retStr = objAtmi.OnTpalloc ("STRING", "", CINT(0))

      '보낼 버퍼에 필드 데이터를 넣는다.
      'INSERT_ID        ((FLDKEY)201327592) /* number: 1000 type: int */ 
      'BRANCH_ID        ((FLDKEY)201327593) /* number: 1001 type: int */ 
      'PHONE        ((FLDKEY)469763050) /* number: 1002 type: string */ 
      'ADDRESS        ((FLDKEY)469763051) /* number: 1003 type: string */  
      rVal = objFdl.OnFbput (fbuf, "201327592", taccount_id, CINT("0"))
      if rVal < 0 then
         error processing
         ...
      end if
      rVal = objFdl.OnFbput (fbuf, "201327593", tbranch_id, CINT("0"))
      if rVal < 0 then
         error processing
         ...
      end if
      rVal = objFdl.OnFbput (fbuf, "469763050", tphone, CINT("0"))
      if rVal < 0 then
         error processing
         ...
      end if
      rVal = objFdl.OnFbput (fbuf, "469763051", taddr, CINT("0"))
      if rVal < 0 then
         error processing
         ...
      end if

      '트랜잭션을 시작한다.
      rVal = objTx.OnTx_begin()
      if rVal < 0 then
         error processing
         ...
      end if

      'Tmax로 INSERT 서비스를 요청한다.
      rVal = objAtmi.OnTpcall ("INSERT", fbuf, CINT(0), fbuf, rlen, CINT("0"))
      if rVal < 0 then
         error processing
         ...
        rVal = objTx.OnTx_rollback()
        if rVal < 0 then
           error processing
           ...
        end if
        'Tmax와의 연결을 해제한다.
        ...
      else
        rVal = objTx.OnTx_commit()
        if rVal < 0 then
           error processing
           ...
        end if
      end if

      'OnTpcall의 결과로 받아 온 fbuf에서 RESULT 필드의 내용을 가져온다.
      'RESULT ((FLDKEY)469764048) /* number: 2000 type: string */
      rVal = objFdl.OnFbget (fbuf, "469764048", retStr, rlen)
      if rVal < 0 then
         error processing
         ...
      end if

      'RESULT 필드의 내용이 담긴 버퍼에서 실제 내용을 가져온다.
      rVal = objAtmi.OnTpget (retStr, tmp)
      if rVal < 0 then
         error processing
         ...
      end if

      '버퍼를 해제한다.
      objAtmi.OnTpfree(fbuf)
      objAtmi.OnTpfree(retStr)
      
      'Tmax와의 연결을 해제한다.
      rVal = objAtmi.OnTpend()
      if rVal < 0 then
         error processing
         ...
      end if

      'Object를 해제한다.
      Set objAtmi = nothing
      Set objFdl = nothing
      Set objEtc = nothing
      Set objTx = nothing

      response.redirect "TmaxTestTx.asp?retStr="&tmp
%>

UPDATE 버튼 실행 스크립트

다음은 [UPDATE] 버튼의 예제이다.

<update.asp>

<%
      Dim file
      Dim label
      Dim tmp
      'Tmax와 통신하기 위한 변수
      Dim fbuf
      'UPDATE 서비스에서 fbuf에 담아온 값을 읽기 위한 변수
      Dim retStr
      'TmaxTestTx.asp에서 받아 온 값을 담을 변수
      Dim taccount_id
      Dim tranch_id
      Dim tphone
      Dim taddr
      
      Dim rlen
      Dim rVal
      Dim errno

      'TmaxTestTx.asp에서 받아 온 값을 설정한다.
      taccount_id = request("taccount_id")
      tbranch_id = request("tbranch_id")
      tphone = request("tphone")
      taddr = request("taddr")

      '인터페이스의 Object를 생성한다.
      Set objAtmi = Server.CreateObject("Tmaxcom.Atmi")
      Set objFdl = Server.CreateObject("Tmaxcom.Fdl")
      Set objEtc = Server.CreateObject("Tmaxcom.Etc")
      Set objTx = Server.CreateObject("Tmaxcom.Tx")
%>
<script language="javascript">
        alert("taccount_id[<%=taccount_id%>] tbranch_id[<%=tbranch_id%>] 
               thpone[<%=tphone%>] taddr[<%=taddr%>]");
</script>
<%
      file = "C:\\Inetpub\\wwwroot\\tmax.env"
      label = "TMAXC1"

      'Tmax와 연결하기 위해 OnTmaxreadenv로 환경변수를 읽어 온다.
      rVal = objEtc.OnTmaxreadenv (file, label)
      if rVal < 0 then
         error processing
         ...
      end if
      'Tmax와 OnTpstart로 연결한다.
      tmp = ""
      rVal = objAtmi.OnTpstart (tmp, tmp, tmp, tmp, CINT(0))
      if rVal < 0 then
         error processing
         ...
      end if
      '버퍼를 OnTpalloc으로 할당한다.
      '보낼 버퍼/받을 버퍼
      fbuf = objAtmi.OnTpalloc ("FIELD", "", CINT(0))
      '필드 데이터를 가져올 버퍼
      retStr = objAtmi.OnTpalloc ("STRING", "", CINT(0))

      '보낼 버퍼에 필드 데이터를 넣는다.
      'UPDATE_ID ((FLDKEY)201327596) /* number: 1004 type: int */ 
      'BRANCH_ID ((FLDKEY)201327593) /* number: 1001 type: int */ 
      'PHONE ((FLDKEY)469763050) /* number: 1002 type: string */ 
      'ADDRESS ((FLDKEY)469763051) /* number: 1003 type: string */  
      rVal = objFdl.OnFbput(fbuf, "201327596", taccount_id, CINT("0"))
      if rVal < 0 then
         error processing
         ...
      end if
      rVal = objFdl.OnFbput(fbuf, "201327593", tbranch_id, CINT("0"))
      if rVal < 0 then
         error processing
         ...
      end if
      rVal = objFdl.OnFbput(fbuf, "469763050", tphone, CINT("0"))
      if rVal < 0 then
         error processing
         ...
      end if
      rVal = objFdl.OnFbput(fbuf, "469763051", taddr, CINT("0"))
      if rVal < 0 then
         error processing
         ...
      end if

      '트랜잭션을 시작한다.
      rVal = objTx.OnTx_begin()
      if rVal < 0 then
         error processing
         ...
      end if

      'Tmax로 UPDATE 서비스를 요청한다.
      rVal = objAtmi.OnTpcall("UPDATE", fbuf, CINT(0), fbuf, rlen, CINT("0"))
      if rVal < 0 then
         error processing
         ...
         if rVal < 0 then
            errno = objAtmi.OnGettperrno()
            response.write("OnTx_rollback fail["&rVal&"] ["&errno&"]")
         end if
         ...
      else
        rVal = objTx.OnTx_commit()
        if rVal < 0 then
           error processing
           ...
        end if
      end if

      'OnTpcall의 결과로 받아 온 fbuf에서 RESULT 필드의 내용을 가져온다.
      'RESULT ((FLDKEY)469764048) /* number: 2000 type: string */
      rVal = objFdl.OnFbget(fbuf, "469764048", retStr, rlen)
      if rVal < 0 then
         error processing
         ...
      end if

      'RESULT 필드의 내용이 담긴 버퍼에서 실제 내용을 가져온다.
      rVal = objAtmi.OnTpget (retStr, tmp)
      if rVal < 0 then
         error processing
         ...
      end if

      '버퍼를 해제한다.
      objAtmi.OnTpfree(fbuf)
      objAtmi.OnTpfree(retStr)

      'Tmax와의 연결을 해제한다.
      rVal = objAtmi.OnTpend()
      if rVal < 0 then
         error processing
         ...
      end if

      'Object를 해제한다.
      Set objAtmi = nothing
      Set objFdl = nothing
      Set objEtc = nothing
      Set objTx = nothing

      response.redirect "TmaxTestTx.asp?retStr="&tmp
%>

DELETE 버튼 실행 스크립트

다음은 [DELETE] 버튼의 예제이다.

<delete.asp>

<%
      Dim file
      Dim label
      Dim tmp
      'Tmax와 통신하기 위한 변수
      Dim fbuf
      'DELETE 서비스에서 fbuf에 담아온 값을 읽기 위한 변수
      Dim retStr
      'TmaxTestTx.asp에서 받아 온 값을 담을 변수
      Dim taccount_id
            
      Dim rlen
      Dim rVal
      Dim errno

      'TmaxTestTx.asp에서 받아 온 값을 설정한다.
      taccount_id = request("taccount_id")
      
      '인터페이스의 Object를 생성한다.
      Set objAtmi = Server.CreateObject("Tmaxcom.Atmi")
      Set objFdl = Server.CreateObject("Tmaxcom.Fdl")
      Set objEtc = Server.CreateObject("Tmaxcom.Etc")
      Set objTx = Server.CreateObject("Tmaxcom.Tx")
%>
<script language="javascript">
      alert("taccount_id[<%=taccount_id%>]");
</script>
<%
      file = "C:\\Inetpub\\wwwroot\\tmax.env"
      label = "TMAXC1"

      'Tmax와 연결하기 위해 OnTmaxreadenv로 환경변수를 읽어 온다.
      rVal = objEtc.OnTmaxreadenv (file, label)
      if rVal < 0 then
         error processing
         ...
      end if
      'Tmax와 OnTpstart로 연결한다.
      tmp = ""
      rVal = objAtmi.OnTpstart (tmp, tmp, tmp, tmp, CINT(0))
      if rVal < 0 then
         error processing
         ...
      end if
      '버퍼를 OnTpalloc으로 할당한다.
      '보낼 버퍼/받을 버퍼
      fbuf = objAtmi.OnTpalloc ("FIELD", "", CINT(0))
      '필드 데이터를 가져올 버퍼
      retStr = objAtmi.OnTpalloc ("STRING", "", CINT(0))

      '보낼 버퍼에 필드 데이터를 넣는다.
      'DELETE_ID ((FLDKEY)201327597) /* number: 1005 type: int */ 
      rVal = objFdl.OnFbput (fbuf, "201327597", taccount_id, CINT("0"))
      if rVal < 0 then
         error processing
         ...
      end if
      
      '트랜잭션을 시작한다.
      rVal = objTx.OnTx_begin()
      if rVal < 0 then
         error processing
         ...
      end if

      'Tmax로 DELETE 서비스를 요청한다.
      rVal = objAtmi.OnTpcall ("DELETE", fbuf, CINT(0), fbuf, rlen, CINT("0"))
      if rVal < 0 then
         error processing
         ...
         rVal = objTx.OnTx_rollback()
         if rVal < 0 then
            errno = objAtmi.OnGettperrno()
            response.write("OnTx_rollback fail["&rVal&"] ["&errno&"]")
         end if
         ...
      else
         rVal = objTx.OnTx_commit()
         if rVal < 0 then
            error processing
            ...
         end if
      end if

      'OnTpcall의 결과로 받아 온 fbuf에서 RESULT 필드의 내용을 가져온다.
      'RESULT ((FLDKEY)469764048) /* number: 2000 type: string */
      rVal = objFdl.OnFbget (fbuf, "469764048", retStr, rlen)
      if rVal < 0 then
         error processing
         ...
      end if

      'RESULT 필드의 내용이 담긴 버퍼에서 실제 내용을 가져온다.
      rVal = objAtmi.OnTpget (retStr, tmp)
      if rVal < 0 then
         error processing
         ...
      end if

      '버퍼를 해제한다.
      objAtmi.OnTpfree(fbuf)
      objAtmi.OnTpfree(retStr)

      'Tmax와의 연결을 해제한다.
      rVal = objAtmi.OnTpend()
      if rVal < 0 then
         error processing
         ...
      end if

      'Object를 해제한다.
      Set objAtmi = nothing
      Set objFdl = nothing
      Set objEtc = nothing
      Set objTx = nothing

      response.redirect "TmaxTestTx.asp?retStr="&tmp
%>

SELECT 버튼 실행 스크립트

다음은 [SELECT] 버튼의 예제이다.

<select.asp>

<%
      Dim file
      Dim label
      Dim tmp
      'Tmax와 통신하기 위한 변수
      Dim fbuf
      'DELETE 서비스에서 fbuf에 담아온 값을 읽기 위한 변수
      Dim str
      Dim branch
      Dim phone
      Dim addr
      'TmaxTestTx.asp에서 받아 온 값을 담을 변수
      Dim taccount_id
      'TmaxTestTx.asp에 값을 넘기기 위한 변수
      Dim retStr
      Dim retBranch
      Dim retPhone
      Dim retAddr
            
      Dim rlen
      Dim rVal
      Dim errno

      'TmaxTestTx.asp에서 받아 온 값을 설정한다.
      taccount_id = request("taccount_id")
      
      '인터페이스의 Object를 생성한다.
      Set objAtmi = Server.CreateObject("Tmaxcom.Atmi")
      Set objFdl = Server.CreateObject("Tmaxcom.Fdl")
      Set objEtc = Server.CreateObject("Tmaxcom.Etc")
      Set objTx = Server.CreateObject("Tmaxcom.Tx")
%>
<script language="javascript">
      alert("taccount_id[<%=taccount_id%>]");
</script>
<%
      file = "C:\\Inetpub\\wwwroot\\tmax.env"
      label = "TMAXC1"

      'Tmax와 연결하기 위해 OnTmaxreadenv로 환경변수를 읽어 온다.
      rVal = objEtc.OnTmaxreadenv (file, label)
      if rVal < 0 then
         error processing
         ...
      end if
      'Tmax와 OnTpstart로 연결한다.
      tmp = ""
      rVal = objAtmi.OnTpstart (tmp, tmp, tmp, tmp, CINT(0))
      if rVal < 0 then
         error processing
         ...
      end if
      '버퍼를 OnTpalloc으로 할당한다.
      '보낼 버퍼/받을 버퍼
      fbuf = objAtmi.OnTpalloc ("FIELD", "", CINT(0))
      '필드 데이터를 가져올 버퍼
      str = objAtmi.OnTpalloc ("STRING", "", CINT(0))
      branch = objAtmi.OnTpalloc ("STRING", "", CINT(0))
      phone = objAtmi.OnTpalloc ("STRING", "", CINT(0))
      addr = objAtmi.OnTpalloc ("STRING", "", CINT(0))

      '보낼 버퍼에 필드 데이터를 넣는다.
      'SELECT_ID ((FLDKEY)201327598) /* number: 1006 type: int */ 
      rVal = objFdl.OnFbput (fbuf, "201327598", taccount_id, CINT("0"))
      if rVal < 0 then
         error processing
         ...
      end if
      
      '트랜잭션을 시작한다.
      rVal = objTx.OnTx_begin()
      if rVal < 0 then
         error processing
         ...
      end if

      'Tmax로 SELECT 서비스를 요청한다.
      rVal = objAtmi.OnTpcall ("SELECT", fbuf, CINT(0), fbuf, rlen, CINT("0"))
      if rVal < 0 then
         error processing
         ...
         rVal = objTx.OnTx_rollback()
         if rVal < 0 then
            errno = objAtmi.OnGettperrno()
            response.write("OnTx_rollback fail["&rVal&"] ["&errno&"]")
         end if
         ...
      else
        rVal = objTx.OnTx_commit()
        if rVal < 0 then
           error processing
           ...
        end if
      end if

      'OnTpcall의 결과로 받아 온 fbuf에서 RESULT 필드의 내용을 가져온다.
      'RESULT ((FLDKEY)469764048) /* number: 2000 type: string */
      rVal = objFdl.OnFbget (fbuf, "469764048", str, rlen)
      if rVal < 0 then
         error processing
         ...
      end if
      'RESULT 필드의 내용이 담긴 버퍼에서 실제 내용을 가져온다.
      rVal = objAtmi.OnTpget (str, retStr)
      if rVal < 0 then
         error processing
         ...
      end if
      'BRANCH_ID ((FLDKEY)201327593) /* number: 1001 type: int */ 
      'PHONE ((FLDKEY)469763050) /* number: 1002 type: string */ 
      'ADDRESS ((FLDKEY)469763051) /* number: 1003 type: string */
      rVal = objFdl.OnFbget (fbuf, "201327593", branch, rlen)
      rVal = objAtmi.OnTpget(branch, retBranch)
      rVal = objFdl.OnFbget (fbuf, "469763050", phone, rlen)
      rVal = objAtmi.OnTpget(phone, retPhone)
      rVal = objFdl.OnFbget (fbuf, "469763051", addr, rlen)
      rVal = objAtmi.OnTpget(addr, retAddr)

      '버퍼를 해제한다.
      objAtmi.OnTpfree(fbuf)
      objAtmi.OnTpfree(str)
      objAtmi.OnTpfree(branch)
      objAtmi.OnTpfree(phone)
      objAtmi.OnTpfree(addr)

      'Tmax와의 연결을 해제한다.
      rVal = objAtmi.OnTpend()
      if rVal < 0 then
         error processing
         ...
      end if

      'Object를 해제한다.
      Set objAtmi = nothing
      Set objFdl = nothing
      Set objEtc = nothing
      Set objTx = nothing

      response.redirect "TmaxTestTx.asp?retStr="&retStr&"&retBranch="&retBranch&"&
                         retPhone="&retPhone&"&retAddr="&retAddr
%>