The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT
SUBSTR(CP.USER_CONCURRENT_PROGRAM_NAME
,1
,80)
INTO L_REPORT_NAME
FROM
FND_CONCURRENT_PROGRAMS_VL CP,
FND_CONCURRENT_REQUESTS CR
WHERE CR.REQUEST_ID = P_CONC_REQUEST_ID
AND CP.APPLICATION_ID = CR.PROGRAM_APPLICATION_ID
AND CP.CONCURRENT_PROGRAM_ID = CR.CONCURRENT_PROGRAM_ID;