ORA-06553: PLS-801: internal error [55018]

Question

This error is returned when executing a Function with the RETURN X%ROWTYPE is used.
Here is the code.
CREATE OR REPLACE function FE_GET_addr (
p_PIDM IN addr.addr_PIDM%TYPE,
p_atyp1 IN VARCHAR2,
p_atyp2 IN VARCHAR2,
p_atyp3 IN VARCHAR2,
p_atyp4 IN VARCHAR2
RETURN addr%ROWTYPE
IS
v_rowid ROWID;
CURSOR C_addr
IS
SELECT
ROWID RD
FROM addr
WHERE addr_PIDM = p_PIDM
AND NVL ( addr_STATUS_IND, ' ' ) != 'I'
AND NVL ( addr_FROM_DATE, SYSDATE ) <= SYSDATE
AND NVL ( addr_TO_DATE, SYSDATE ) >= SYSDATE
AND addr_ATYP_CODE IN
( SUBSTR ( p_atyp1, 2, 2 ),
SUBSTR ( p_atyp2, 2, 2 ),
SUBSTR ( p_atyp3, 2, 2 ),
SUBSTR ( p_atyp4, 2, 2 )
addr_rec addr%ROWTYPE;
BEGIN
OPEN c_addr;
FETCH c_addr INTO v_rowid;
IF c_addr%notfound
THEN return NULL;
ELSE
SELECT * INTO addr_rec
FROM addr
WHERE ROWID = v_rowid;
RETURN (addr_rec);
END IF;
CLOSE c_addr;
END Fe_Get_addr;
Thanks
Holly

Answer 1

why so complicated?
(btw you never get to the "close cursor" bit)
create or replace function fe_get_addr(p_pidm  in addr.addr_pidm%type
                                      ,p_atyp1 in varchar2
                                      ,p_atyp2 in varchar2
                                      ,p_atyp3 in varchar2
                                      ,p_atyp4 in varchar2)
   return addr%rowtype is
   addr_rec addr%rowtype;
begin
   select *
     into add_rec
     from addr
    where addr_pidm = p_pidm
      and nvl(addr_status_ind
             ,' ') != 'I'
      and nvl(addr_from_date
             ,sysdate) <= sysdate
      and nvl(addr_to_date
             ,sysdate) >= sysdate
      and addr_atyp_code in (substr(p_atyp1
                                   ,2
                                   ,2)
                            ,substr(p_atyp2
                                   ,2
                                   ,2)
                            ,substr(p_atyp3
                                   ,2
                                   ,2)
                            ,substr(p_atyp4
                                   ,2
                                   ,2));
   return(addr_rec);
end fe_get_addr;