procedure test is -- OK lowercase
begin -- OK lowercase
open c_res; -- OK lowercase
fetch c_res
into v_res_ms;
v_found := c_res%found;
CLOSE c_res; -- OK UPPERCASE
LOOP -- OK UPPERCASE
exit when ...
end LOOP; -- NOT OK => END LOOP UPPERCASE?
if v_l != v_e -- OK lowercase
then -- OK lowercase
...
end if; -- OK lowercase
end test;