The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure insertmessage(msg varchar2) is
begin
-- delete from scott.output;
-- insert into output values(msg);
qry := 'select DATA_TYPE from ALL_ARGUMENTS ';
qry := 'select DATA_TYPE, TYPE_NAME, TYPE_SUBNAME from ALL_ARGUMENTS ';
insertmessage ('Waiting in fetch results.');
insertmessage (to_char(ack));
-- insertmessage('Trying to initialize cgi environment.');
-- insertmessage('Sending ack' || SessionID || 'Res');
-- insertmessage(err_info);
-- insertmessage('Sending file :' || sDownloadFile
-- || ':And its compress code is ' || to_char(nCompress));
-- insertmessage('sending msg ' || Lines(counter));