데이터 문자열을 만드는 함수이다.

DataWindow(혹은 DataWindowChild, DataStore)에 있는 Column명과 Data를 TAB("~t")으로 구분하고, 각 Column명-Data 쌍은 NewLine("~n")으로 구분하는 문자열을 만든다. 이 문자열은 pb_tpcall에서 input 부분에 사용할 수 있다. DataWindow, DataWindowChild, DataStore의 데이터 중 수정된 Row만 꺼내온다.

f_datadel()은 DataWindow의 DeletedBuffer에서 데이터 문자열을 만드는 함수로, DataWindow(혹은 DataWindowChild, DataStore)에 있는 Column명과 data를 TAB("~t")으로 구분하고, 각 Column명-Data 쌍은 NewLine("~n")으로 구분하는 문자열을 만든다. 이 문자열은 pb_tpcall에서 input 부분에 사용할 수 있다.

f_data()는 dwDelBuf 변수가 TRUE 일 경우 DeletedBuffer의 data도 함께 문자열을 만드는 반면에 f_datadel()은 dwDelBuf 변수의 상태에 관계없이 DeletedBuffer의 데어터에 대해서만 문자열로 만든다. DeletedBuffer는 사용자가 DeleteRow() 함수를 사용할 때 삭제될 데이터가 임시로 보관되는 버퍼로 f_datadel()이 정상적으로 동작하기 위해서는 DataWindow가 update 가능해야 한다.

DeleteRow를 했을 때 DeletedBuffer에 데이터가 들어가기 위해서는 다음 사항을 주의해야 한다.

– DataWindow의 'Allow Update' (Power Builder의 [Rows] > [Update Properties..] 메뉴 참조)가 체크되어 있어야 한다.

– ImportString을 수행한 후에 ResetUpdate를 하지 않고 DeleteRow를 한 경우에는 DeleteBuffer에 해당 Row가 저장되지 않는다.

데이터 문자열을 만드는 함수로 DataWindow(혹은 DataWindowChild, DataStore)의 데이터 중 수정된 Row만을 꺼내온다. DataWindow에 있는 수정된 Row의 Column명과 데이터를 f_data와 동일한 포맷으로 filehandle값의 파일에 기록한다. 즉, Column명과 데이터는 TAB("~t")으로 구분하고, 각 Column명-Data 쌍은 NewLine("~n")으로 구분하는 문자열을 만든다.

데이터 문자열을 만드는 함수로 DataWindow(혹은 DataWindowChild, DataStore)의 데이터 중 DeleteBuffer에 저장되어 있는 Row만을 꺼내온다. DataWindow에 있는 수정된 Row의 Column명과 데이터를 f_data와 동일한 포맷으로 filehandle값의 파일에 기록한다. 사용 방법은 f_data() 함수를 참고한다.

DeleteRow를 했을 때 DeletedBuffer에 데이터가 들어가기 위해서는 다음 사항을 주의해야 한다.

- DataWindow의 "Allow Update" (Power Builder의 [Rows] > [Update Properties..] 메뉴 참조)가 체크되어 있어야 한다.

- ImportString을 수행한 후에 ResetUpdate를 하지 않고 DeleteRow를 한 경우에는 DeleteBuffer에 해당 Row가 저장되지 않는다.

Form 문자열을 만드는 함수로 DataWindow(혹은 DataWindowChild, DataStore)에 있는 Column명을 pb_tpcall의 4번째 인수에서 사용할 수 있는 형태의 문자열로 반환한다.

각 Column명을 NewLine("~n")으로 구분하여 나열하고 마지막에 NewLine("~n")을 하나 더 추가한 문자열을 만든다.

Form과 동일한 구성으로 이루어진 output 내용 중 arg_row번째 배열의 arg_col_name의 값을 문자열로 반환하는 함수이다.

Blocking 상태인지를 검사하는 함수이다. Blocking 상태란 서비스를 호출하고 있는 중이라는 의미이다.

서비스를 호출하고 있는 상태에서는 다른 서비스를 호출할 수 없다. 서비스를 호출하고 있는 동안 다른 버튼을 클릭하거나 혹은 버튼을 2번 클릭해서 서비스를 다시 호출하려면 에러가 발생한다. 따라서 서비스를 호출하는 버튼에서는 가장 처음에 이 함수를 호출하여 수행 중이면 대기하라는 메시지를 보내는 것이 바람직하다.

