高橋CTOのSystemiテクニカル講座

データベースへの項目追加が発生した場合、以下の様な作業が予測されます
１・物理ファイルのデータを退避
２・物理ファイルに従属している論理ファイルを削除
３・物理ファイルの最後にフィールドを追加
４・物理ファイルをコンパイル。レベルチェック(*NO)
５・論理ファイルをコンパイル。レベルチェック(*NO)
６・退避したデータからデータを復元(CPYF *MAP *DROP)

以上の作業で、ＲＰＧ側はリコンパイルを行わなくても
基本的には大丈夫だと思います。

しかし見ての通り、手順が沢山あり作業は大変になります

この作業をSQLで実施してみました。

１・/* テーブル MYLIB.MYFILE の変更 */
ALTER TABLE MYLIB/MYFILE ADD COLUMN FLD001 NUMERIC (8, 0) NOT NULL DEFAULT

これで、MYLIB/MYFILEにFLD001という名前で数字タイプ８桁のフィールドとして追加されました

２・/* フィールドテキストの設定*/
LABEL ON COLUMN MYLIB/MYFILE ( FLD001 TEXT IS ‘追加フィールド01′ )

３・/* カラム見出しの設定 */
LABEL ON COLUMN MYLIB/MYFILE ( FLD001 IS ‘追加フィールド01′ )

２、３の作業で、カラム名とテキストの追加が行われました。

２、３の作業を行えば、後からカラム名やテキストの変更も可能です。

また、上記の作業はiseriesナビゲーターのデータベースのテーブルの定義から簡単に行えます。

対象の物理ファイル及び従属する論理ファイルはレベルチェックを*NOにしておいて下さい

#システムの命名規則でSQL文は記述しています。環境に応じてMYLIB.MYFILEで実施して下さい