CBLHANDLEサービスルーチンは，COBOLのウィンドウハンドルなどを取得するものです。

形式

CALL 'CBLHANDLE' USING 引数1 引数2 引数3

引数

• 引数1には，コンソールウィンドウのハンドル情報を格納する領域を4バイトの2進項目^※で指定します。
• 引数2には，インスタンスハンドルを格納する領域を4バイトの2進項目^※で指定します。
• 引数3は予備項目であり，4バイトの2進項目^※で指定します。

注※

64bit版PC(x64) COBOL2002の場合は，8バイトの2進項目です。

戻り値

0：正常終了した場合

-1：COBOLプログラムが主プログラムでない場合，またはCUIモードで実行中の場合

規則

引数の指定，引数の属性が異なった場合の結果は保証しません。

使用例

　
       IDENTIFICATION DIVISION.
       PROGRAM-ID. SAMPLE1.
           :
       DATA DIVISION.
       WORKING-STORAGE  SECTION.
       01 HWND   PIC 9(9) USAGE COMP.※
       01 HINST  PIC 9(9) USAGE COMP.※
       01 HDUMMY PIC 9(9) USAGE COMP.※
           :
       PROCEDURE DIVISION.
           :
           CALL 'CBLHANDLE' USING HWND HINST HDUMMY.
           IF RETURN-CODE NOT = 0 THEN
             CBLHANDLEエラー処理
           END-IF.
          ：

注※

64bit版PC(x64) COBOL2002の場合は，「PIC 9(9)」は「PIC 9(18)」に読み替えてください。