Embedded Function

Declare
    Function fHired (vHireDate Date)   
    Return Number
        Is 
            Begin                              
                Return Round((Sysdate-vHireDate)/365);
            End;          
Begin
   For vRec In (Select Empno, Hiredate 
                  From Emp) 
   Loop
   Dbms_Output.Put_Line
     ('Emp # '         || vRec.Empno             
    ||' Hired '        || To_Char(vRec.Hiredate,'Yyyy')
    ||' Years worked: '|| fHired(vRec.Hiredate));
   End Loop;
End;
/