COBOL ダンプ (QlnDumpCobol) バインド可能 API を使用して、ILE COBOL プログラムの定様式ダンプを意図的に開始できます。 QlnDumpCobol API は、次のものを定義する 6 つのパラメーターを受け入れます。
次の例で、QlnDumpCobol API を呼び出す方法と、その結果の操作を示します。
WORKING-STORAGE SECTION. 01 ERROR-CODE. 05 BYTES-PROVIDED PIC S9(6) BINARY VALUE ZERO. 05 BYTES-AVAILABLE PIC S9(6) BINARY VALUE ZERO. 05 EXCEPTION-ID PIC X(7). 05 RESERVED-X PIC X. 05 EXCEPTION-DATA PIC X(64). 01 PROGRAM-NAME PIC X(10). 01 LIBRARY-NAME PIC X(10). 01 MODULE-NAME PIC X(10). 01 PROGRAM-TYPE PIC X(10). 01 DUMP-TYPE PIC X. PROCEDURE DIVISION. MOVE LENGTH OF ERROR-CODE TO BYTES-PROVIDED. MOVE "MYPROGRAM" TO PROGRAM-NAME. MOVE "TESTLIB" TO LIBRARY-NAME. MOVE "MYMOD1" TO MODULE-NAME. MOVE "*PGM" TO PROGRAM-TYPE. MOVE "D" TO DUMP-TYPE. CALL PROCEDURE "QlnDumpCobol" USING PROGRAM-NAME, LIBRARY-NAME, MODULE-NAME, PROGRAM-TYPE, DUMP-TYPE, ERROR-CODE.
これにより、ライブラリー TESTLIB 中のプログラム・オブジェクト MYPROGRAM 中のモジュール・オブジェクト MYMOD1 の COBOL ID の定様式ダンプを得ることができます (オプション D)。
WORKING-STORAGE SECTION. 01 ERROR-CODE. 05 BYTES-PROVIDED PIC S9(6) BINARY VALUE ZERO. 05 BYTES-AVAILABLE PIC S9(6) BINARY VALUE ZERO. 05 EXCEPTION-ID PIC X(7). 05 RESERVED-X PIC X. 05 EXCEPTION-DATA PIC X(64). 01 PROGRAM-NAME PIC X(10). 01 LIBRARY-NAME PIC X(10). 01 MODULE-NAME PIC X(10). 01 PROGRAM-TYPE PIC X(10). 01 DUMP-TYPE PIC X. PROCEDURE DIVISION. MOVE LENGTH OF ERROR-CODE TO BYTES-PROVIDED. MOVE "*SRVPGM" TO PROGRAM-TYPE. MOVE "F" TO DUMP-TYPE. CALL PROCEDURE "QlnDumpCobol" USING OMITTED, OMITTED, OMITTED, PROGRAM-TYPE, DUMP-TYPE, ERROR-CODE.
これにより、QlnDumpCobol API を呼び出したサービス・プログラムの COBOL ID とファイル関連情報の定様式ダンプを得ることができます (オプション F)。
QlnDumpCobol API に対する入力パラメーターのどれかに無効なデータがあるとダンプは実行されず、 エラー・メッセージが生成されるか、または、例外データが戻されます。 BYTES-PROVIDED フィールドがゼロの場合はエラー・メッセージが生成されます。 BYTES-PROVIDED フィールドの値がゼロでない場合は、ERROR-CODE パラメーターに例外データが戻され、エラー・メッセージは生成されません。
ユーザーが定様式ダンプ内のプログラムの変数の値を見ることができないようにするには、以下のいずれか 1 つを実行します。
QlnDumpCobol API の詳細については、Web サイト http://www.ibm.com/eserver/iseries/infocenter にある iSeries Information Center の「プログラミング」カテゴリーの中の『CL および API』セクションの COBOL API に関するセクション を参照してください。
(C) Copyright IBM Corporation 1992, 2006. All Rights Reserved.