CREATE OR REPLACE PACKAGE HABTEST IS
TYPE combine_name IS RECORD
(f_name varchar2(25) := ' ',
 l_name varchar2(25) := ' ',
 m_initial varchar2(1) := ' ',
 ssn varchar2(12),
 dob date);
 
 TYPE ind_status IS RECORD
 (status_in_us varchar2(25) := ' ',
  marital_status varchar2(15) := ' ',
  sex varchar2(1) := ' ');
END HABTEST;
/

CREATE OR REPLACE PROCEDURE PROC_HABTEST (
p_rtncode number,
p_rtntxt varchar2,
p_work_status varchar2,
p_pay number,
p_combine_name habtest.combine_name,
p_city varchar2,
p_state varchar2,
p_ind_status habtest.ind_status,
p_final_name OUT varchar2,
p_final_ssn OUT varchar2,
p_candidate_ok OUT varchar2)
IS
l_rtncode number;
l_rtntxt varchar2(100);
l_work_status varchar2(20);
l_pay number;
l_combine_name habtest.combine_name;
l_city varchar2(25);
l_state varchar2(20);
l_ind_status habtest.ind_status;
l_final_name varchar2(50);
l_final_ssn varchar2(15);
l_candidate_ok varchar2(10);
l_f_name varchar2(25) := ' ';
l_l_name varchar2(25) := ' ';
l_m_initial varchar2(1) := ' ';
l_ssn varchar2(12);
l_dob date;
l_status_in_us varchar2(25) := ' ';
l_marital_status varchar2(15) := ' ';
l_sex varchar2(1) := ' ';
l_years number;

BEGIN
 l_rtncode := 0;
 l_rtntxt  := ' ';
 l_work_status  := ' ';
 l_pay  := 0;
 l_combine_name := p_combine_name;
 l_f_name := l_combine_name.f_name;
 l_l_name := l_combine_name.l_name;
 l_m_initial := l_combine_name.m_initial;
 l_ssn := l_combine_name.ssn;
 l_dob := l_combine_name.dob;
 l_city  := p_city;
 l_state  := p_state;
 l_ind_status := p_ind_status;
 l_status_in_us := l_ind_status.status_in_us;
 l_marital_status := l_ind_status.marital_status;
 l_sex := l_ind_status.sex;
 
 p_final_name := l_l_name ||', ' || l_m_initial || '. ' || l_f_name;
 p_final_ssn := substr(l_ssn, 1, 3) || '-' || substr(l_ssn, 4, 2) || '-' || substr(l_ssn, 6);
 
 SELECT trunc((sysdate - to_date(l_dob, 'mm/dd/yyyy')) /365) 
 INTO l_years
 FROM dual;
  IF l_years BETWEEN 30 AND 50 AND
     l_status_in_us IN ('CITIZEN', 'GREENCARD', 'VISA') AND
     l_state = 'IN' AND
     l_city IN ('INDY', 'CARMEL', 'AVON') AND
     l_marital_status = 'M' AND
     l_sex = 'M' THEN
     p_candidate_ok := 'OK';
  ELSE
     p_candidate_ok := 'NO';   
  END IF;
EXCEPTION
  WHEN OTHERS THEN
    BEGIN
	    l_rtncode := 100;
	    l_rtntxt := 'Errors';
	  END;
END PROC_HABTEST;
/

PROCEDURE SHOW_RESULT IS
l_rtncode number;
l_rtntxt varchar2(25);
l_combine_name habtest.combine_name;
l_ind_status   habtest.ind_status;
BEGIN
NULL;
END;

2.3> DECLARE
  2  l_rtncode number;
  3  l_rtntxt varchar2(25);
  4  l_combine_name habtest.combine_name;
  5  l_ind_status   habtest.ind_status;
  6  BEGIN
  7  NULL;
  8  END;
  9  /
PL/SQL procedure successfully completed.

create or replace package test
 type rec_type is record
    (f_name varchar2(25) := ' ',
     l_name varchar2(25) := ' ');
end test;

create or replace package test
 type rec_type is record
    (f_name varchar2(25),
     l_name varchar2(25));
end test;

create or replace package test
 type rec_type is record
    (f_name varchar2(25) := ' ',
     l_name varchar2(25) := ' ');
end test;

create or replace package test
 type rec_type is record
    (f_name varchar2(25) default ' ',
     l_name varchar2(25) default ' ');
end test;