fieldkey "STATLIN"에 실린 내용과 tpurcode의 에러 메세지를 출력하는 함수로, TmaxMacros.vb 파일에 정의되어 있다.

매크로 내용을 보면 fieldkey "STATLIN"에 실린 내용과 tpurcode의 내용을 MsgBox로 보여준다. 서버에서 에러 메시지가 온 경우라면 사용자가 출력하고자 하는 msg와 함께 서버의 메시지를 MsgBox로 보여준다.

FDL 함수에 대한 에러를 출력하는 함수이다. 이 함수를 호출하면 msg와 에러값을 MsgBox로 보여준다.

Tmax 시스템과 연결하기 위해 설정해야 하는 버퍼인 tpstart_t 구조체를 구성하는 함수이다.

String 데이터를 tpalloc()으로 메모리에 할당된 버퍼로부터 읽어 오는 함수이다.

Binary 데이터를 tpalloc()으로 메모리에 할당된 버퍼로부터 읽어 오는 함수이다.

Tmax FDL 함수인 fbget_tu()를 이용하여 지정한 fldName에 지정된 필드명의 nth 순번에 해당하는 필드 데이터를 value로 반환하는 함수로, value값은 Byte array가 된다.

Tmax FDL 함수인 fbget_tu()를 이용하여 지정한 fldName에 지정된 필드명의 nth 순번에 해당하는 필드 데이터를 value로 반환하는 함수로, value값은 CARRAY가 된다.

GETVAR은 String인데 반해 GETVAR은 CARRAY이다. CARRAY는 길이를 명시적으로 표현해야 하기 때문에 함수에 문자열의 길이를 나타내는 len값을 파라미터로 받는다. 참고로 String형은 문자열의 끝에 NULL값이 있다.

Tmax FDL 함수인 fbget_tu()를 이용하여 지정한 fldName에 지정된 필드명의 nth 순번에 해당하는 필드 데이터를 value로 반환하는 함수로, value값은 Double이 된다.

Tmax FDL 함수인 fbget_tu()를 이용하여 지정한 fldName에 지정된 필드명의 nth 순번에 해당하는 필드 데이터를 value로 반환하는 함수로, value값은 Single이 된다.

Tmax FDL 함수인 fbget_tu()를 이용하여 지정한 fldName에 지정된 필드명의 nth 순번에 해당하는 필드 데이터를 value로 반환하는 함수로, value값은 Integer가 된다.

Tmax FDL 함수인 fbget_tu()를 이용하여 지정한 fldName에 지정된 필드명의 nth 순번에 해당하는 필드 데이터를 value로 반환하는 함수로, value값은 Long이 된다.

Tmax FDL 함수인 fbget_tu()를 이용하여 지정한 fldName에 지정된 필드명의 nth 순번에 해당하는 필드 데이터를 value로 반환하는 함수로, value값은 Short가 된다.

Tmax FDL 함수인 fbget_tu()를 이용하여 지정한 fldName에 지정된 필드명의 nth 순번에 해당하는 필드 데이터를 value로 반환하는 함수로, value값은 String이 된다.

CARRAY 데이터를 tpalloc()으로 메모리에 할당된 버퍼에 저장하는 함수이다.

Binary 데이터를 tpalloc()으로 메모리에 할당된 버퍼에 저장하는 함수이다.

Tmax FDL 함수인 fbchg_tu()를 이용하여 지정한 nth에 해당하는 순번으로 fldName에 지정된 필드명에 value값을 저장하는 함수로, value값은 Byte array가 된다. 이 함수는 Binary 데이터를 처리하려고 할 때 사용된다.

fbchg_tu() 함수를 사용하므로 필드 순번(nth)에 기존의 데이터가 있을 경우 주어진 데이터(value)로 변경되고, 필드 순번에 기존의 데이터가 없을 경우 주어진 데이터가 자동으로 필드에 추가된다.

Tmax FDL 함수인 fbchg_tu()를 이용하여 지정한 nth에 해당하는 순번으로 fldName에 지정된 필드명에 value값을 저장하는 함수로, value값은 Char가 된다.

fbchg_tu() 함수를 사용하므로 필드 순번(nth)에 기존의 데이터가 있을 경우 주어진 데이터(value)로 변경이 되고, 필드 순번에 기존의 데이터가 없을 경우 주어진 데이터가 자동으로 필드에 추가된다.

Tmax FDL 함수인 fbchg_tu()를 이용하여 지정한 nth에 해당하는 순번으로 fldName에 지정된 필드명에 value값을 저장하는 함수로, value값은 Double이 된다.

fbchg_tu() 함수를 사용하므로 필드 순번(nth)에 기존의 데이터가 있을 경우 주어진 데이터(value)로 변경이 되고, 필드 순번에 기존의 데이터가 없을 경우 주어진 데이터가 자동으로 필드에 추가된다.

Tmax FDL 함수인 fbchg_tu()를 이용하여 지정한 nth에 해당하는 순번으로 fldName에 지정된 필드명에 value값을 저장하는 함수로, value값은 Single이 된다. fbchg_tu() 함수를 사용하므로 필드 순번(nth)에 기존의 데이터가 있을 경우 주어진 데이터(value)로 변경이 되고, 필드 순번에 기존의 데이터가 없을 경우 주어진 데이터가 자동으로 필드에 추가된다.

Tmax FDL 함수인 fbchg_tu()를 이용하여 지정한 nth에 해당하는 순번으로 fldName에 지정된 필드명에 value값을 저장하는 함수로, value값은 Integer가 된다. fbchg_tu() 함수를 사용하므로 필드 순번(nth)에 기존의 데이터가 있을 경우 주어진 데이터(value)로 변경되고, 필드 순번에 기존의 데이터가 없을 경우 주어진 데이터가 자동으로 필드에 추가된다.

Tmax FDL 함수인 fbchg_tu()를 이용하여 지정한 nth에 해당하는 순번으로 fldName에 지정된 필드명에 value값을 저장하는 함수로, value값은 Long이 된다.

fbchg_tu()를 사용하므로 필드 순번(nth)에 기존의 데이터가 있을 경우 주어진 데이터(value)로 변경되고, 필드 순번에 기존의 데이터가 없을 경우 주어진 데이터가 자동으로 필드에 추가된다.

Tmax FDL 함수인 fbchg_tu()를 이용하여 지정한 nth에 해당하는 순번으로 fldName에 지정된 필드명에 value값을 저장하는 함수로, value값은 Short가 된다.

fbchg_tu() 함수를 사용하므로 필드 순번(nth)에 기존의 데이터가 있을 경우 주어진 데이터(value)로 변경이 되고, 필드 순번에 기존의 데이터가 없을 경우 주어진 데이터가 자동으로 필드에 추가된다.

Tmax FDL 함수인 fbchg_tu()를 이용하여 지정한 nth에 해당하는 순번으로 fldName에 지정된 필드명에 value값을 저장하는 함수로, value값은 String이 된다.

fbchg_tu() 함수를 사용하므로 필드 순번(nth)에 기존의 데이터가 있을 경우 주어진 데이터(value)로 변경이 되고, 필드 순번에 기존의 데이터가 없을 경우 주어진 데이터가 자동으로 필드에 추가된다.

atmi.vb, fdl.vb, TmaxMacros.vb, WinAPI.vb를 모듈로 프로젝트에서 추가한다.

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

DataBase EMP Table

다음은 데이터베이스에 작성할 테이블 스페이스 구조의 예제이다.

EMPNO        NUMBER               NOT NULL        P1
ENAME        VARCHAR(16)
JOB          VARCHAR(16)
MGR          NUMBER
HIREDATE     DATE
SAL          NUMBER(7,2)
COMM         NUMBER(7,2)
DEPTNO       NUMBER

필드키 버퍼 정의

다음은 필드키 버퍼를 정의한 파일의 예제이다.

<demo.f>

#For tmax demo employee program
EMPNO               7500                long                -                -
ENAME               7501                string              -                -
JOB                 7502                string              -                -
MGR                 7503                long                -                -
DATE                7504                string              -                -
SAL                 7505                float               -                -
COMM                7506                float               -                -
DEPTNO              7507                long                -                -

