DELETE (位置指定)

DataRows カーソルによって最後にフェッチされた行を削除します。

構文:

>>-EXEC ADO-.--------------------.-DELETE---FROM---datatable_name---->
            +-USING dataset_name-+

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

パラメーター:

dataset_name 使用する DataSet 参照。dataset_name を指定しない場合は、現在の DataSet が使用されます。
datatable_name SELECT FROM オプションで使用するものと同じ DataTable (「DECLARE CURSOR」を参照)。
datarows_name 宣言後に開かれ、取り込まれた DataRows カーソル。

説明:

EXEC ADO は位置指定削除をサポートします。ただし、位置指定削除でホスト配列を使用することはできません。

標準 EXEC ADO 文で使用されるもう 1 種類の DELETE は、検索削除と呼ばれます。

例:

* 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