DECLARE
  TYPE timerec IS RECORD(
     minutes   SMALLINT,
     hours     SMALLINT
   );  TYPE agendaitem IS RECORD(
     priority   INTEGER,
     subject    VARCHAR2(100),
     DURATION    timerec
   );  FUNCTION item(n INTEGER)
    RETURN agendaitem IS
     item_info    agendaitem;
  BEGIN
     ...
    RETURN item_info;   -- return record
  END;
BEGIN
  NULL;
  IF item(3).duration.minutes > 30 THEN ...   -- call function
END;