BINDを使用せずにプログラムでSQL以外の変更を行った場合の実行結果はどうなりますか？

問題： COBOL-DB2プログラムが変更され、変数の長さがPIC X（5）からPIC X（8）に増加しました。ただし、プログラムのSQLに変更はありません。プログラムのプラン/パッケージがこれらの変更にバインドされていない場合、結果はどうなりますか？

解決策

PIC X（5）からPIC X（8）への可変長の変更は、DB2の変更ではなく、プログラム内のSQLステートメントに必要な変更はありません。ただし、それでもPLAN / PACKAGEをバインドする必要があります。そうしないと、SQLエラーコード-818が表示されます。 P>

このSQLエラーの理由は次のとおりです。COBOL-DB2プログラムを実行するたびに、ロードモジュールとパッケージ/DBRMのタイムスタンプが比較されます。プログラムで変数の長さが変更され（SQLが変更されていない）、コンパイルされた場合、ロードモジュールには新しく生成されたタイムスタンプがあり、BINDが実行されていない場合は、 package/DBRMのタイムスタンプは古いものになります。このプログラムを実行すると、このプログラムを呼び出すJCLステップはSQLエラーコード-818で失敗します。

SQLステートメントが将来変更されることのないCOBOL-DB2プログラムがある場合は、オプションLEVELを使用してこのプログラムをプリコンパイルできます。以下は、LEVELオプションを使用したBINDステップのサンプルです。

例

//BIND EXEC PGM=IKJEFT01
//STEPLIB DD DSN=DIS.TEST.LOADLIB,DISP=SHR
//SYSOUT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(TB3)
BIND PLAN(PLANA) -
PKLIST(PACKA) -
LEVEL -
ACQUIRE(ALLOCATE) -
ISOLATION (RS)
/*