| Interstage Application Server リファレンスマニュアル（API編） |
|
目次
索引
|
| 第4章 COBOLインタフェース | > 4.14 サーバアプリケーション用インタフェース |
TDGETCLIENTID
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 ISTD-CLIENTID.
02 COPY LONG IN CORBA REPLACING CORBA-LONG BY SEQ-MAXIMUM.
02 COPY LONG IN CORBA REPLACING CORBA-LONG BY SEQ-LENGTH.
02 SEQ-BUFFER USAGE POINTER.
02 FILLER OCCURS 48
03 COPY OCTET IN CORBA REPLACING CORBA-OCTET BY CLIENTID-VALUE.
02 SEQ-LENGTH PIC S9(9) COMP-5.
01 RETCODE PIC S9(9) COMP-5.
PROCEDURE DIVISION.
MOVE FUNCTION ADDR(CLIENT-VALUE(1)) TO SEQ-BUFFER
MOVE 48 TO SEQ-MAXIMUM OF ISTD-CLIENTID.
CALL "TDGETCLIENTID" USING
ISTD-CLIENTID
RETCODE.
ISTD-CLIENTIDで指定されたシーケンス管理域のCLIENT-VALUEクライアント識別子を設定し、クライアント識別子の長さをSEQ-LENGTHに設定します。
正常終了した場合は、RETCODEに0を返します。
異常終了した場合には、以下のいずれかの値を返します。
1: パラメタエラー
2: シーケンスエラー
3: プロトコルエラー
99: システムエラー
|
目次
索引
|