SQLRPG Delete im Select

[svit]

Hallo *all,
besteht die Möglichkeit unter SQLRPG-Free in einer SELEct- Schleife den gelesenen Satz sofort löschen?
Bsp.:
exec sql set option naming = *SYS,
commit = *NONE;
exec sql DECLARE Tabelle1 CURSOR FOR
select * from Tabelle ;
exec sql open Tabelle1;
if SQLCODE = 0;
clear outResponse;
exec sql FETCH Tabelle1 INTO :lclTabelleBuffer;
dow SQLCODE = 0 and i < 100;
i += 1;
outResponse.Data(i) = lclTabelleBuffer;
delete Tabelle1;
exec sql FETCH Tabelle1 INTO :lclTabelle1Buffer;

ENDDO;