The following lines contain the word 'select', 'insert', 'update' or 'delete':
delete from ecx_dtds
where root_element = i_root_element
and ( version = i_location or i_location is null )
and filename = i_filename;
insert into ecx_dtds
(
dtd_id,
root_element,
filename,
version,
payload
)
values
(
ecx_dtd_s.nextval,
i_root_element,
i_filename,
i_location,
i_payload
);
delete from ecx_dtds
where root_element = i_root_element
and filename = i_filename
and ( version = i_location or i_location is null );
i_retmsg :=' DTD Successfully Deleted';
i_retmsg := SQLERRM ||' DTD cannot be deleted';