UPDATE (位置指定)

構文：

>>-EXEC ADO-.--------------------.--UPDATE-datatable_name---->
            +-USING dataset_name-+

         +-----------  ,  -----------+
         V                           |
>--SET---column_name = -+- :hvar-----+----------------------->
                       -+- col_value-+


>--WHERE CURRENT OF--datarows_name---END-EXEC----------------><

パラメーター：

`dataset_name`	使用する DataSet 参照。`dataset_name` を指定しない場合は、現在の DataSet が使用されます。
`datatable_name`	更新する DataTable の名前。
`column_name`	更新する列。
`hvar`	列値を含むホスト変数。
`col_value`	列値。
`datarows_name`	事前に宣言済みのフェッチ済みの DataRows カーソル。

説明：

EXEC ADO は、位置指定更新をサポートします。ただし、すべての ADO.NET データプロバイダーが、位置指定更新をサポートするわけではありません。

ADO.NET データプロバイダーによっては、カーソルが使用する SELECT 文に、位置指定更新を有効にする FOR UPDATE 句を含める必要があります。

EXEC ADO 文で使用されるもう 1 つの形式の UPDATE は、検索更新と呼ばれます。

位置指定更新ではホスト配列を使用できません。

ほとんどのデータソースでは、SCROLLOPTION および CONCURRENCY の特定の組み合わせを、SET 文または DECLARE CURSOR 文で指定する必要があります。

例：

* Declare the cursor
     EXEC ADO
        DECLARE c1 DATAROWS FROM oline
     END-EXEC

* Open the cursor
     EXEC ADO
        OPEN c1 
     END-EXEC

* Modify the table using positioned updates and deletes
     PERFORM UNTIL EXIT
        * Delete row 1, 4, 7, ...
        EXEC ADO FETCH c1 INTO :oline END-EXEC
        IF SQLCODE NOT = 0
           EXIT PERFORM
        END-IF 
        EXEC ADO DELETE FROM oline WHERE CURRENT OF c1 END-EXEC
				
        * Update row 2, 5, 8, ...
        EXEC ADO FETCH c1 INTO :oline END-EXEC
        IF SQLCODE NOT = 0
           EXIT PERFORM
        END-IF
        MOVE 99 TO qty
        EXEC ADO UPDATE oline SET qty = :qty WHERE CURRENT OF c1 END-EXEC
				
        * Leave alone row 3, 6, 9, ...
        EXEC ADO FETCH c1 INTO :oline END-EXEC
        IF SQLCODE NOT = 0
           EXIT PERFORM
        END-IF
     END-PERFORM