함수의 사용 방법은 pb_tpcall과 동일하며 기존의 pb_tpcall이 가진 기능 외에 이미지 데이터를 처리하기 위한 함수이다. 이 경우에는 반드시 FIELD KEY 버퍼를 사용해야 하며 특정 필드명을 사용해야 하는 제약사항이 있다. 이미지 데이터를 송신할 때에는 "FILENAM", 이미지 데이터를 수신할 때는 "NEWFILE"이라는 필드명으로 파일이 지정되어야 한다. 그리고 실질적인 이미지 데이터는 TP_BITMAP이라는 CARRAY형의 필드명으로 전송된다.

이미지를 송신할 때에는 전송할 파일명을 "FILENAM"이라는 필드명으로 input에 지정되어야 하며(이 데이터는 4M 이상이 되어도 처리될 수 있다), 클라이언트 라이브러리에서는 이 필드명으로 지정된 파일에서 이미지 데이터를 읽어 들여 "TP_BITMAP"이라는 필드명으로 데이터를 실어 서버에 보낸다.

이미지를 수신할 때에는 서버에서 보내는 이미지 데이터를 저장할 파일명을 "NEWFILE"이라는 필드명으로 idata에 지정해야 한다. 서비스 프로그램 내에서는 "TP_BITMAP"라는 필드명으로 데이터를 실어 보내고 클라이언트 라이브러리에서는 "NEWFILE" 필드명으로 지정된 파일에 이미지 데이터를 저장한다. 이 경우 수신 버퍼 내에 "NEWFILE" 필드명으로 데이터가 존재해야 한다.

비요청 메시지를 수신하기 위한 함수이다. Power Builder에서는 라이브러리 내의 메모리에 접근할 수 없다. 따라서 비요청 메시지를 수신하기 위해서 Power Builder에서 메모리를 확보하여 이를 라이브러리에 전달하여 수신해야 한다.

비요청 메시지를 수신하면 pb_tpsetunsol()에서 설정된 윈도우에 mid와 데이터의 길이를 전달한다. 해당 윈도우에서는 데이터의 길이만큼 메모리를 확보하여 pb_getunsold() 함수를 호출하면 지정된 메모리에 데이터를 저장한다. pb_tpsetunsol(), pb_getunsold()를 사용하여 비요청 수신 메시지를 받을 때는 반드시 u_tmax의 instance 변수인 flags에 TPUNSOL_HND로 설정을 한 후 pb_tpstart()를 한다.

Blocking 상태인지 검사하는 함수이다. Blocking 상태란 서비스를 호출하고 있는 중이라는 의미이다.

서비스를 호출하고 있는 상태에서는 다른 서비스를 호출할 수 없다. 서비스를 호출하고 있는 동안 다른 버튼을 클릭하거나 혹은 버튼을 2번 클릭해서 서비스를 다시 호출하면 에러가 발생한다. 따라서 서비스를 호출하는 버튼에서는 가장 처음에 이 함수를 호출하여 수행 중이면 대기하라는 메시지를 보내는 것이 바람직하다.

pb_reset는 현재 접속된 연결을 즉시 해제하는 함수이다. 클라이언트 모듈에 TPESYSTEM 에러가 발생하는 경우는 거의 네트워크 오류이므로 Tmax 시스템에 재접속하는 것을 권장한다. pb_reset() 함수는 이런 경우 사용된다. 우선 pb_reset()으로 접속을 해제하고, 서비스를 재요청하거나 Tmax 시스템을 다시 연결한다.

pb_tmaxreadenv()는 파일에 저장된 접속할 시스템의 정보를 읽어서 환경변수에 새로운 값을 설정하는 함수이다. Tmax 시스템과 접속하기 위한 정보를 환경변수에 설정하기 때문에 이 함수는 Tmax 시스템에 접속하기 전에 수행되어야 한다. Tmax 시스템과 접속하기 위해서는 몇 가지 환경변수를 시스템에 등록해야 한다. 이렇게 등록된 환경변수를 참조하여 pb_tpstart()로 Tmax 시스템과 연결한다.

일반적으로 환경변수는 운영체제에 따라 정의하는 파일이 달라진다. UNIX의 경우 csh는 <.cshrc>에, ksh는 <.profile>에 정의하고, DOS의 경우에는 <autoexec.bat> 파일에 정의한다. 그러나 접속할 시스템이 2개 이상일 경우 클라이언트는 상황에 따라 접속하고자 하는 시스템을 변경할 수 있다. 또는 관리상의 문제로 환경변수 파일을 이용하는 경우가 있다. 이 경우 환경변수에 2개의 시스템에 대한 정보를 등록할 수 없으므로 파일에 환경변수를 등록하여 사용할 수 있다.

[TMAX]
TMAX_HOST_ADDR=168.126.185.131
TMAX_HOST_PORT=8800
SDLFILE=C:\tmax\sample\sdl\tmax.sdl
FDLFILE=C:\tmax\sample\fdl\tmax.fdl
TMAX_CONNECT_TIMEOUT=2

