The following lines contain the word 'select', 'insert', 'update' or 'delete':
select
pos_structure_element_id
,business_group_id
,pos_structure_version_id
,subordinate_position_id
,parent_position_id
,request_id
,program_application_id
,program_id
,program_update_date
,object_version_number
from per_pos_structure_elements
where pos_structure_element_id = p_pos_structure_element_id;
select
pos_structure_element_id
,business_group_id
,pos_structure_version_id
,subordinate_position_id
,parent_position_id
,request_id
,program_application_id
,program_id
,program_update_date
,object_version_number
from per_pos_structure_elements
where pos_structure_element_id = p_pos_structure_element_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;