Ayuda...

[kikolice]

suponiendo que ya resolviste el problema que se va a presentar cuando una persona tenga dos nombres (ejemplo "luis antonio"), un apellido compuesto (ejemplo "san algo") y un largo etc. etc.

tal vez la facil sea

v_ini_nombre := substr(vnom, 1,1);
v_ini_ape1 := substr(vnom, instr(v_nom, ' ') +1,1);
v_ini_ape2 := substr(vnom, instr(v_nom, ' ', 2)+1,1);