비동기 서비스 호출을 수행하는 함수로, 비동기형 통신은 클라이언트가 서비스를 요청하고 다른 일을 계속할 수 있으며, 응답을 받고자 할 때 해당 요청에 대한 응답을 받는다. 요청에 대한 응답을 받을 때(pb_tpgetrply())는 pb_tpacall()을 호출할 때 반환되는 참조 구별자를 사용한다. 서비스를 요청하는 pb_tpacall()은 호출할 때 즉시 반환되어 다른 일을 처리할 수 있다. 응답을 받기 위해 호출하는 pb_tpgetrply()는 응답이 도착하거나 Timeout될 때까지 Blocking되어 기다린다.

pb_tpalloc()은 itype으로 지정된 유형의 버퍼를 할당하고 그에 대한 주소를 반환하는 함수로 <tmax4gl.dll>의 tpalloc()을 호출한다. 유형에 따라 isubtype과 ilen은 선택적으로 지정할 수 있으며 이후 새로 생성된 pb_b~ 함수와 pb_tpput, pb_tpget 등의 함수의 buf 인자에 사용하게 된다.

지정된 버퍼 유형이 하위 유형을 사용할 수 있다면, pb_tpalloc()을 호출할 경우 반드시 isubtype을 지정해야 한다. 지정된 버퍼 유형이 하위 유형을 사용하지 않는다면, subtype은 무시된다(보통 0이 사용된다). 할당된 버퍼의 크기는 기본 크기인 1024Byte 이상이다.

지정한 클라이언트에 메시지를 전달하는 함수이다.

동기 처리 함수로, 처리 결과를 받을 때까지 대기한다. 처리할 데이터를 idata에 저장하고 지정된 서비스를 svcname에 입력한 뒤 서비스를 호출한다. 처리된 결과는 Form에 지정된 column의 데이터로 odata에 저장된다.

DataWindow를 사용하여 동기형으로 Tmax 서비스를 호출하기 위한 함수이다. iobject에 지정된 PowerObject를 입력하여 서비스를 호출한 후, 반환된 결과를 oobject에 지정된 PowerObject에 넣는다. 이 함수는 FIELD 버퍼를 사용한다.

pb_tpcancel()은 pb_tpacall()로 반환된 구별자를 취소하는 함수로, 호출한 서비스에 대해 수신을 취소한다. 전역 트랜잭션에 해당되는 구별자를 취소하려고 하면 에러가 발생하며, 호출이 성공하면 cd를 더 이상 사용할 수 없다. 이 함수를 이용하여 수신을 취소한 경우에는 해당 트랙잭션은 Commit할 수 없고 Rollback만 가능하다.

트랜잭션의 작업을 Commit하는 데 사용되는 함수이다.

pb_tpconnect()는 대화형 서비스와 통신을 연결하는 함수로 연결된 서버와 클라이언트는 쌍방향으로 pb_tpsend(), pb_tprecv()로 데이터를 주고받는다.

cd에 의해 지정된 대화형 서비스에 대해 메시지를 송수신하는 함수이다. tp_conv()는 Tmax에서 지원하는 버퍼 유형 중 FIELD 버퍼를 사용한다.

pb_tpdiscon()은 대화의 연결을 강제로 해제하고, TPEV_DISCONIMM 이벤트를 발생시키는 함수로, 대화형 통신을 시작한 측에서만 호출할 수 있다.

Tmax 시스템과의 접속을 해제하는 함수이다.

pb_tpcall() 함수를 확장한 형태로 파일로부터 입력 데이터를 받아들일 수 있으며 결과 데이터를 파일에 저장할 수 있다. Tmax에서 지원하는 버퍼 유형 중 FILED 버퍼를 사용하며 결과 데이터 중 form에 지정된 필드의 데이터는 output에 저장되며 fform에 지정된 필드의 데이터는 fodata의 파일에 저장된다.

pb_tpfree()는 pb_tpalloc()으로 얻은 버퍼를 해제하는 함수이다.

tpfree()는 버퍼를 해제하기 전에 이와 관련된 정보도 제거한다. pb_tpfree()가 정상적으로 수행되면 buf는 XATMI 루틴에 파라미터로 전달될 수 없으며 다른 방식으로 사용될 수 없다.

첫 번째 파라미터에서 지정한 주소에 해당하는 데이터를 두 번째 파라미터에서 지정한 버퍼에 세 번째 파라미터에서 지정한 size만큼 읽어 오는 함수이다.

Power Builder에서는 char *라는 주소 개념이 없기 때문에 long형의 주소를 <pb.dll>에 전달하게 되며 <pb.dll>로부터 해당 주소에 있는 string 데이터를 받아 두 번째 파라미터로 입력한다.

