意図的なダンプの開始

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 に関するセクション を参照してください。