1.3.2　XATMIインタフェース用スタブの作成方法

(a)　通信で使うレコード型の定義

形式

   タイプ名 サブタイプ名{
              データ型 データ名;
            〔データ型 データ名;〕
                     :
                     :
            };

機能

サーバUAPで使うレコード型のタイプ名，サブタイプ名，およびレコードを定義します。サーバUAPから ほかのサーバUAPプロセスのサービスを呼び出す場合，呼び出すプロセスで使えるレコード型はすべて自プロセスでも使えます。そのため，ここでは自プロセス内のサービスプログラムが入出力として使うレコード型だけを定義します。

X_OCTETは定義しなくても常に認識されます。X_OCTETを定義した場合，スタブを生成するコマンド（stbmakeコマンドまたはtpstbmkコマンド）の実行時にエラーとなります。

X_C_TYPEはCOBOL言語のAPIでは使えません。X_C_TYPEを定義した場合，スタブを生成するコマンド（stbmakeコマンドまたはtpstbmkコマンド）に -bオプションを付けて実行するとエラーとなります。

パラメタ

• タイプ名

  サーバUAPで使うレコード型の，タイプ名を指定します。

• サブタイプ名

  サーバUAPで使うレコード型の，サブタイプ名を指定します。

• データ型

  サーバUAPで使うレコード型の，データ型を指定します。

• データ名

  サーバUAPで使うレコード型の，データ名を指定します。

タイプで使えるデータ型の一覧

タイプで使えるデータ型の一覧を次の表に示します。識別子とはXATMIインタフェース定義に記述するデータ型を示し，COBOL言語のデータとは実際にスタブに定義される型付きレコードを示します。OpenTP1以外のシステムと通信するためにデータ型を変換する場合は，変換する識別子をXATMIインタフェース定義に指定します。

表1‒6　タイプで使えるデータ型の一覧

タイプ	識別子	COBOL言語のデータ	通信プロトコル		備考
			TCP/IP	OSI TP
X_OCTET	−※1	−※1	○	○	なし
X_COMMON	short a	PIC S9(4) COMP-5	○	○	なし
	short a[n]	PIC S9(4) COMP-5 OCCURS n TIMES	○	○	なし
	long a	PIC S9(9) COMP-5	○	○	なし
	long a[n]	PIC S9(9) COMP-5 OCCURS n TIMES	○	○	なし
	char a※2	PIC X	○	○	無変換配列
	octet a	PIC X	○	○	無変換配列
	tchar a	PIC X	−	○	変換配列
	char a[n]※2	PIC X(n)	○	○	無変換配列
	octet a[n]	PIC X(n)	○	○	無変換配列
	tchar a[n]	PIC X(n)	−	○	変換配列
X_C_TYPE	−※3	−※3	×	×	なし

（凡例）

○：該当する通信プロトコルで使えます。

×：該当する通信プロトコルでは使えません。

−：変換の識別子でも，無変換としてそのまま処理されます。

注※1

X_OCTETは，定義しなくても自動的に認識されます。XATMIインタフェース定義にX_OCTETを指定した場合は，スタブを生成するコマンドを実行したときにエラーになります。

注※2

この識別子も使えますが，新規で作成する場合は次に示す識別子を使うことをお勧めします。

X_COMMONの場合：octetまたはtchar

X_C_TYPEの場合：strまたはtstr

注※3

X_C_TYPEは，COBOL言語のAPIでは使えません。X_C_TYPEを定義した場合，スタブを生成するコマンドに-bオプションを指定して実行するとエラーになります。

指定例

 X_COMMON subtype1 {
                    char  name[8];
                    long  data[10];
                    long  flags;
                    };

(b)　サービスプログラム名とレコード型の定義

形式

service サービスプログラム名{
                 (タイプ名 〔サブタイプ名〕)|(ALL)|(〔void〕)};

機能

サーバUAPにある，サービスプログラムのプログラム名と，渡されるレコード型のタイプ名とサブタイプ名を指定します。

X_OCTETの場合はサブタイプ名がないので，タイプ名だけを指定します。また，サービスプログラム内でレコード型を一度も使わない処理の場合は，サービスプログラムのあとに何も指定しないか，voidを指定します。

TPCALL，TPACALL，TPCONNECTは，型付きレコードを送信しないで，サービスプログラムを呼び出せます。ただし，サービスプログラムでレコード型を明示的に参照したくない場合は，データ領域に何も設定しないか，空白を設定します。このように指定したサービスプログラムを呼び出すには，クライアント側のTPCALL，TPACALL，TPCONNECTが送信する型付きレコードに，空白を設定してください。ただし，X_OCTETの場合は，データ領域が空白でなくても，送信データの長さが0の場合でも，サービスを要求できます。

データ領域として受け取るレコード型を限定しない指定をする場合は，ALL を指定します。ALL を指定して定義したサービスプログラムは，自プロセスで認識できるレコード型であれば，どの型でも受信できます。

パラメタ

• サービスプログラム名

  サーバUAPにある，プログラム名を指定します。

• タイプ名

  APIのデータ領域に指定した，タイプ名を指定します。

• サブタイプ名

  APIのデータ領域に指定した，サブタイプ名を指定します。

指定例

例1

 service svc_func1(X_COMMON subtype1);

例2（タイプ名がX_OCTETの場合）

 service svc_func2(X_OCTET);

例3（型付きレコードを受信しないサービスプログラムの場合）

 service svc_func3(void);  または  service svc_func3();

例4（レコード型を限定しないサービスプログラムの場合）

 service svc_func4(ALL);

(c)　サーバUAPから，さらに別のサーバUAPを呼び出す場合

クライアントUAPのXATMIインタフェース定義（called_servers文）を指定します。