pb_tpacall()에서 보낸 요청에 대한 응답을 받는 데 사용하는 함수로, 기본적으로 Blocking 통신이다. 일단 호출하면 응답을 받거나 Blocking Timeout이 발생할 때까지 기다린다. Timeout이 발생하면 호출은 실패하고 tperrno에 TPETIME가 설정된다.

비요청 수신 메시지를 처리하기 위한 함수로 pb_tpsetunsol()과 다르게 Blocking될 수 있으므로 사용할 경우 주의한다. 자세한 사항은 “Tmax Reference Guide”의 “3.3.5. tpgetunsol”을 참고한다.

첫 번째 파라미터에서 지정한 주소에 두 번째 파라미터로 지정한 데이터를 세 번째 파라미터로 지정한 size만큼 저장하는 함수이다.

pb_tprecv()는 대화형 통신에서 데이터를 수신하는 데 사용된다. 호출자는 반드시 통신 제어권을 가지고 있지 않아야 한다.

pb_tpreset()은 현재 접속된 연결을 즉시 해제하는 함수이다. 클라이언트 모듈에 TPESYSTEM 에러가 발생하는 경우는 거의 네트워크 오류이므로 Tmax 시스템에 재접속하는 것이 좋다. 이 경우 pb_tpreset()을 사용하여 접속된 연결을 해제하고 서비스를 재요청하거나 Tmax 시스템에 다시 접속한다.

pb_tpsend()는 대화형 통신에서 상대방에게 데이터를 송신하는 데 사용되는 함수로, 호출자는 반드시 통신 제어권을 가지고 있어야 한다.

pb_tpset_timeout()은 서버에 설정되어 있는 서비스 제한시간, Blocking Timeout 시간을 변경할 때 사용하는 함수로, 서비스 제한시간을 설정한 경우 arg_timeout 동안 서비스 요청에 대한 응답을 기다린다. arg_timeout에 설정된 시간이 지나도록 응답을 수신하지 못하면 Timeout 에러를 발생하고, 요청한 서비스에 대한 응답을 기다리지 않고 서비스 실패로 반환된다.

pb_tpset_timeout()은 pb_tpset_timeout()이 호출된 이후의 서비스 요청에 적용되며, 다시 pb_tpset_timeout()이 호출되거나, 그렇지 않으면 클라이언트나 서버 프로세스가 종료될 때까지 유효하다. pb_tpset_timeout()이 사용되지 않는다면, Blocking Timeout으로 Tmax 환경 파일에 설정된 BLOCKTIME이 적용된다.

비요청 수신 메시지를 받도록 설정하는 함수이다. 이렇게 수신된 메시지는 pb_getunsold()를 통해서 비요청 수신 메시지를 처리하게 된다. pb_tpsetunsol(), pb_getunsold()를 사용하여 비요청 수신 메시지를 받을 때는 반드시 u_tmax의 instance 변수인 flags에 TPUNSOL_HND로 설정한 후 pb_tpstart()를 한다.

Tmax와 접속을 맺는 함수로, 이 함수를 호출하기 전에 Tmax와 접속하기 위한 환경변수가 지정되어야 한다. 접속 대상 서버의 IP 주소(TMAX_ HOST_ADDR), 접속 대상 서버의 포트 번호(TMAX_HOST_PORT)가 지정되어 있어야 한다. 또한 구조체를 사용할 경우 SDLFILE의 경로를, FIELD(FDL) 버퍼를 사용할 경우 FDLFILE의 경로를 환경변수에 등록해야 한다.

다음은 환경변수를 지정하는 방법이다.

다음은 함수에 대한 설명이다.

클라이언트가 Tmax 시스템에 연결하는 함수인 pb_tpstart()는 연결하려는 서버가 비정상적이어서 연결할 수 없을 경우 자동적으로 백업 시스템에 연결을 시도한다. pb_tptobackup()은 처음부터 백업 시스템에 연결하는 함수로, 사용자가 임의로 백업 시스템에 연결하고자 할 때 사용한다.

pb_tptobackup()은 파라미터로 TPSTART_T를 받지 않으므로 보안이 필요한 시스템에는 접속할 수 없다. 이 함수로 연결될 백업 시스템은 보안에 관련된 항목을 환경 파일에 설정하면 접속할 수 없다. tptobackup()을 사용하려면 TMAX_BACKUP_ADDR과 TMAX_BACKUP_PORT를 시스템 환경 파일(예: Korn Shell의 <.profile>)에 등록해야 한다.

전역 트랜잭션을 시작하는 함수로 함수 호출자는 트랜잭션 모드가 된다. 일단 트랜잭션이 시작되면, 호출자는 현재 트랜잭션을 완료하기 위해서 pb_tx_commit() 또는 pb_tx_rollback()을 호출해야 한다.