E_TYPE              9009                long                -                -
E_CODE              9010                long                -                -
E_MSG               9011                string              -                -
E_TMP               9012                long                -                -

Tmax 환경설정

다음은 Tmax 환경설정 파일의 예제이다.

<tmconfig.m>

*DOMAIN
dom1         SHMKEY = 70000, MAXUSER = 200, MINCLH = 1, MAXCLH = 5,
             TPORTNO = 8888, BLOCKTIME = 200, TXTIME = 200

*NODE
tmax1        TMAXDIR = "/home/tmax",
             APPDIR = "/home/tmax/appbin",
             PATHDIR = "/home/tmax/path",
             TLOGDIR = "/home/tmax/log/tlog",
             SLOGDIR = "/home/tmax/log/slog"
             ULOGDIR = "/home/tmax/log/ulog"

*SVRGROUP
svg1         NODENAME = tmax1, DBNAME = ORACLE,
             OPENINFO = "ORACLE_XA+Acc=P/scott/tiger+SesTm=60",
             TMSNAME = svg1_tms

*SERVER
emp_c        SVGNAME = svg1, MIN = 1

*SERVICE
FDLSELECT    SVRNAME = emp_c
FDLUPDATE    SVRNAME = emp_c
FDLDELETE    SVRNAME = emp_c
FDLINSERT    SVRNAME = emp_c

메인화면

다음은 메인화면 Form 디자인 화면이다.

다음은 예제에서 사용할 메인 화면 Form 디자인 구성표이다.

다음은 사원관리 메인 디자인 프로그램의 예제이다.

Option Explicit
' 조회 창을 닫기 '
Private Sub BtnReturn_Click()
    Hide
    EmployeeMgr.Show

End Sub
' 조회 버튼 Click시 조회 리스트 결과를 보여줄 함수 '
Private Sub Form_Activate()

    ' tpstart 실행 함수 '
    tmaxStart
    
    Dim Isendbuf As Long
    Dim Irecvbuf As Long
    Dim Irbuflen As Long
    Dim Iret As Integer
    Dim text As String
    Dim value As Long
    Dim dvalue As Double
    Dim svalue As Single
    Dim lenL As Long
    Dim initS, outputS As String
    Dim empnoS, enameS, jobS, mgrS, dateS, salS, commS, deptnoS As String
    Dim cntL As Long
    Dim eNo As Long
    Dim txbool As Integer ' 트랜잭션이 시작되면 1, 아니면 0 '

    ' tpstart '
      tmaxStart

    ' 트랜잭션 시작 유무 초기화 '
      txbool = 0
    
    initS = vbCrLf & vbTab & vbTab & vbTab & "***** 검색결과 *****" 
           & vbCrLf & vbTab & "=================================================" 
           & vbCrLf & vbTab & "사원번호 이름 직책 담당임원 입사일 봉급 COMM 부서" 
           & vbCrLf & vbTab & "=================================================" 
           & vbCrLf & vbCrLf
        
    If EmployeeMgr.EditEmpNo.text = "" Then
        MsgBox "사원번호를 입력해 주세요."
        Hide
        EmployeeMgr.Show
        Exit Sub
    End If
    
    ' 보낼 데이터를 위한 버퍼 할당 '
    Isendbuf = fballoc(100, 1024)
    If Isendbuf = Null Then
        TmaxError ("fballoc")
        Call fbfree(Isendbuf)
        tmaxEnd
        Exit Sub
    End If
    
    ' 받을 데이터를 위한 버퍼 할당 '
    Irecvbuf = fballoc(100, 1024)
    If Irecvbuf = Null Then
        TmaxError ("fballoc")
        Call fbfree(Irecvbuf)
        tmaxEnd
        Exit Sub
    End If
    
    ' 사원관리 Form에서 사원번호를 가지고 옵니다.
    eNo = Trim(EmployeeMgr.EditEmpNo.text)
    Iret = fbput(ByVal Isendbuf, ByVal fbget_fldkey("EMPNO"), eNo, ByVal lenL)
    If Iret = -1 Then
        Call ExitSub(txbool, Isendbuf, Irecvbuf)
    End If
 
    ' 조회 서비스를 요청 '
    Iret = tpcall(ByVal "FDLSELECT", ByVal Isendbuf, ByVal 0, Irecvbuf, Irbuflen, 
                  ByVal 0)
    If Iret = -1 Then
        ViewErr (Irecvbuf)
        Call ExitSub(txbool, Isendbuf, Irecvbuf)
    End If
    
    cntL = fbkeyoccur(ByVal Irecvbuf, ByVal fbget_fldkey("EMPNO"))
    
    Dim i As Long
    
    For i = 0 To cntL - 1
       
        Iret = GETLONG(ByVal Irecvbuf, "EMPNO", i, value)
        If Iret = -1 Then
            TmaxError ("GETLONG(EMPNO)")
            Call ExitSub(txbool, Isendbuf, Irecvbuf)
        End If
        empnoS = value
    
        Iret = GETVAR(ByVal Irecvbuf, "ENAME", i, text)
        If Iret = -1 Then
            TmaxError ("GETVAR(ENAME)")
            Call ExitSub(txbool, Isendbuf, Irecvbuf)
        End If
        enameS = text
    
        Iret = GETVAR(ByVal Irecvbuf, "JOB", i, text)
        If Iret = -1 Then
            TmaxError ("GETVAR(JOB)")
            Call ExitSub(txbool, Isendbuf, Irecvbuf)
        End If
        jobS = text
    
        Iret = GETLONG(ByVal Irecvbuf, "MGR", i, value)
        If Iret = -1 Then
            TmaxError ("GETLONG(MGR)")
            Call ExitSub(txbool, Isendbuf, Irecvbuf)
        End If
        mgrS = value
    
        Iret = GETVAR(ByVal Irecvbuf, "DATE", i, text)
        If Iret = -1 Then
            TmaxError ("GETVAR(DATE)")
            Call ExitSub(txbool, Isendbuf, Irecvbuf)
        End If
        dateS = text
        
        ' SAL 데이터 필드에서 float 데이터를 가져옵니다. '
        ' comm.bas에 함수가 정의되있습니다. '
        Iret = fbget_tu(ByVal Irecvbuf, ByVal fbget_fldkey("SAL"), i, svalue, 0)
        If Iret = -1 Then
            FdlErrorMsg ("fbget_tu")
            Call ExitSub(txbool, Isendbuf, Irecvbuf)
        End If
        salS = svalue
    
        Iret = GETFLOAT(ByVal Irecvbuf, "COMM", i, svalue)
        If Iret = -1 Then
            TmaxError ("GETFLOAT(COMM)")
            Call ExitSub(txbool, Isendbuf, Irecvbuf)
        End If
        commS = svalue
        
        Iret = GETLONG(ByVal Irecvbuf, "DEPTNO", i, value)
        If Iret = -1 Then
            TmaxError ("GETLONG(DEPTNO)")
            Call ExitSub(txbool, Isendbuf, Irecvbuf)
        End If
        deptnoS = value & vbCrLf
    
        outputS = outputS & "       " & empnoS & vbTab & enameS & vbTab &
               jobS & vbTab & mgrS & vbTab & dateS & vbTab & 
               salS & vbTab & commS & vbTab & deptnoS
    
    Next i
    
    InfoText.text = initS & outputS
    ' 반환된 데이터를 텍스트 박스에 출력 '
    LabelErr.Caption = "SAL = " & dvalue
    
    Call ExitSub(txbool, Isendbuf, Irecvbuf)

End Sub

Private Sub ExitSub(txbool As Integer, Isendbuf As Long, Irecvbuf As Long)
    If txbool = 1 Then
        tx_rollback
    End If
    
    ' 할당된 버퍼 해제 '
    Call fbfree(ByVal Isendbuf&)
    Call fbfree(ByVal Irecvbuf&)
    
    ' tpend 실행 함수 '
    tmaxEnd
    
    Exit Sub
    
End Sub

