サブシステムを宣言または割り当て解除します。
制約事項: このルーチンはネイティブ COBOL でのみサポートされます。
構文:
call "CBL_SUBSYSTEM" using function-code
parameter
returning status-code
パラメーター
- function-code
- 呼び出しプロトタイプ:cblt-x1-compx
- PIC:pic x comp-x
- 次のいずれかの値を指定します。
0:サブシステムを宣言する
1:サブシステムをキャンセルする
2:サブシステムから削除する
- parameter
- cblt-subsys-params として定義されている集団 (以下を含む)
01 cblt-subsys-params typedef.
03 cblte-ssp-handle cblt-x2-compx. *> pic x(2) comp-x.
03 cblte-ssp-name-len cblt-x2-compx. *> pic x(2) comp-x.
03 cblte-ssp-name cblt-x1. *> Occurs depending on
*> cblte-ssp-name-len. pic x(n).
- status-code
- 「説明の読み方」を参照してください。
入力パラメーター:
- function-code
- サブ機能番号
- function-code = 0 の場合:
-
- cblte-ssp-name-len
- サブシステムのプログラム名フィールドの長さ
- cblte-ssp-name
- サブシステムのプログラム名 (空白文字で終了)
- function-code = 1 の場合:
-
- cblte-ssp-handle
- 機能 0 の呼び出しで返されたサブシステム ハンドル
- function-code = 2 の場合:
-
- dummy-param
- 値は 0
出力パラメーター:
- function-code = 0 の場合:
-
- cblte-ssp-handle
- サブシステム ハンドル
説明:
サブシステムが、アプリケーション内の指定した COBOL プログラムとして定義されます。この定義以降、サブシステム内のプログラムから呼び出される各サブプログラムも、当該サブシステムのメンバーになります (ただし、すでに他のサブシステムに属しているサブプログラムは除きます)。