3.8 LANSA作成テーブル内の@@UPID列

他システムではなく、LANSA で作成され、保守される物理テーブルには付加的な列があります。

この列は @@UPID と呼ばれ、10 進 (7,0) として定義されます。これは必ずテーブルの最後の列となります。

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

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

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

新規レコードを書き込む際に、@@UPID を 1 に設定。
既存レコードを更新する際に、@@UPID に 1 を加算。

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

注意1： @@UPID という列名は、COBOL プログラムでは使用できません。
これを解決するには、まだの場合は @@UPID フィールドのデータ・ディクショナリの定義を変更して、COBOL でも使用可能な別名を付けます。
まだ別名が付けられていないすべてのデータベース・テーブルを強制的に再作成した後、COBOL プログラム内で COPY DD オプションを使用してフィールドに別名を付けます。実際の名前ではなくこの別名が使用されます。

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

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

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

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