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 カーソル。 |
例:
* 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
説明:
EXEC ADO は位置指定削除をサポートします。ただし、位置指定削除でホスト配列を使用することはできません。
標準 EXEC ADO 文で使用されるもう 1 種類の DELETE は、検索削除と呼ばれます。