トランザクショナル分散オブジェクト基盤 TPBroker Object Transaction Monitor プログラマーズガイド

[目次][索引][前へ][次へ]

ABC_TSCimpl(COBOL)

ABC_TSCimplは雛形クラスです。

ABC_TSCimplは,TSCユーザオブジェクトを実現するためのクラスです。ユーザ定義IDLインタフェースに従って,トランザクションフレームジェネレータがABC_TSCimplを生成します。ユーザはこの雛形クラスに処理依存のコードを記述します。

各副プログラム名の"_TSCimpl"の部分は,tscidl2cblコマンドの-TSCimpl_extオプションによって変更できます。省略した場合,"_TSCimpl"が設定されます。

形式

斜体で示している部分は,ユーザが実装のコードを記述する必要がある副プログラムです。太字で示している部分は,引数の型および数を変更できる副プログラムで,ユーザが実装のコードを記述する必要があります。

 
 CALL 'ABC_TSCimpl-NEW' USING
             ...
         RETURNING      SK-PTR.
 CALL 'ABC_TSCimpl-DEL' USING
             BY VALUE      SK-PTR
             ....
 
*ユーザ定義IDLインタフェース依存の副プログラム群
*形式1
 CALL 'xxx' USING
             ...
         (RETURNING      ...).
 
*形式2
 CALL 'xxx' USING
             BY VALUE      SK-PTR
             ...
         (RETURNING      ...).

副プログラム

●CALL 'ABC_TSCimpl-NEW' USING

            ...
         RETURNING   SK-PTR.
 
項目 型・意味
戻り値 SK-PTR USAGE POINTER ABC_TSCsk-NEWの戻り値

TSCユーザオブジェクトを生成します。引数の型や数を含めて,ユーザがコードを記述する必要があります。この副プログラムはABC_TSCfact-create副プログラムから呼ばれます。名称を変更して複数の副プログラムを作成できます。

この副プログラムの戻り値には,次に示す副プログラムを実行して得られる戻り値を設定する必要があります。

 
CALL 'ABC_TSCsk-NEW'
          RETURNING SK-PTR.

●CALL 'ABC_TSCimpl-DEL' USING

            BY VALUE   SK-PTR
         ...
 
項目 型・(入出力の区別)意味
引数 BY VALUE SK-PTR USAGE POINTER (入力)ABC_TSCsk-NEWの戻り値
戻り値 ありません。

TSCユーザオブジェクトを削除します。引数の型や数を含めて,ユーザがコードを記述する必要があります。この副プログラムはABC_TSCfact-destroy副プログラムから呼ばれます。

名称を変更して複数の副プログラムを作成できますが,どの副プログラムも,次のように発行する必要があります。

 
CALL 'ABC_TSCsk-DEL' USING
            BY VALUE SK-PTR.

ユーザが実装する副プログラム

ユーザ定義IDLインタフェースのオペレーションに相当する副プログラムを,ユーザが実装する必要があります。インタフェースには次の二つがあります。使用する形式は,トランザクションフレームジェネレータ実行時にtscidl2cblコマンドの-formatオプションで選択できます。

形式1

 
CALL 'xxx' USING
         ...
      (RETURNING)   ....

ユーザが実装するオペレーションです。この形式では,引数および戻り値はユーザ定義IDLインタフェースのオペレーションと一致します。

形式2

CALL 'xxx' USING
         BY VALUE   OBJECT-PTR
         ...
      (RETURNING)   ....
 
項目 型・(入出力の区別)意味
引数 BY VALUE OBJECT-PTR USAGE POINTER (入力)対応するTSCObjectのポインタ

ユーザが実装するオペレーションです。この形式では,ユーザ定義IDLインタフェースのオペレーションにある引数の前に,TSCObjectのポインタが渡されます。TSCContextまたはTSCThreadなどの機能を使用する場合,この形式を使用してください。