CREATE OR REPLACE AND RESOLVE JAVA SOURCE NAMED "PSTest" AS
import java.sql.SQLData;
import java.sql.SQLException;
import java.sql.SQLInput;
import java.sql.SQLOutput;
import java.util.List;

public class PSTest implements SQLData{

    public String sql_type = "PS_TEST_TYPE";

    private String           id;
    
    public String getId() throws java.sql.SQLException{
        return id;
    }

    public void setId(String id) throws java.sql.SQLException{
        this.id = id;
    }
    public String toString() {
        StringBuffer sb = new StringBuffer(this.getClass().getName());
        return sb.toString();
    }
	public String getSQLTypeName() throws SQLException {
		return sql_type;
	}
	public void writeSQL(SQLOutput stream) throws SQLException {

		  stream.writeString(id);
	}
	public void readSQL(SQLInput stream, String typeName) throws SQLException {
		sql_type                     = typeName;
		id                             = stream.readString();
	}

}
/

CREATE OR REPLACE TYPE PS_TEST_TYPE as object external name 'PSTest' language java
using sqldata(
id                          varchar2(1000)          external name 'id',
member function getId                       return varchar2   external name 'getId() return java.lang.String'
);
/

when we test the above created type object from anonymous block,

declare
lps_test_type PS_TEST_TYPE;
begin
    lps_test_type := NEW PS_TEST_TYPE('1');
    dbms_output.put_line(lps_test_type.getId());
end;
/

SQL> declare
  2  lps_test_type PS_TEST_TYPE;
  3  begin
  4  lps_test_type := NEW PS_TEST_TYPE('1');
  5  dbms_output.put_line(lps_test_type.getId());
  6  end;
  7  /
1

PL/SQL procedure successfully completed.

SQL> @v

Version Oracle : 10.2.0.4.0

SQL> declare
  2  lps_test_type PS_TEST_TYPE;
  3  begin
  4  lps_test_type := NEW PS_TEST_TYPE('1');
  5  dbms_output.put_line(lps_test_type.getId());
  6  end;
  7  /
1

PL/SQL procedure successfully completed.

SQL> @v

Version Oracle : 11.2.0.1.0