例 – DML LABEL - MultiLoad

以下のUpsert例の各レコードには、Employee表の行のうち、PhoneNo列にFoneフィールドから新しい電話番号を割り当てる行の、基本索引列(EmpNo)の値が含まれています。

このプログラム例では、現在のデフォルト データベースは、Employee表が格納されているデータベースPersonnelです。

.BEGIN IMPORT MLOAD TABLES Employee
.LAYOUT Layoutname;
.FIELD EmpNum 1 INTEGER;
.FIELD Fone * (CHAR (10));
.DML LABEL DMLlabelname
DO INSERT FOR MISSING UPDATE ROWS;
UPDATE Employee SET PhoneNo = :Fone WHERE EmpNo = :EmpNum;
INSERT Employee (EmpNo, PhoneNo) VALUES (:EmpNum, :Fone); 

Upsert機能では、更新操作に失敗するとINSERT文が実行されます。この場合、各レコードには、EmpNoおよびPhoneNoの列で構成されるEmployee表に挿入する行の基本キーの値(EmpNum)が格納されています。