' tpstart '
Private Sub tmaxStart()
    Dim ret As Integer
    
    ' 환경설정 파일을 불러옵니다. '
    ' atmi.bas 파일에 정의되있습니다. '
    ' Declare Function tmaxreadenv Lib "TMAX4GL.DLL"(ByVal envfile As String, 
                                                    ByVal label As String) As Long'
    ' 자세한 설명은 Tmax Reference Guide를 참고하십시오. '
    ret = tmaxreadenv("C:\tmax.env", "aix5l389")
    If ret < 0 Then
        TmaxError ("tmaxreadenv")
        Exit Sub
    End If
    
    ret = tpstart(ByVal 0&)
    If ret = -1 Then
        LabelErr.Caption = "tpstart error = " & gettperrno()
        TmaxError ("tpstart")
        Exit Sub
    Else
        LabelErr.Caption = "tpstart return value = " & ret & " tpstart success"
    End If
    
End Sub
' tpend '
Private Sub tmaxEnd()
    Dim ret As Integer
    ret = tpend()
    If ret = -1 Then
        LabelErr.Caption = "tpend error = " & gettperrno()
        TmaxError ("tpend")
        Exit Sub
    Else
        LabelErr.Caption = "tpreturn return value = " & ret
    End If
    
End Sub

' 오라클에 대한 에러를 출력해주는 함수 '
Private Sub ViewErr(ByVal a As Long)

'E_TYPE     9009    long    -   -
'E_CODE     9010    long    -   -
'E_MSG      9011    string  -   -
'E_TMP      9012    long    -   -

    Dim typeL As Long
    Dim codeL As Long
    Dim msgS As String
    Dim tmpL As Long
    Dim Iret As Integer
            
    Iret = fbget_tu(ByVal a, ByVal fbget_fldkey("E_TYPE"), 0, typeL, 0)
           
    If Iret = -1 Then
        FdlErrorMsg ("fbget_tu")
        Exit Sub
    End If

    Iret = fbget_tu(ByVal a, ByVal fbget_fldkey("E_CODE"), 0, codeL, 0)
    If Iret = -1 Then
        FdlErrorMsg ("fbget_tu")
        Exit Sub
    End If
        
    Iret = GETVAR(ByVal a, "E_MSG", 0, msgS)
    Iret = fbget_tu(ByVal a, ByVal fbget_fldkey("E_TMP"), 0, tmpL, 0)
    If Iret = -1 Then
        FdlErrorMsg ("fbget_tu")
        Exit Sub
    End If
    MsgBox ("Error Type : "&typeL&" ,Code :"&codeL&" ,Message :"&msgS&" 
            ,Tmp : " & tmpL)

End Sub

다음은 사원관리 처리 프로그램의 예제이다.

<EmployeeMgr.vb>

Option Strict Off
Option Explicit On 

Imports WindowsApplication1.TmaxUtils.TmaxMacros

Public Class EmployeeMgr
    Inherits System.Windows.Forms.Form

    Public Shared EmpNo As Integer

#Region " Windows Form 디자이너에서 생성한 코드 "
#End Region

    Private Sub BtnExit_Click(ByVal sender As System.Object, 
                              ByVal e As System.EventArgs) Handles BtnExit.Click
        End
    End Sub

    Function getEmpNo()
        Return EmpNo
    End Function

    Protected Overrides Sub Finalize()
        MyBase.Finalize()
    End Sub

    Private Sub BtnSel_Click(ByVal sender As System.Object, 
                             ByVal e As System.EventArgs) Handles BtnSel.Click
        Dim EmpGrid As EmployeeGrid
        EmpGrid = New EmployeeGrid()

        Hide()
        EmpGrid.EmpNo = EditEmpNo.Text()
        EmpGrid.ShowDialog()
        Show()
    End Sub

    Private Sub BtnUdt_Click(ByVal sender As System.Object, 
                             ByVal e As System.EventArgs) Handles BtnUdt.Click

        Dim Isendbuf As Long
        Dim Irecvbuf As Long
        Dim Irbuflen As Long
        Dim Iret As Long
        Dim text As String
        Dim value As Long
        Dim dvalue As Double
        Dim svalue As Single
        Dim txbool As Integer ' 트랜잭션이 시작되면 1, 아니면 0 '

        ' tpstart '
        tmaxStart()

        ' 트랜잭션이 시작 유무 초기화 '
        txbool = 0

        If EditEmpNo.Text = "" Then
            MsgBox("사원번호를 입력해 주세요.")
            tmaxEnd()
            Exit Sub
        End If

        ' 보낼 데이터를 위한 버퍼 할당 '
        Isendbuf = fballoc(100, 1024)

        If Isendbuf = 0 Then
            Call fbfree(Isendbuf)
            tmaxEnd()
            Exit Sub
        End If

        ' 받을 데이터를 위한 버퍼 할당 '
        Irecvbuf = fballoc(100, 1024)

        If Irecvbuf = 0 Then
            Call fbfree(Irecvbuf)
            tmaxEnd()
            Exit Sub
        End If

        Iret = PUTLONG(Isendbuf, "EMPNO", 0, Trim(EditEmpNo.Text))
        If Iret = -1 Then
            Call ExitSub(txbool, Isendbuf, Irecvbuf)
        End If

        Iret = PUTVAR(Isendbuf, "ENAME", 0, Trim(EditName.Text))
        If Iret = -1 Then
            Call ExitSub(txbool, Isendbuf, Irecvbuf)
        End If

        Iret = PUTVAR(Isendbuf, "JOB", 0, Trim(EditJob.Text))
        If Iret = -1 Then
            Call ExitSub(txbool, Isendbuf, Irecvbuf)
        End If

        Iret = PUTLONG(Isendbuf, "MGR", 0, Trim(EditMgr.Text))
        If Iret = -1 Then
            Call ExitSub(txbool, Isendbuf, Irecvbuf)
        End If

        Iret = PUTVAR(Isendbuf, "DATE", 0, Trim(EditDate.Text))
        If Iret = -1 Then
            Call ExitSub(txbool, Isendbuf, Irecvbuf)
        End If

        Iret = PUTFLOAT(Isendbuf, "SAL", 0, Trim(EditSal.Text))
        If Iret = -1 Then
            Call ExitSub(txbool, Isendbuf, Irecvbuf)
        End If

        Iret = PUTFLOAT(Isendbuf, "COMM", 0, Trim(EditComm.Text))
        If Iret = -1 Then
            Call ExitSub(txbool, Isendbuf, Irecvbuf)
        End If

        Iret = PUTLONG(Isendbuf, "DEPTNO", 0, Trim(EditDept.Text))
        If Iret = -1 Then
            Call ExitSub(txbool, Isendbuf, Irecvbuf)
        End If

        ' 트랜잭션 시작 '
        Iret = tx_begin()
        If Iret = -1 Then
            txbool = 1
            Call ExitSub(txbool, Isendbuf, Irecvbuf)
        Else
            txbool = 1
        End If

        ' 수정 서비스를 요청 '
        Iret = tpcall("FDLUPDATE", Isendbuf, 0, Irecvbuf, Irbuflen, 0)

        LabelErr.Text = "sbuf = " & Isendbuf & ", rbuf = " & Irecvbuf

        If Iret < 0 Then
            ViewErr(Irecvbuf)
            Call ExitSub(txbool, Isendbuf, Irecvbuf)
        End If

        ' 할당된 버퍼 해제 

        ' 트랜잭션 저장 '
        Iret = tx_commit()
        If Iret < 0 Then
            Call ExitSub(txbool, Isendbuf, Irecvbuf)
        Else
            txbool = 0
            Call ExitSub(txbool, Isendbuf, Irecvbuf)
        End If

    End Sub

    Private Sub BtnDel_Click(ByVal sender As System.Object, 
                             ByVal e As System.EventArgs) Handles BtnDel.Click

        Dim Isendbuf As Integer
        Dim Irecvbuf As Integer
        Dim Irbuflen As Long
        Dim Iret As Long
        Dim text As String
        Dim value As Long
        Dim dvalue As Double
        Dim svalue As Single
        Dim txbool As Integer ' 트랜잭션이 시작되면 1, 아니면 0 '

        ' tpstart '
        tmaxStart()

        ' 트랜잭션이 시작 유무 초기화 '
        txbool = 0

        If EditEmpNo.Text = "" Then
            MsgBox("사원번호를 입력해 주세요.")
            tmaxEnd()
            Exit Sub
        End If

        value = Trim(EditEmpNo.Text)


        ' 보낼 데이터를 위한 버퍼 할당 '
        Isendbuf = fballoc(100, 1024)

        If Isendbuf = 0 Then
            Call fbfree(Isendbuf)
            tmaxEnd()
            Exit Sub
        End If

        ' 받을 데이터를 위한 버퍼 할당 '
        Irecvbuf = fballoc(100, 1024)

        If Irecvbuf = 0 Then
            Call fbfree(Irecvbuf)
            tmaxEnd()
            Exit Sub
        End If

        Iret = PUTLONG(Isendbuf, "EMPNO", 0, value)
        If Iret = -1 Then
            Call ExitSub(txbool, Isendbuf, Irecvbuf)
        End If

        ' 트랜잭션 시작 '
        Iret = tx_begin()
        If Iret = -1 Then
            txbool = 1
            Call ExitSub(txbool, Isendbuf, Irecvbuf)
        Else
            txbool = 1
        End If

        ' 조회 서비스를 요청 '
        Iret = tpcall("FDLDELETE", Isendbuf, 0, Irecvbuf, Irbuflen, 0)
        If Iret = -1 Then
            ViewErr(Irecvbuf)
            Call ExitSub(txbool, Isendbuf, Irecvbuf)
        End If


        ' 트랜잭션 저장 '
        Iret = tx_commit()
        If Iret < 0 Then
            Call ExitSub(txbool, Isendbuf, Irecvbuf)
        Else
            txbool = 0
            Call ExitSub(txbool, Isendbuf, Irecvbuf)
        End If


    End Sub

    Private Sub BtnIns_Click(ByVal sender As System.Object, 
                             ByVal e As System.EventArgs) Handles BtnIns.Click


        Dim Isendbuf As Long
        Dim Irecvbuf As Long
        Dim Irbuflen As Long
        Dim Iret As Long
        Dim text As String
        Dim value As Long
        Dim dvalue As Double
        Dim svalue As Single
        Dim txbool As Integer ' 트랜잭션이 시작되면 1, 아니면 0 '

        ' tpstart '
        tmaxStart()

        ' 트랜잭션 시작 유무 초기화 '
        txbool = 0

        If EditEmpNo.Text = "" Then
            MsgBox("사원번호를 입력해 주세요.")
            tmaxEnd()
            Exit Sub
        End If

        ' 보낼 데이터를 위한 버퍼 할당 '
        Isendbuf = fballoc(100, 1024)

        If Isendbuf = 0 Then
            Call fbfree(Isendbuf)
            tmaxEnd()
            Exit Sub
        End If

        ' 받을 데이터를 위한 버퍼 할당 '
        Irecvbuf = fballoc(100, 1024)

        If Irecvbuf = 0 Then
            Call fbfree(Irecvbuf)
            tmaxEnd()
            Exit Sub
        End If

        Iret = PUTLONG(Isendbuf, "EMPNO", 0, Trim(EditEmpNo.Text))
        If Iret = -1 Then
            Call ExitSub(txbool, Isendbuf, Irecvbuf)
        End If

        Iret = PUTVAR(Isendbuf, "ENAME", 0, Trim(EditName.Text))
        If Iret = -1 Then
            Call ExitSub(txbool, Isendbuf, Irecvbuf)
        End If

        Iret = PUTVAR(Isendbuf, "JOB", 0, Trim(EditJob.Text))
        If Iret = -1 Then
            Call ExitSub(txbool, Isendbuf, Irecvbuf)
        End If

        Iret = PUTLONG(Isendbuf, "MGR", 0, Trim(EditMgr.Text))
        If Iret = -1 Then
            Call ExitSub(txbool, Isendbuf, Irecvbuf)
        End If

        Iret = PUTVAR(Isendbuf, "DATE", 0, Trim(EditDate.Text))
        If Iret = -1 Then
            Call ExitSub(txbool, Isendbuf, Irecvbuf)
        End If

        Iret = PUTFLOAT(Isendbuf, "SAL", 0, Trim(EditSal.Text))
        If Iret = -1 Then
            Call ExitSub(txbool, Isendbuf, Irecvbuf)
        End If

        Iret = PUTFLOAT(Isendbuf, "COMM", 0, Trim(EditComm.Text))
        If Iret = -1 Then
            Call ExitSub(txbool, Isendbuf, Irecvbuf)
        End If

        Iret = PUTLONG(Isendbuf, "DEPTNO", 0, Trim(EditDept.Text))
        If Iret = -1 Then
            Call ExitSub(txbool, Isendbuf, Irecvbuf)
        End If

        ' 트랜잭션 시작 '
        Iret = tx_begin()
        If Iret = -1 Then
            txbool = 1
            Call ExitSub(txbool, Isendbuf, Irecvbuf)
        Else
            txbool = 1
        End If

        ' 수정 서비스를 요청 '
        Iret = tpcall("FDLINSERT", Isendbuf, 0, Irecvbuf, Irbuflen, 0)

        If Iret = -1 Then
            ViewErr(Irecvbuf)
            Call ExitSub(txbool, Isendbuf, Irecvbuf)
        End If


        ' 트랜잭션 저장 '
        Iret = tx_commit()
        If Iret < 0 Then
            Call ExitSub(txbool, Isendbuf, Irecvbuf)
        Else
            txbool = 0
            Call ExitSub(txbool, Isendbuf, Irecvbuf)
        End If

    End Sub

    Private Sub ExitSub(ByVal txbool As Integer, ByVal Isendbuf As Integer, 
                        ByVal Irecvbuf As Integer)

        If txbool = 1 Then
            tx_rollback()
        End If

        ' 할당된 버퍼 해제 '
        Call fbfree(Isendbuf)
        Call fbfree(Irecvbuf)

        ' tpend '
        tmaxEnd()

        Exit Sub
    End Sub

    Private Sub tmaxStart()
        Dim ret As Integer
        Dim envFile As String

        ' 환경설정 파일을 불러옵니다. '
        ' atmi.bas 파일에 정의되어 있습니다. '
        ' Declare Function tmaxreadenv Lib "TMAX4GL.DLL" (ByVal envfile As String, 
                                                          ByVal label As String) 
                                                          As Long '
        ' 자세한 설명은 "Tmax Reference Guide"를 참고하십시오. '
        envFile = "C:\tmax.env"
        ret = tmaxreadenv(envFile, "aix5l389")
        If ret < 0 Then
            MsgBox("Tmaxreadenv Error" & envFile)
            Exit Sub
        End If

        ret = tpstart(0&)
        If ret = -1 Then
            LabelErr.Text = "tpstart error = " & gettperrno()
        Else
            LabelErr.Text = "tpstart return value = " & ret & " tpstart success"
        End If

    End Sub

    Private Sub tmaxEnd()
        Dim ret As Integer
        ret = tpend()
        If ret = -1 Then
            LabelErr.Text = "tpend error = " & gettperrno()
        Else
            LabelErr.Text = "tpreturn return value = " & ret
        End If

    End Sub

