DELETE (位置指定)

構文：

>>-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