트랜잭션의 작업을 Commit하는 데 사용하는 함수이다.

트랜잭션의 작업을 Rollback하는 데 사용되는 함수이다.

when_return값을 통해서 전역 트랜잭션의 Commit 시점을 결정하는 함수이다.

control에 지정된 값을 통해서 pb_tx_commit()이나 pb_tx_rollback()이 반환되기 전에 새로운 트랜잭션의 시작 여부를 결정하는 함수이다. 초기에 지정된 control값은 TX_UNCHAINED이다.

트랜잭션의 Timeout을 설정하는 함수이다.

pb_uotmax_ver()는 tmax.pbd의 버전을 조회하는 함수이다.

전역 트랜잭션 정보를 조회하는 함수이다. 트랜잭션 xid에 대한 정보를 u_tmax의 data, when_return, transaction_control, transaction_timeout 및 transaction_stat에 설정한다.

트랜잭션 작업을 중단하는 데 사용하는 함수이다.

비동기 서비스 호출을 수행하는 함수이다. 서비스를 호출하고 응답을 기다리는 대신, 응답을 받을 때 (“1.2.56. tp_getrply” 참조) 사용하기 위한 참조 구별자를 반환한다. 여러 개의 서비스를 동시에 호출한 후 그 결과를 받거나, 서비스를 호출한 후 응답을 기다리는 동안 다른 작업을 할 필요가 있을 때 사용한다.

tp_acall() 함수는 Tmax에서 지원하는 버퍼 유형 중 FIELD 버퍼를 사용한다.

전역 트랜잭션을 시작하는 함수로, 함수 호출자는 트랜잭션 모드가 된다. 일단 트랜잭션이 시작되면 호출자는 현재 트랜잭션을 완료하기 위해서 tp_commit() 또는 tp_abort()를 호출해야 한다.

지정한 클라이언트에 메시지를 전달하는 함수이다.

동기형으로 Tmax 서비스를 호출하기 위한 함수로, idata를 이용하여 서비스를 호출하고 반환된 결과를 form에 지정된 Column의 데이터를 odata에 넣는다. tp_call()은 Tmax에서 지원하는 버퍼 유형 중 FIELD(FDL) 버퍼를 사용한다

tp_cancel()은 tp_acall()로 반환된 구별자를 취소한다. 따라서 호출한 서비스에 대해 수신을 취소하게 된다. 수신을 취소한 경우 해당 트랜잭션은 Commit할 수 없고 Rollback만 가능하다.

트랜잭션 작업을 Commit하는 데 사용하는 함수이다.

tp_connect()는 대화형 서비스와 통신을 연결하는 함수이다. 함수로 연결된 서버와 클라이언트는 쌍방향으로 tp_send(), tp_recv()를 이용하여 데이터를 주고받는다. tp_connect() 함수는 Tmax에서 지원하는 버퍼 유형 중 FIELD 버퍼를 사용한다.

tp_conv()는 cd에 의해 지정된 대화형 서비스에 대해 메시지를 송수신하는 함수로, Tmax에서 지원하는 버퍼 유형 중 FIELD 버퍼를 사용한다.

tp_discon()은 대화의 연결을 강제로 종료하고 TPEV_DISCONIMM 이벤트를 발생시키는 함수이다.

대화형 서비스를 종료하는 정상적인 방법은 서비스에서 tpreturn을 수행하는 것이지만, 대화형 서비스를 연결한 클라이언트에서 필요에 의해 즉시 연결을 종료시킬 때 사용한다. 함수를 호출하면 이후에 서비스에서 오는 데이터는 유실되고 해당 트랜잭션에 대해서는 중단만 가능하다.

동기형으로 Tmax 서비스를 호출하기 위한 함수로, 확장한 형태로 메모리로부터 입력 데이터를 받아들일 뿐 아니라 파일로부터도 입력 데이터를 받아들일 수 있으며 결과 데이터를 메모리와 파일에 동시에 저장할 수 있다.

Tmax에서 지원하는 버퍼 유형 중 FIELD(FDL) 버퍼를 사용하며 결과 데이터는 form에, 지정된 필드의 데이터는 odata에 저장되며 fform에 지정된 필드의 데이터는 foutdata의 파일에 저장된다.

비동기형 통신에서 데이터를 수신하는 함수로 tp_acall()에 의해서 보낸 요청에 대한 응답을 받는 데 사용되며 Tmax에서 지원하는 버퍼 유형 중 FIELD 버퍼를 사용한다. form 및 output은 tp_call()의 구성 파라미터와 동일하다.