Oracle 에러 출력 화면

다음은 Oracle 에러 출력 화면이다.

다음은 Oracle 에러 출력 화면을 실행하는 데 필요한 환경 설정의 예제이다.

' Oracle에 대한 에러를 출력해 주는 함수 
    Private Sub ViewErr(ByVal a As Long)

        'E_TYPE       9009    long    -   -
        'E_CODE       9010    long    -   -
        'E_MSG        9011    string  -   -
        'E_TMP        9012    long    -   -

        Dim typeL As Long
        Dim codeL As Long
        Dim msgS As String
        Dim tmpL As Long
        Dim Iret As Integer

        GETLONG(a, "E_TYPE", 0, typeL)
        GETLONG(a, "E_CODE", 0, codeL)
        GETVAR(a, "E_MSG", 0, msgS)
        GETLONG(a, "E_TMP", 0, tmpL)
        MsgBox("Error Type : " & typeL & " ,Code : " & codeL & " ,Message : 
               " & msgS & " ,Tmp : " & tmpL)
    End Sub
End Class

조회 화면 Form 디자인 화면

다음은 조회 화면 Form 디자인 화면이다.

다음은 예제에서 사용할 조회 화면 Form 디자인 구성표이다.

다음은 사원관리 조회 화면 디자인 프로그램의 예제이다.

<EmployeeGrid.frm>

Option Strict Off
Option Explicit On 

Imports WindowsApplication1.TmaxUtils.TmaxMacros

Imports System.IO

Public Class EmployeeGrid
    Inherits System.Windows.Forms.Form

    Public Shared EmpNo As Integer

#Region " Windows Form 디자이너에서 생성한 코드 "
#End Region

    Private Sub BtnReturn_Click(ByVal sender As System.Object, 
                                ByVal e As System.EventArgs) Handles BtnReturn.Click
        Hide()
    End Sub

    Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)

        Dim Isendbuf, Isendlen As Integer
        Dim Irecvbuf, Irecvlen As Integer
        Dim Irbuflen As Long
        Dim Iret As Integer
        Dim text As String
        Dim value As Long
        Dim dvalue As Double
        Dim svalue As Single
        Dim lenL As Integer
        Dim initS, outputS As String
        Dim empnoS, enameS, jobS, mgrS, dateS, salS, commS, deptnoS As String
        Dim cntL As Long
        Dim eNo As Long
        Dim i As Integer
        Dim txbool As Integer ' 트랜잭션이 시작되면 1, 아니면 0 '

        ' tpstart '
        tmaxStart()

        ' 트랜잭션 시작 유무 초기화 '
        txbool = 0

        ' 보낼 데이터를 위한 버퍼 할당 '
        Isendbuf = fballoc(100, 1024)
        If Isendbuf = 0 Then
            Call fbfree(Isendbuf)
            tmaxEnd()
            Exit Sub
        End If

        ' 받을 데이터를 위한 버퍼 할당 '
        Irecvbuf = fballoc(100, 1024)
        If Irecvbuf = 0 Then
            Call fbfree(Irecvbuf)
            tmaxEnd()
            Exit Sub
        End If

        Iret = fbput(Isendbuf, fbget_fldkey("EMPNO"), EmpNo, lenL)
        If Iret = -1 Then
            FdlErrorMsg("fbput")
            Call ExitSub(txbool, Isendbuf, Irecvbuf)
        End If

        ' 조회 서비스를 요청 '
        Iret = tpcall("FDLSELECT", Isendbuf, 0, Irecvbuf, Irbuflen, 0)
        If Iret = -1 Then
            ViewErr(Irecvbuf)
            initS = vbCrLf & vbTab & vbTab & vbTab & "***** 검색결과 *****" 
                    & vbCrLf & vbTab & "==========================================" 
                    & vbCrLf & vbTab & "사원번호 이름 직책 담당임원 입사일 봉급 COMM 부서" 
                    & vbCrLf & vbTab & "==========================================" 
                    & vbCrLf & vbCrLf
            ListTextBox.Text = initS & " "
            LabelErr.Text = "SAL = " & dvalue
            Call ExitSub(txbool, Isendbuf, Irecvbuf)
        End If

        Iret = fbkeyoccur(Irecvbuf, fbget_fldkey("EMPNO"))

        For i = 0 To Iret - 1

            ' 리턴 받은 데이터를 텍스트 박스에 출력 '
            Iret = GETLONG(Irecvbuf, "EMPNO", i, value)
            If Iret = -1 Then
                Call ExitSub(txbool, Isendbuf, Irecvbuf)
            End If
            empnoS = value

            Iret = GETVAR(Irecvbuf, "ENAME", i, text)
            If Iret = -1 Then
                Call ExitSub(txbool, Isendbuf, Irecvbuf)
            End If
            enameS = text

            Iret = GETVAR(Irecvbuf, "JOB", i, text)
            If Iret = -1 Then
                Call ExitSub(txbool, Isendbuf, Irecvbuf)
            End If
            jobS = text

            Iret = GETLONG(Irecvbuf, "MGR", i, value)
            If Iret = -1 Then
                Call ExitSub(txbool, Isendbuf, Irecvbuf)
            End If
            mgrS = value

            Iret = GETVAR(Irecvbuf, "DATE", i, text)
            If Iret = -1 Then
                Call ExitSub(txbool, Isendbuf, Irecvbuf)
            End If
            dateS = text

            Iret = fbget_tu(Irecvbuf, fbget_fldkey("SAL"), i, svalue, 0)
            If Iret = -1 Then
                Call ExitSub(txbool, Isendbuf, Irecvbuf)
            End If
            salS = svalue

            Iret = fbget_tu(Irecvbuf, fbget_fldkey("COMM"), i, svalue, 0)
            If Iret = -1 Then
                Call ExitSub(txbool, Isendbuf, Irecvbuf)
            End If
            commS = svalue

            Iret = GETLONG(Irecvbuf, "DEPTNO", i, value)
            If Iret = -1 Then
                Call ExitSub(txbool, Isendbuf, Irecvbuf)
            End If
            deptnoS = value & vbCrLf

            outputS = outputS & "       " & empnoS & vbTab & enameS & vbTab & jobS 
                     & vbTab & mgrS & vbTab & dateS & vbTab & salS & vbTab & commS 
                     & vbTab & deptnoS

        Next i

        initS = vbCrLf & vbTab & vbTab & vbTab & "***** 검색결과 *****" 
                & vbCrLf & vbTab & "==========================================" 
                & vbCrLf & vbTab & "사원번호 이름 직책 담당임원 입사일 봉급 COMM 부서" 
                & vbCrLf & vbTab & "==========================================" 
                & vbCrLf & vbCrLf
        ListTextBox.Text = initS & outputS
        LabelErr.Text = "SAL = " & dvalue

        ' 할당된 버퍼 해제 '
        Call fbfree(Isendbuf)
        Call fbfree(Irecvbuf)

        ' tpend 실행 함수 '
        tmaxEnd()
    End Sub

    Private Sub ExitSub(ByVal txbool As Integer, ByVal Isendbuf As Integer, 
                        ByVal Irecvbuf As Integer)

        If txbool = 1 Then
            tx_rollback()
        End If

        ' 할당된 버퍼 해제 '
        Call fbfree(Isendbuf)
        Call fbfree(Irecvbuf)

        ' tpend '
        tmaxEnd()

        End
    End Sub

    Public Sub tmaxStart()
        Dim ret As Integer
        Dim envFile As String

        ' 환경설정 파일을 불러옵니다. '
        ' atmi.bas 파일에 정의 되있습니다. '
        ' Declare Function tmaxreadenv Lib "TMAX4GL.DLL" (ByVal envfile As String, 
                                                   ByVal label As String) As Long '
        ' 자세한 설명은 "Tmax Reference Guide"를 참고하십시오. '
        envFile = "C:\tmax.env"
        ret = tmaxreadenv(envFile, "aix5l389")
        If ret < 0 Then
            MsgBox("Tmaxreadenv Error : " & envFile)
            End
        End If

        ret = tpstart(0&)
        If ret = -1 Then
            MsgBox("Tpstart Error")
            End
        Else
            LabelErr.Text = "tpstart return value = " & ret & " tpstart success"
        End If

    End Sub

    Public Sub tmaxEnd()
        Dim ret As Integer
        ret = tpend()
        If ret = -1 Then
            MsgBox("Tpend Error")
            End
        Else
            LabelErr.Text = "tpreturn return value = " & ret
        End If
    End Sub

    Private Sub ViewErr(ByVal a As Long)

        'E_TYPE      9009    long    -   -
        'E_CODE      9010    long    -   -
        'E_MSG       9011    string  -   -
        'E_TMP       9012    long    -   -

        Dim typeL As Long
        Dim codeL As Long
        Dim msgS As String
        Dim tmpL As Long
        Dim Iret As Integer

        GETLONG(a, "E_TYPE", 0, typeL)
        GETLONG(a, "E_CODE", 0, codeL)
        GETVAR(a, "E_MSG", 0, msgS)
        GETLONG(a, "E_TMP", 0, tmpL)
        MsgBox("Error Type : " & typeL & " ,Code : " & codeL & " ,Message : 
               " & msgS & " ,Tmp : " & tmpL)

    End Sub
End ClassOption Strict Off
Option Explicit On 

Imports WindowsApplication1.TmaxUtils.TmaxMacros

Imports System.IO

Public Class EmployeeGrid
    Inherits System.Windows.Forms.Form

    Public Shared EmpNo As Integer

#Region " Windows Form 디자이너에서 생성한 코드 "

    Public Sub New()
        MyBase.New()

        '이 호출은 Windows Form 디자이너에 필요합니다.
        InitializeComponent()

        'InitializeComponent()를 호출한 다음에 초기화 작업을 추가하십시오.

    End Sub

    'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Windows Form 디자이너에 필요합니다.
    Private components As System.ComponentModel.IContainer

    '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
    'Windows Form 디자이너를 사용하여 수정할 수 있습니다.  
    '코드 편집기를 사용하여 수정하지 마십시오.
    Friend WithEvents BtnReturn As System.Windows.Forms.Button
    Friend WithEvents LabelErr As System.Windows.Forms.Label
    Protected WithEvents ListTextBox As System.Windows.Forms.TextBox
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.ListTextBox = New System.Windows.Forms.TextBox()
        Me.BtnReturn = New System.Windows.Forms.Button()
        Me.LabelErr = New System.Windows.Forms.Label()
        Me.SuspendLayout()
        '
        'ListTextBox
        '
        Me.ListTextBox.Location = New System.Drawing.Point(10, 12)
        Me.ListTextBox.Multiline = True
        Me.ListTextBox.Name = "ListTextBox"
        Me.ListTextBox.Size = New System.Drawing.Size(472, 272)
        Me.ListTextBox.TabIndex = 0
        Me.ListTextBox.TabStop = False
        Me.ListTextBox.Text = "TextBox" & Microsoft.VisualBasic.ChrW(13) 
                               & Microsoft.VisualBasic.ChrW(10) & "안녕"
        '
        'BtnReturn
        '
        Me.BtnReturn.Location = New System.Drawing.Point(392, 288)
        Me.BtnReturn.Name = "BtnReturn"
        Me.BtnReturn.Size = New System.Drawing.Size(88, 32)
        Me.BtnReturn.TabIndex = 1
        Me.BtnReturn.Text = "돌아가기"
        '
        'LabelErr
        '
        Me.LabelErr.Location = New System.Drawing.Point(20, 294)
        Me.LabelErr.Name = "LabelErr"
        Me.LabelErr.Size = New System.Drawing.Size(350, 23)
        Me.LabelErr.TabIndex = 2
        Me.LabelErr.Text = "Label1"
        '
        'EmployeeGrid
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(492, 323)
        Me.Controls.AddRange(New System.Windows.Forms.Control() 
                   {Me.LabelErr, Me.BtnReturn, Me.ListTextBox})
        Me.Name = "EmployeeGrid"
        Me.Text = "사원정보 목록"
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub BtnReturn_Click(ByVal sender As System.Object, 
                                ByVal e As System.EventArgs) Handles BtnReturn.Click
        Hide()
    End Sub

    Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)

        Dim Isendbuf, Isendlen As Integer
        Dim Irecvbuf, Irecvlen As Integer
        Dim Irbuflen As Long
        Dim Iret As Integer
        Dim text As String
        Dim value As Long
        Dim dvalue As Double
        Dim svalue As Single
        Dim lenL As Integer
        Dim initS, outputS As String
        Dim empnoS, enameS, jobS, mgrS, dateS, salS, commS, deptnoS As String
        Dim cntL As Long
        Dim eNo As Long
        Dim i As Integer
        Dim txbool As Integer ' 트랜잭션이 시작되면 1, 아니면 0 '

        ' tpstart '
        tmaxStart()

        ' 트랜잭션이 시작 유무 초기화 '
        txbool = 0

        ' 보낼 데이터를 위한 버퍼 할당 '
        Isendbuf = fballoc(100, 1024)
        If Isendbuf = 0 Then
            Call fbfree(Isendbuf)
            tmaxEnd()
            Exit Sub
        End If

        ' 받을 데이터를 위한 버퍼 할당 '
        Irecvbuf = fballoc(100, 1024)
        If Irecvbuf = 0 Then
            Call fbfree(Irecvbuf)
            tmaxEnd()
            Exit Sub
        End If

        Iret = fbput(Isendbuf, fbget_fldkey("EMPNO"), EmpNo, lenL)
        If Iret = -1 Then
            FdlErrorMsg("fbput")
            Call ExitSub(txbool, Isendbuf, Irecvbuf)
        End If

        ' 조회 서비스를 요청 '
        Iret = tpcall("FDLSELECT", Isendbuf, 0, Irecvbuf, Irbuflen, 0)
        If Iret = -1 Then
            ViewErr(Irecvbuf)
            initS = vbCrLf & vbTab & vbTab & vbTab & "***** 검색결과 *****" 
                  & vbCrLf & vbTab & "==========================================" 
                  & vbCrLf & vbTab & "사원번호 이름 직책 당당임원 입사일 봉급 COMM 부서" 
                  & vbCrLf & vbTab & "==========================================" 
                  & vbCrLf & vbCrLf
            ListTextBox.Text = initS & " "
            LabelErr.Text = "SAL = " & dvalue
            Call ExitSub(txbool, Isendbuf, Irecvbuf)
        End If

        Iret = fbkeyoccur(Irecvbuf, fbget_fldkey("EMPNO"))

        For i = 0 To Iret - 1

            ' 반환된 데이터를 텍스트 박스에 출력 '
            Iret = GETLONG(Irecvbuf, "EMPNO", i, value)
            If Iret = -1 Then
                Call ExitSub(txbool, Isendbuf, Irecvbuf)
            End If
            empnoS = value

            Iret = GETVAR(Irecvbuf, "ENAME", i, text)
            If Iret = -1 Then
                Call ExitSub(txbool, Isendbuf, Irecvbuf)
            End If
            enameS = text

            Iret = GETVAR(Irecvbuf, "JOB", i, text)
            If Iret = -1 Then
                Call ExitSub(txbool, Isendbuf, Irecvbuf)
            End If
            jobS = text

            Iret = GETLONG(Irecvbuf, "MGR", i, value)
            If Iret = -1 Then
                Call ExitSub(txbool, Isendbuf, Irecvbuf)
            End If
            mgrS = value

            Iret = GETVAR(Irecvbuf, "DATE", i, text)
            If Iret = -1 Then
                Call ExitSub(txbool, Isendbuf, Irecvbuf)
            End If
            dateS = text

            Iret = fbget_tu(Irecvbuf, fbget_fldkey("SAL"), i, svalue, 0)
            If Iret = -1 Then
                Call ExitSub(txbool, Isendbuf, Irecvbuf)
            End If
            salS = svalue

            Iret = fbget_tu(Irecvbuf, fbget_fldkey("COMM"), i, svalue, 0)
            If Iret = -1 Then
                Call ExitSub(txbool, Isendbuf, Irecvbuf)
            End If
            commS = svalue

            Iret = GETLONG(Irecvbuf, "DEPTNO", i, value)
            If Iret = -1 Then
                Call ExitSub(txbool, Isendbuf, Irecvbuf)
            End If
            deptnoS = value & vbCrLf

            outputS = outputS & "       " & empnoS & vbTab & enameS & vbTab & jobS & 
                 vbTab & mgrS & vbTab & dateS & vbTab & salS & vbTab & commS & 
                 vbTab & deptnoS

        Next i

        initS = vbCrLf & vbTab & vbTab & vbTab & "***** 검색결과 *****" 
                & vbCrLf & vbTab & "==========================================" 
                & vbCrLf & vbTab & "사원번호 이름 직책 담당임원 입사일 봉급 COMM 부서" 
                & vbCrLf & vbTab & "==========================================" 
                & vbCrLf & vbCrLf
        ListTextBox.Text = initS & outputS
        LabelErr.Text = "SAL = " & dvalue

        ' 할당된 버퍼 해제 '
        Call fbfree(Isendbuf)
        Call fbfree(Irecvbuf)

        ' tpend 실행 함수 '
        tmaxEnd()
    End Sub

    Private Sub ExitSub(ByVal txbool As Integer, ByVal Isendbuf As Integer, 
                        ByVal Irecvbuf As Integer)

        If txbool = 1 Then
            tx_rollback()
        End If

        ' 할당된 버퍼 해제 '
        Call fbfree(Isendbuf)
        Call fbfree(Irecvbuf)

        ' tpend '
        tmaxEnd()

        End
    End Sub

    Public Sub tmaxStart()
        Dim ret As Integer
        Dim envFile As String

        ' 환경설정 파일을 불러옵니다. '
        ' atmi.bas 파일에 정의되어 있습니다. '
        ' Declare Function tmaxreadenv Lib "TMAX4GL.DLL" (ByVal envfile As String, 
                                                   ByVal label As String) As Long '
        ' 자세한 설명은 "Tmax Reference Guide"를 참고하십시오. '
        envFile = "C:\tmax.env"
        ret = tmaxreadenv(envFile, "aix5l389")
        If ret < 0 Then
            MsgBox("Tmaxreadenv Error : " & envFile)
            End
        End If

        ret = tpstart(0&)
        If ret = -1 Then
            MsgBox("Tpstart Error")
            End
        Else
            LabelErr.Text = "tpstart return value = " & ret & " tpstart success"
        End If

    End Sub

    Public Sub tmaxEnd()
        Dim ret As Integer
        ret = tpend()
        If ret = -1 Then
            MsgBox("Tpend Error")
            End
        Else
            LabelErr.Text = "tpreturn return value = " & ret
        End If
    End Sub

    Private Sub ViewErr(ByVal a As Long)

        'E_TYPE     9009    long    -   -
        'E_CODE     9010    long    -   -
        'E_MSG      9011    string  -   -
        'E_TMP      9012    long    -   -

        Dim typeL As Long
        Dim codeL As Long
        Dim msgS As String
        Dim tmpL As Long
        Dim Iret As Integer

        GETLONG(a, "E_TYPE", 0, typeL)
        GETLONG(a, "E_CODE", 0, codeL)
        GETVAR(a, "E_MSG", 0, msgS)
        GETLONG(a, "E_TMP", 0, tmpL)
        MsgBox("Error Type : " & typeL & " ,Code : " & codeL & " ,Message : 
                " & msgS & " ,Tmp : " & tmpL)

    End Sub
End Class

서비스 프로그램

다음은 서비스를 하는 서버 프로그램의 예제이다.

<emp_c.pc>

#include <stdio.h>
#include <ctype.h>
#include <tuxinc/macro.h>
#include "../../fdl/demo_fdl.h"

EXEC SQL include sqlca.h;
EXEC SQL INCLUDE ORACA;
EXEC ORACLE  OPTION (ORACA=YES);
EXEC ORACLE  OPTION (RELEASE_CURSOR=YES);

#define INP   1
#define ORA   2
#define TMX   3
#define APP   4

EXEC SQL begin declare section;
int  h_empno;
char h_ename[11];
char h_job[10];
int  h_mgr;
char h_date[11];
float h_sal;
float h_comm;
int  h_deptno;
EXEC SQL end declare section;

void svc_error(long type, long err_code, char *msg, long tmp);

FDLINSERT( TPSVCINFO *msg )
{
        FBUF *rcvbuf;
        int i, occurrence;
        rcvbuf = (FBUF *)msg->data;
        h_empno = h_mgr = h_sal = h_comm = h_deptno = 0;
        
        memset( h_ename, 0x00, sizeof( h_ename ) );
        memset( h_job, 0x00, sizeof( h_job ) );
        memset( h_date, 0x00, sizeof( h_date ) );
        
        occurrence = fbkeyoccur(rcvbuf, EMPNO);
        
        for (i=0; i< occurrence; i++){
             fbget_tu ( rcvbuf, EMPNO, i, (char *)&h_empno, 0 );
             fbget_tu ( rcvbuf, MGR,   i, (char *)&h_mgr, 0 );
             fbget_tu ( rcvbuf, SAL,   i, (char *)&h_sal, 0 );
             fbget_tu ( rcvbuf, COMM,  i, (char *)&h_comm, 0 );
             fbget_tu ( rcvbuf, DEPTNO,i, (char *)&h_deptno, 0 );
             fbget_tu ( rcvbuf, ENAME, i, (char *)h_ename, 0 );
             fbget_tu ( rcvbuf, JOB  , i, (char *)h_job, 0 );
             fbget_tu ( rcvbuf, DATE , i, (char *)h_date, 0 );
                
             EXEC SQL INSERT 
             INTO emp( empno, ename, job, mgr, hiredate, sal,comm, deptno)
             VALUES ( :h_empno, :h_ename, :h_job, :h_mgr, 
                       to_date(:h_date,'yyyymmdd'), :h_sal, :h_comm, :h_deptno );
        }
        
        if(sqlca.sqlcode != 0)
           goto LB_DBERROR;
        
        EXEC SQL WHENEVER SQLERROR
           goto LB_DBERROR;
        
        tpreturn(TPSUCCESS, 0L, (char *)rcvbuf, 0L, 0L);
        
        LB_DBERROR :
            EXEC SQL WHENEVER SQLERROR CONTINUE;
            svc_error(ORA, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc, 0) ;
}


FDLDELETE( TPSVCINFO *msg )
{
        FBUF *rcvbuf;
        int i, occurrence;

        rcvbuf = ( FBUF *)msg->data;
        occurrence = fbkeyoccur(rcvbuf, EMPNO);

        for (i=0; i< occurrence; i++){
             fbget_tu (rcvbuf, EMPNO, i, (char *)&h_empno , 0);

             EXEC SQL DELETE
             FROM emp
             WHERE empno = :h_empno;
        }        
        if(sqlca.sqlcode != 0)
           goto LB_DBERROR;

        EXEC SQL WHENEVER SQLERROR
           goto LB_DBERROR ;

        EXEC SQL WHENEVER NOT FOUND
           goto LB_DBERROR ;

        tpreturn(TPSUCCESS, 0L, (char *)rcvbuf, 0L, 0L);

        LB_DBERROR :
            EXEC SQL WHENEVER SQLERROR CONTINUE;
            svc_error(ORA, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc, 0) ;
}

FDLSELECT( TPSVCINFO *msg )
{
        FBUF *rcvbuf;
        FLDLEN fldlen;
        int i=0, ROWMEM=200, CHKROW=500;

        rcvbuf = (FBUF *)msg->data;

        if((rcvbuf=(FBUF *)tprealloc((char *)rcvbuf,ROWMEM*CHKROW))==NULL){
            rcvbuf=(FBUF *)msg->data;
            goto LB_TMAXERROR ;
        }

        h_empno = h_mgr = h_sal = h_comm = h_deptno = 0;

        memset( h_ename, 0x00, sizeof( h_ename ) );
        memset( h_job, 0x00, sizeof( h_job ) );
        memset( h_date, 0x00, sizeof( h_date ) );

        fbget_tu( rcvbuf, EMPNO, 0, (char *)&h_empno, &fldlen);

        EXEC SQL DECLARE DB_CUR CURSOR FOR
        SELECT  nvl(empno,0), nvl(ename,' '), nvl(job,' '), 
                nvl(to_char(hiredate,'yyyymmdd'),' '),  nvl(mgr,0), 
                nvl(sal,0), nvl(comm,0), nvl(deptno,0)
        FROM  emp
        WHERE empno >= :h_empno-50 AND empno <= :h_empno+50;
        EXEC SQL OPEN DB_CUR;

        if(sqlca.sqlcode != 0)
           goto LB_DBERROR;
        EXEC SQL WHENEVER SQLERROR
           goto LB_DBERROR ;
        EXEC SQL WHENEVER NOT FOUND
           Do break ;

        while(1) {
                EXEC SQL FETCH DB_CUR
                INTO    :h_empno,
                        :h_ename,
                        :h_job,
                        :h_date,
                        :h_mgr,
                        :h_sal,
                        :h_comm,
                        :h_deptno;

                fbchg_tu(rcvbuf, EMPNO,  i,(char *)&h_empno, 0);
                fbchg_tu(rcvbuf, MGR,    i,(char *)&h_mgr, 0);
                fbchg_tu(rcvbuf, SAL,    i,(char *)&h_sal, 0);
                fbchg_tu(rcvbuf, DEPTNO, i,(char *)&h_deptno, 0);
                fbchg_tu(rcvbuf, COMM,   i,(char *)&h_comm, 0);
                fbchg_tu(rcvbuf, ENAME,  i,(char *)h_ename, 0);
                fbchg_tu(rcvbuf, JOB,    i,(char *)h_job, 0);
                fbchg_tu(rcvbuf, DATE,   i,(char *)h_date, 0);

                i++;
        }

        if (i < 1) goto LB_DBERROR;

        EXEC SQL CLOSE DB_CUR;

        tpreturn(TPSUCCESS, 0L, (char *)rcvbuf, 0L, 0L);

        LB_DBERROR :
            EXEC SQL WHENEVER SQLERROR CONTINUE;
            EXEC SQL CLOSE DB_CUR ;
            svc_error(ORA, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc, 0L) ;

        LB_TMAXERROR :
            EXEC SQL WHENEVER SQLERROR CONTINUE;
            EXEC SQL CLOSE DB_CUR ;
            svc_error(TMX, tperrno, "", 0L) ;
}

FDLUPDATE( TPSVCINFO *msg )
{
        
        FBUF *rcvbuf ;
        int i, occurrence;
        rcvbuf = (FBUF *)msg->data;
        h_empno = h_mgr = h_sal = h_comm = h_deptno = 0;

        memset( h_ename, 0x00, sizeof( h_ename ) );
        memset( h_job, 0x00, sizeof( h_job ) );
        memset( h_date, 0x00, sizeof( h_date ) );

        occurrence = fbkeyoccur(rcvbuf, EMPNO);
        
        for (i=0; i< occurrence; i++){
             fbget_tu ( rcvbuf, EMPNO, i, (char *)&h_empno, 0);
             fbget_tu ( rcvbuf, ENAME, i, (char *)h_ename, 0);
             fbget_tu ( rcvbuf, JOB,   i, (char *)h_job, 0);
             fbget_tu ( rcvbuf, MGR,   i, (char *)&h_mgr, 0);
             fbget_tu ( rcvbuf, SAL,   i, (char *)&h_sal, 0);
             fbget_tu ( rcvbuf, COMM,   i, (char *)&h_comm,0);
             fbget_tu ( rcvbuf, DEPTNO,   i, (char *)&h_deptno,0);
             fbget_tu ( rcvbuf, DATE , i, (char *)h_date, 0 );

             EXEC SQL UPDATE emp
             SET ename = nvl(:h_ename, ename),
                 job   = nvl(:h_job, job),
                 mgr   = :h_mgr,
                 hiredate  = nvl(to_date(:h_date,'yyyymmdd'),hiredate),
                 sal   = :h_sal,
                 comm  = :h_comm,
                 deptno = :h_deptno
             WHERE empno = :h_empno;
        
            if(sqlca.sqlcode != 0)
               goto LB_DBERROR;
                
            EXEC SQL WHENEVER SQLERROR
               goto LB_DBERROR;

            EXEC SQL WHENEVER NOT FOUND
               goto LB_DBERROR;
        }
            tpreturn(TPSUCCESS, 0L, (char *)rcvbuf, 0L, 0L);

        LB_DBERROR :
            EXEC SQL WHENEVER SQLERROR CONTINUE;
            svc_error(ORA, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc, 0L) ;
}

/*********************************************************************
 * 에러처리 :  서비스에서 오류가 발생하면 그 오류를 버퍼에 넣어 클라이언트로 보내준다. 
 ********************************************************************/
void svc_error(long type, long err_code, char *msg, long tmp) {
        FBUF *transf;
        char *svcname;
        char err_msg[100];
        char temp[100];
        int i = 0;

        printf("type     ==>[%ld]\n", type); 
        printf("err_code ==>[%ld]\n", err_code);
        printf("msg      ==>[%s]\n",  msg);        
        strcpy(err_msg, msg);

        if ((transf = (FBFR *)tpalloc("FML", NULL, 0)) == NULL) {
             printf("tpalloc failed! errno = %d\n", tperrno);
        }

        switch(type) {
            case INP:
                switch(err_code) {
                       case -1000:
                            strcpy(err_msg,"해당 사용자에게 권한이 없습니다.");
                            break;
                       default:
                            strcpy(err_msg,
                                  "Input Error Message가 등록되어 있지 않습니다.");
                }
                break;
            case ORA:
                if (strlen(err_msg)== 0) strcpy(err_msg, sqlca.sqlerrm.sqlerrmc);
                break; 
            case TMX:
                if (strlen(err_msg)== 0) strcpy(err_msg, tpstrerror(tperrno));
                break;
            case APP:
                if (strlen(err_msg)== 0) {
                    /* err_mssg=""이면 오류 메시지를 setting한다. ******/
                    switch(err_code) {
                           case -500:        /* SYSTEM 관련 오류 */
                                 strcpy(err_msg, "File 생성 오류입니다.");
                                 break;
                           case -502:        
                                 strcpy(err_msg,"내부 서비스를 호출하지 못했습니다.");
                                 break;
                           case -504:
                                 strcpy(err_msg, "소켓 통신 오류입니다.");
                                 break;
                           case -505:  /* 다른 transation에서 수정되었을 경우 MSG처리*/
                                 /* "조회 이후에 다른 곳에서 [%s]자료가 변경되었습니다.
                                 \n\n다시 조회한 후 처리하십시오.": CLIENT에서 처리*/
                                 strcpy(err_msg,   "이 없습니다.");
                                 break;
                           case -5002: 
                                 strcpy(err_msg, "전산실에 문의하십시오.");
                                 break;
                           default:
                                 strcpy(err_msg, 
                                 "Application Error Message가 등록되어 있지 않습니다.");
                    }
                }
                break;
        }

        /* ROLLBACK        */
        EXEC SQL WHENEVER SQLERROR CONTINUE;
        EXEC SQL ROLLBACK;

        fbchg_tu ( transf, E_TYPE, i, (char *)&type,0);
        fbchg_tu ( transf, E_CODE, i, (char *)&err_code,0);
        fbchg_tu ( transf, E_MSG, i, (char *)err_msg,0);
        fbchg_tu ( transf, E_TMP, i, (char *)&tmp,0);

        tpreturn(TPFAIL, 0, (char *)transf, 0L, 0L);
}

Makefile

다음은 <emp_c.pc> 소스를 Tmax 애플리케이션으로 만드는 Makefile의 예제이다.

<emp_c.mk>

include $(ORACLE_HOME)/precomp/lib/env32.mk
ORALIBDIR = $(LIBHOME)
ORALIB = -L/home/oracle/OraHome/lib32/ -lclntsh  -lld -lm 
          `cat /home/oracle/OraHome/lib32/sysliblist`  -lm  -lc_r -lpthreads
TARGET = emp_c
APOBJS = emp_c.o 
NSDLOBJ = $(TMAXDIR)/lib/sdl.o
#CC
CC=cc

#Oracle
LIBS = -lsvr -loras

OBJS = $(APOBJS) $(SVCTOBJ) 
SVCTOBJ = $(TARGET)_svctab.o 

CFLAGS  = -q32 -O -I$(TMAXDIR)
LDFLAGS = -brtl
APPDIR  = $(TMAXDIR)/appbin
SVCTDIR = $(TMAXDIR)/svct
TMAXLIBDIR  = $(TMAXDIR)/lib
 #
.SUFFIXES : .c

.c.o: 
           $(CC) $(CFLAGS) $(LDFLAGS) -c $<

all: $(TARGET) 

$(TARGET): $(OBJS)
           $(CC) $(CFLAGS) $(LDFLAGS) -L$(TMAXLIBDIR) -o $(TARGET) 
           -L$(ORALIBDIR) $(ORALIB) $(OBJS) $(LIBS) $(NSDLOBJ)
            mv $(TARGET) $(TMAXDIR)/appbin

$(APOBJS): $(TARGET).pc
            proc iname=emp_c include=$(TMAXDIR) define=__LINUX_ORACLE_PROC__
            $(CC) $(CFLAGS) $(LDFLAGS) -c $(TARGET).c

$(SVCTOBJ):
            touch $(SVCTDIR)/$(TARGET)_svctab.c
            $(CC) $(CFLAGS) $(LDFLAGS) -c $(SVCTDIR)/$(TARGET)_svctab.c
#
clean:
            -rm -f *.o core $(TARGET) $(TARGET).lis