3.7 LANSA作成ファイル内の@@UPIDフィールド

LANSA

3.7 LANSA作成ファイル内の@@UPIDフィールド


LANSA(他のシステムではなく)で作成され保守される物理ファイルには、付加的なフィールドがあります。このフィールドは@@UPIDと呼ばれ、パック10進(7,0)フィールドとして定義されます。このフィールドは必ずファイルの最後にあります。

LANSAはこの@@UPIDフィールドを使用して、自動的に「相互更新」検査を行います。この検査ロジックは、以下のように非常に簡単なものです。

·         レコードを読み取り、@@UPIDの値を保管します。

·         更新が要求されると、レコードを再度読み取って@@UPIDの値を保存されている@@UPIDの値と比較します。両者の値が異なっている場合は、「相互更新」エラー・メッセージが出力されます。両者の値が一致している場合は、@@UPIDに1を足してファイル・レコードを更新します。

ユーザーのアプリケーション・プログラム(LANSA以外のアプリケーション)を作成し、新規レコードを書き込んだり、LANSAで作成されたデータベース・ファイル内の既存のレコードを更新する場合は、以下の処理を行うことをお勧めします。

1. 新規レコードを書き込む際に、@@UPIDを1に設定します。

2. 既存レコードを更新する際に、@@UPIDに1を加えます。

これにより、すべてのLANSAファンクションで自動的に使用されるロジックをエミュレーションすることができます。

注: @@UPIDというフィールド名は、COBOLプログラムでは使用しないでください。

この問題を解決するには、@@UPIDフィールドのデータ・ディクショナリの定義を変更して、COBOLでも使用可能な別名を付けます(@@UPIDのデータ・ディクショナリの定義をまだ変更していない場合)。

すべてのデータベース・ファイル(まだ別名の付いていないもの)を強制的に再作成した後、COBOLプログラム内でCOPY DDオプションを使用してフィールドに別名を付けます。COBOLプログラム内では、実際の名前ではなくこの別名が使用されます。

警告: @@UPIDフィールドは、その使用方法についてLANSAから特別の指示を受けている場合を除き、4GLレベルでは使用しないでください。

注: ファイルにBLOBまたはCLOBフィールドが含まれている場合は、@@UPIDが1回のUPDATEコマンドについて複数回1が加算される場合があります。これは、主ファイルに対して1回、UPDATEコマンドに含まれている各BLOBフィールドまたはCLOBフィールドについて1回1が加えられるために発生します。

また、以下も参照してください。

『LANSA テクニカル リファレンスガイド』「RESET_@@UPID組み込み関数」

Ýファイル