Tmax와의 접속을 맺는 함수이다. pb_tpstart()와 같은 환경변수 설정이 요구된다.

tp_recv()는 대화형 통신에서 데이터를 수신하는 함수로, 호출자가 제어권을 갖지 않는 프로그램에서만 사용할 수 있다. tp_recv()는 Tmax에서 지원하는 버퍼 유형 중 FIELD 버퍼를 사용한다.

대화형 통신에서 상대방에게 데이터를 송신하는 함수로, 호출자는 반드시 통신 제어권을 가지고 있어야 한다. tp_send()는 Tmax에서 지원하는 버퍼 유형 중 FIELD 버퍼를 사용한다.

서버에서 tppost()에 의해 전달되는 메시지를 받기 위한 함수이다. event_name에 지정된 이름을 갖는 메시지가 tppost()된 경우 hwnd로 지정한 윈도우에 message_id로 지정한 윈도우 이벤트가 발생하도록 설정한다. 메시지가 왔을 때 해당 윈도우의 윈도우 이벤트 처리 루틴으로 Message.WordParm에 메시지의 ID가 전달된다. 이 값은 get_evtname() 혹은 get_data()에서 메시지를 식별하는 ID로 사용된다. 설정된 것을 해제하려면 tp_unsubscribe()를 사용한다.

Tmax 시스템과의 접속을 해제하는 함수이다.

tp_subscribe(), tp_setunsol()에 의해 윈도우(hwnd)에서 메시지를 받도록 지정한 것을 해제하는 함수이다.

pb_tpbegin()은 pb_tx_set_transaction_timeout()과 pb_tx_begin()의 기능을 한 번에 수행할 수 있는 함수이다. Tuxedo에서 사용하는 것과 동일한 형식이므로 Tuxedo용으로 개발된 애플리케이션을 별다른 변환 절차 없이 사용할 수 있다.

동기형으로 Tmax 서비스를 호출하기 위한 함수이다. sobject에 지정된 PowerObject를 입력하여 서비스를 호출한 후 반환되어 온 결과를 robject에 지정된 PowerObject에 넣어준다.

tuxcall()은 Tmax에서 지원하는 버퍼 유형 중 FIELD 버퍼를 사용한다. sobject에 사용할 수 있는 Object는 다음과 같다.

robject에 사용할 수 있는 Object는 input에 사용할 수 있는 것과 동일하다. ListBox와 DropDownListBox의 경우에는 데이터를 추가한다. 사용되는 u_tmax의 인스턴스 변수는 다음과 같다.

tuxedo_compat()은 일부 API의 동작에 대해서 Tuxedo 라이브러리와의 호환성을 제공한다. 환경변수 PB_TUXCOMPAT 설정값을 'Y'로 지정해도 동일하게 동작한다. 변경 기능은 다음과 같다.

tuxedo_compat() 함수의 프로토타입과 파라미터, 반환값에 대한 설명은 다음과 같다.

tuxreadenv()는 파일에 저장된 접속할 시스템의 정보를 읽어서 환경변수에 새로운 값을 설정하는 함수이다. Tmax 시스템과 접속하기 위한 정보를 환경변수에 설정하기 때문에 이 함수는 Tmax 시스템에 접속하기 전에 수행되어야 한다. 등록된 환경변수를 참조하여 pb_tpstart()(또는 tp_init())로 Tmax 시스템과 연결한다.

일반적으로 환경변수는 운영체제에 따라 정의하는 파일이 달라진다. UNIX의 경우 csh는 <.cshrc>에, ksh는 <.profile>에 정의하고, DOS의 경우에는 <autoexec.bat> 파일에 정의한다. 그러나 접속할 시스템이 2개 이상일 경우 클라이언트는 상황에 따라 접속할 시스템을 변경할 수 있다. 이 경우 환경변수에 2개의 시스템에 대한 정보를 등록할 수 없으므로 파일에 환경변수를 등록하여 사용할 수 있다.

프로그램은 다음과 같이 구성되어 있다.

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

DataBase EMP Table

다음은 DB operation을 위한 기본 테이블의 예제이다.

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

다음은 프로그램을 실행할 경우 나타나는 초기화면이다. 화면은 8개의 singleline editor와 1개의 데이터 윈도우, 6개의 버튼으로 구성된다.

각 버튼의 기능에 대한 설명이다.

전역 변수

u_tmax                uo_tmax
boolean               btxRun, bConnect

Window 함수

＊tmaxconnect () 
returns Boolean
IF uo_tmax.pb_tpstart()<0 THEN
   st_err.text = ("서버에 연결할 수 없습니다.\n tpstart() Failed: Error Code =" 
                   + string(uo_tmax.tperrno))
   return FALSE
END IF
return TRUE

