[ Image Removed |../../index.htm#lansa/insert_e.htm]
現在地:

...

7.78.3 INSERT の使用例

...

例1：キーが指定されているCUSTMSTというファイルにフィールド#CUSTNO、#NAME、#ADDL1、および#POSTCDを挿入します。

   INSERT  FIELDS(#CUSTNO #NAME #ADDL1 #POSTCD) TO_FILE(CUSMST)

...

 または、以下のように指定しても同じ結果になります。 または、以下のように指定しても同じ結果になります。 
   GROUP_
...
BY  NAME(#CUSTOMER)
...
 FIELDS(#CUSTNO #NAME #ADDL1 #POSTCD)
   INSERT    FIELDS(#CUSTOMER)
...
 TO_FILE(CUSMST)
...

 例2：顧客の詳細を入力するようユーザーに要求します。入力された顧客がすでに存在する場合はフィールドを更新し、それ以外の場合は新しい顧客レコードを作成します。 例2：顧客の詳細を入力するようユーザーに要求します。入力された顧客がすでに存在する場合はフィールドを更新し、それ以外の場合は新しい顧客レコードを作成します。
   GROUP_
...
BY  NAME(#CUSTOMER)
...
 FIELDS(#CUSTNO #NAME #ADDL1 #POSTCD)
   REQUEST   FIELDS(#CUSTOMER)
   CHECK_
...
FOR IN_FILE(CUSMST)
...
 WITH_KEY(#CUSTNO
...

   IF_
...
STATUS IS(*EQUALKEY)
...

   UPDATE    FIELDS(#CUSTOMER)
...
 IN_FILE(CUSMST)
...
 WITH_KEY(#CUSTNO)
...

   ELSE
   INSERT    FIELDS(#CUSTOMER)
...
 TO_FILE(CUSMST)
   ENDIF
 
 例3：現在アクティブなバージョンのすべての実フィールドをファイルCUSMSTに挿入します。 
 INSERT  FIELDS例3：現在アクティブなバージョンのすべての実フィールドをファイルCUSMSTに挿入します。
   INSERT  FIELDS(*ALL_REAL)
...
 TO_FILE(CUSMST)
...

 例4：ファイルCUSMSTに新しいレコードを挿入する際に住所フィールドを除外します。 例4：ファイルCUSMSTに新しいレコードを挿入する際に住所フィールドを除外します。 
   GROUP_
...
BY  NAME(#XG_ADDR)
...
 FIELDS(#ADDL1 #POSTCD)
   INSERT    FIELDS(*ALL *EXCLUDING #XG_ADDR)
...
 TO_FILE(CUSMST)
...