The following lines contain the word 'select', 'insert', 'update' or 'delete':
select
pos_structure_version_id
,business_group_id
,position_structure_id
,date_from
,version_number
,copy_structure_version_id
,date_to
,request_id
,program_application_id
,program_id
,program_update_date
,object_version_number
from per_pos_structure_versions
where pos_structure_version_id = p_pos_structure_version_id;
select
pos_structure_version_id
,business_group_id
,position_structure_id
,date_from
,version_number
,copy_structure_version_id
,date_to
,request_id
,program_application_id
,program_id
,program_update_date
,object_version_number
from per_pos_structure_versions
where pos_structure_version_id = p_pos_structure_version_id
for update nowait;
,p_program_update_date in date
,p_object_version_number in number
)
Return g_rec_type is
--
l_rec g_rec_type;
l_rec.program_update_date := p_program_update_date;