＊inputcheck ( integer  inputnum ) returns Boolean
IF isnull( sle_empno.text ) OR sle_empno.text = "" THEN
   st_err.text = "사원번호는 꼭 입력해야 합니다."
   return FALSE
END IF

IF( inputnum = 1) THEN        
return TRUE

IF isnull( sle_name.text ) OR sle_name.text = "" THEN        
   goto errormsg
IF isnull( sle_job.text ) OR sle_job.text = ""   THEN        
   goto errormsg
IF isnull( sle_mgr.text ) OR sle_mgr.text = ""   THEN        
   goto errormsg
IF (len(sle_date.text) <>8 )                     THEN        
   goto errormsg
IF isnull( sle_sal.text ) OR sle_sal.text = ""   THEN        
   goto errormsg
IF isnull( sle_comm.text ) OR sle_comm.text = "" THEN        
   goto errormsg
IF isnull( sle_dept.text ) OR sle_dept.text = "" THEN        
   goto errormsg
return TRUE

errormsg:
   st_err.text = "모든 항목을 입력해야 하며, 입사일은 8자리(YYYYMMDD)로 입력해야 합니다."
return FALSE

＊clearwindow () returns Booleansle_empno.clear()
sle_name.clear()
sle_job.clear()
sle_mgr.clear()
sle_date.clear()
sle_sal.clear()
sle_comm.clear()
sle_dept.clear()
sle_empno.setfocus()

＊errorprocess ( string infomsg )
st_err.text = InfoMsg
IF( btxRun = TRUE ) THEN
    uo_tmax.pb_tx_rollback()
    btxRun = FALSE
END IF

IF( bconnect = TRUE ) THEN
    uo_tmax.pb_tpend()
    bconnect = FALSE
END IF

＊successprocess ( string infomsg )
st_err.text = InfoMsg

IF( btxRun = TRUE ) THEN
    uo_tmax.pb_tx_commit()
    btxRun = FALSE
END IF

IF( bconnect = TRUE ) THEN
    uo_tmax.pb_tpend()
    bconnect = FALSE
END IF

Open 스크립트

string FileName

uo_tmax = CREATE u_tmax
uo_tmax.flags = 0

FileName ="D:\PB\MyProgram\tmax.env"
IF uo_tmax.pb_tmaxreadenv( FileName, "tmax1") <0 THEN
   messagebox( "Eviroment Error","Enviroment File Loading Failed : Error Code =" 
                + string(uo_tmax.tperrno))
   return
END IF
open(w_demo)

조회 버튼 실행 스크립트

다음은 [조회] 버튼을 이용하여 조회를 실행하기 위한 예제이다.

string itype, idata, form[], odata[]

IF(inputcheck(1) = FALSE) THEN return

itype = "FIELD~t~n"
idata = "EMPNO"+"~t"+sle_empno.text+"~n"
form[1] ="EMPNO~n" + &
         "ENAME~n" + &
         "JOB~n" + &
         "MGR~n" + &
         "DATE~n" + &
         "SAL~n" + &
         "COMM~n" + &
         "DEPTNO~n" + &
         "E_TYPE~nE_CODE~nE_MSG~nE_TMP~n~n"
form[2] = "~n"//"E_TYPE~nE_CODE~nE_MSG~nE_TMP~n~n"
odata[1] = space(1024)

bConnect = tmaxconnect()
IF bConnect = FALSE THEN
   errorprocess( "서버에 연결할 수 없습니다.")
   return
END IF

IF uo_tmax.pb_tpcall("FDLSELECT", itype, idata, form[], odata[]) <0 THEN        
   errorprocess( uo_tmax.f_getdata(form[1], odata[1], 1, "E_MSG") )
   return
END IF

dw_out.importstring(odata[1])
dw_out.visible  = TRUE
cb_back.visible = TRUE
cb_sel.enabled  = FALSE
cb_udt.enabled  = FALSE
cb_del.enabled  = FALSE
cb_ins.enabled  = FALSE
cb_exit.enabled = FALSE
successprocess( sle_empno.text + "번의 정보를 찾았습니다.")

수정 버튼 실행 스크립트

다음은 [수정] 버튼을 이용하여 수정을 실행하기 위한 예제이다.

string itype, idata, form[], odata[]

IF(inputcheck(0) = FALSE) THEN return

itype = "FIELD~t~n"
idata = "EMPNO~t" + sle_empno.text+"~n" + &
                    "ENAME~t"+sle_name.text+"~n" + &
                    "JOB~t"+sle_job.text+"~n" + &
                    "MGR~t"+sle_mgr.text+"~n" + &
                    "DATE~t" +sle_date.text+"~n" + &
                    "SAL~t" +sle_sal.text+"~n" + &
                    "COMM~t" +sle_comm.text+"~n" + &
                    "DEPTNO~t" +sle_dept.text+"~n~n"
