cobinit

COBOL 環境を初期設定し COBOL プログラムが非 COBOL プログラムから呼び出せるようにします。

構文

#include "cobmain.h"

int cobinit (void);

パラメーター

なし

コメント

次のような条件の場合、COBOL プログラムの呼び出し前に cobinit() を呼び出します。

• 主プログラムが COBOL で記述されていない。
• アプリケーションのプログラムは、静的な COBOL ランタイム システムとリンクされています。

これを呼び出さないと、COBOL プログラムへ入ったときに初期設定エラーがでます。

COBOL 環境がすでに初期設定されていると、cobinit() は正常に返ってきます。

この関数は、正常時には 0 を返却します。

同等の COBOL 構文

なし

例

次の例は、COBOL プログラムが呼び出せるるように、C の main() から COBOL 環境を初期設定 (あるいは、終了) する方法を示しています。

main(int argv, char *argv)
{
    cobinit();             /* COBOL 環境の初期設定 */

    cobcall("cobep", 0, NULL); /* COBOL プログラムの呼び出し */

    cobtidy();             /* COBOL 環境の終了 */

    return(0);
)