form[1] = "E_TYPE~nE_CODE~nE_MSG~nE_TMP~n~n"
form[2] = "~n"
odata[1] = space(1024)

bConnect = tmaxconnect()
IF bConnect = FALSE THEN
   errorprocess( "서버에 연결할 수 없습니다.")
   return
END IF

IF btxrun = FALSE THEN
   IF uo_tmax.pb_tx_begin()<0 THEN
      errorprocess( "pb_tx_begin Error")
      return
    END IF
    btxrun = TRUE
END IF

IF uo_tmax.pb_tpcall("FDLUPDATE", itype, idata, form[], odata[])<0 THEN
   errorprocess( "Error:\n"+uo_tmax.f_getdata(form[1], odata[1], 1, "E_MSG") )
   return
END IF

clearwindow()
successprocess( sle_empno.text + "번 데이터가 수정되었습니다." )

삭제 버튼 실행 스크립트

다음은 [삭제] 버튼을 이용하여 삭제를 실행하기 위한 예제이다.

int ret
string itype, idata, form[], odata[]

IF(inputcheck(1) = FALSE) THEN return

itype = "FIELD~t~n"
idata = "EMPNO"+"~t"+sle_empno.text+"~n~n"
form[1] = "E_TYPE~nE_CODE~nE_MSG~nE_TMP~n~n"
form[2] = "~n"
odata[1] = space(1024);

bConnect = tmaxconnect()
IF bConnect = FALSE THEN
   errorprocess( "서버에 연결할 수 없습니다.")
   return
END IF

IF btxrun = FALSE THEN
   IF uo_tmax.pb_tx_begin()<0 THEN
      errorprocess( "pb_tx_begin Error")
      return
   END IF
   btxrun = TRUE
END IF

IF uo_tmax.pb_tpcall("FDLDELETE", itype, idata, form[], odata[])<0 THEN
   errorprocess( uo_tmax.f_getdata(form[1], odata[1], 1, "E_MSG") )
   return
END IF

successprocess( sle_empno.text + "번 데이터가 삭제되었습니다." )
clearwindow()

입력 버튼 실행 스크립트

다음은 [입력] 버튼을 이용하여 입력을 실행하기 위한 예제이다.

long ret
string itype, idata, form[], odata[]

IF(inputcheck(0) = FALSE) THEN return

itype = "FIELD~t~n"
idata = "EMPNO~t"+sle_empno.text+"~n" + &
        "ENAME~t"+sle_name.text+"~n" + &
        "JOB~t"+sle_job.text+"~n" + &
        "MGR~t"+sle_mgr.text+"~n" + &
        "DATE~t"+sle_date.text+"~n" + &
        "SAL~t"+sle_sal.text+"~n" + &
        "COMM~t"+sle_comm.text+"~n" + &
        "DEPTNO~t"+sle_dept.text+"~n" + &
        "~n"
form[1] = "E_TYPE~nE_CODE~nE_MSG~nE_TMP~n~n"
form[2] = "~n"
odata[1] = space(1024);

bConnect = tmaxconnect()
IF bConnect = FALSE THEN
   errorprocess( "서버에 연결할 수 없습니다.")
   return
END IF

IF btxrun = FALSE THEN
   IF uo_tmax.pb_tx_begin()<0 THEN
      errorprocess( "pb_tx_begin Error")
      return
   END IF
   btxrun = TRUE
END IF

IF uo_tmax.pb_tpcall("FDLINSERT", itype, idata, form[], odata[])<0 THEN        
   errorprocess( uo_tmax.f_getdata(form[1], odata[1], 1, "E_MSG") )
   return
END IF

successprocess( sle_empno.text + "번 데이터가 추가되었습니다." )
clearwindow()

종료 버튼 실행 스크립트

다음은 [종료] 버튼을 이용하여 종료를 실행하기 위한 예제이다.

close(w_demo)

돌아가기 버튼 실행 스크립트

다음은 [돌아가기] 버튼을 이용하여 프로그램 초기화면으로의 이동을 실행하기 위한 예제이다.

int i
cb_sel.enabled  = TRUE
cb_udt.enabled  = TRUE
cb_del.enabled  = TRUE
cb_ins.enabled  = TRUE
cb_exit.enabled = TRUE

FOR i=1 to (dw_out.rowcount()+2)
    dw_out.deleterow ( 1 )
NEXT

clearwindow()
dw_out.visible = FALSE
cb_back.visible = FALSE

서비스 프로그램

다음은 서비스 프로그램의 예제이다.

#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의 예제이다.

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