How to read ,compare and search unicode in we8mswin1252 ?

Question

HI,
I having face a trouble while reading and search Unicode for my project module  and its totally dependent  on Unicode data for displaying and retrieve operation in oracle 11g  sql develop.
code is  as following in ORACLE 11G SQL DEVELOPER
FLOW IS ....
1. Procedure
create or replace PROCEDURE VR_CRONICA_CHECKDUPLICATE
  iv_UFirstName in nvarchar2  DEFAULT NULL,      --Added for Unicode  31-DEc-2014 Jimmy
  iv_UMiddleName in nvarchar2  DEFAULT NULL,   --Added for Unicode  31-DEc-2014 Jimmy
  iv_ULastName in nvarchar2  DEFAULT NULL,      --Added for Unicode  31-DEc-2014 Jimmy
  v_StatusID OUT NUMBER,
  v_Per_ID OUT NUMBER,
  v_Version OUT NUMBER,
  pResult out TYPES.cursortype
AS
  cur_hdl int;
  --cur_hdl_TotalRecs int;
  strSQL                    VARCHAR2(32767);
    strSQLWhere          VARCHAR2(4000);
   v_UFirstName nvarchar2(50) := iv_UFirstName;
   p_UMiddleName nvarchar2(50) := iv_UMiddleName;
   p_ULastName nvarchar2(50) := iv_ULastName;
    p_UFirstName  nvarchar2(255) :=v_UFirstName;
      iv_Per_ID NUMBER(10,0);
      iv_Version NUMBER(10,0);
BEGIN
DBMS_OUTPUT.PUT('VR_PersonRecord_CheckDuplicate' );
begin
cur_hdl := dbms_sql.open_cursor;
--cur_hdl_TotalRecs:=dbms_sql.open_cursor;
strSQL  := ' ';
strSQL  :=  strSQL || '
                                SELECT
                                                CAST(PER_ID AS number(8,0)) AS PER_ID,
                                                CAST(Version AS number(8,0)) AS Version,
                                                 INTO
                                                 iv_Per_ID,
                                                 iv_Version
                               FROM
                               VitalRecords_Search_CurrentDoc WHERE' ;
                                  IF p_ULastName is not null THEN
                                          BEGIN
                                              strSQLWhere  := ' trim(UPPER (U_LASTNAME)) = TRIM(UPPER(:p_ULastName ))';
                                          END;
                                  END IF;
                                  IF p_UFirstName is not null THEN
                                            strSQLWhere  :=  strSQLWhere || '
                                              AND  TRIM(UPPER (U_FIRSTNAME)) = TRIM(UPPER(:p_UFirstName|))';
                                END if;
                                  IF p_UMiddleName IS NOT NULL THEN
                                        BEGIN
                                                  strSQLWhere  :=  strSQLWhere || '
                                                    AND  TRIM(UPPER (U_MIDDLENAME)) = TRIM(UPPER(:p_UMiddleName))';
                                        end ;
                                  end if ;
                                  v_Per_ID :=  iv_Per_ID;
                                 exception
                                                    when no_data_found then
                                                                              begin
                                                                                  v_Per_ID:=0;
                                                                                  v_Version:=0;
                                                                                  v_StatusID := 0 ;
                                                                              end;
                                      end;
--IF pResult%ISOPEN THEN
--CLOSE pResult;
--END IF ;
open pResult for
                              select PER_ID  ,
                                          Version  ,
                                          U_FIRSTNAME  ,
                                          U_MIDDLENAME  ,
                                          U_LASTNAME 
                              from table(readDWSeachPersons1(cur_hdl));
END;
.Function
create or replace FUNCTION READDWSEACHPERSONS1
        (cur_hdl int)
                  RETURN
                                     DWSeachPersonsTypeTableType1
PIPELINED IS
        PER_ID  NUMBER(10);
        Version  NUMBER(10);
        U_FIRSTNAME NVARCHAR2(500) ;
        U_MIDDLENAME NVARCHAR2(500) ;
        U_LASTNAME NVARCHAR2(500) ;
BEGIN
      dbms_sql.define_column(cur_hdl, 1, PER_ID);
      dbms_sql.define_column(cur_hdl, 2, Version);
      dbms_sql.define_column(cur_hdl, 3, U_FIRSTNAME   ,500);
      dbms_sql.define_column(cur_hdl, 4, U_MIDDLENAME   ,500);
      dbms_sql.define_column(cur_hdl, 5,  U_LASTNAME   ,500);
  LOOP
  -- fetch a row
           IF dbms_sql.fetch_rows(cur_hdl) > 0 then
                            -- fetch columns from the row
                               dbms_sql.column_value(cur_hdl, 1, PER_ID);
                               dbms_sql.column_value(cur_hdl, 2, Version);
                               dbms_sql.column_value(cur_hdl,  3, U_FIRSTNAME  );
                               dbms_sql.column_value(cur_hdl,  4, U_MIDDLENAME  );
                               dbms_sql.column_value(cur_hdl,  5, U_LASTNAME   );
                                       PIPE ROW (DWSeachPersonsType1(PER_ID,Version,U_FIRSTNAME,U_MIDDLENAME,U_LASTNAME));
                     ELSE
                           EXIT;
          END IF;
  END LOOP;
  RETURN;
END;
3. Type
create or replace TYPE DWSeachPersonsType1 AS OBJECT
PER_ID  NUMBER(10),
Version  NUMBER(10),
U_FIRSTNAME NVARCHAR2(500) ,
U_MIDDLENAME NVARCHAR2(500) ,
U_LASTNAME NVARCHAR2(500)
4. TYPE
create or replace TYPE DWSeachPersonsTypeTableType1 AS TABLE OF DWSeachPersonsType1;
error is coming like :
ORA-01003: no statement parsed ORA-06512: at "SYS.DBMS_SQL", line 1450 ORA-06512: at "A0_SJFRM_9AUG_JAYESHB.READDWSEACHPERSONS1", line 16
so,friends let me sugges solution regarding asap..its very urgent ..

Answer 1

Hi
because you have such a hurry, you have done bad design i think Why separating responsibilities of executing SQL in table function that way?
You cannot have any advantage from separation because it is not general code. SQL is created here and there is function that defines columns to that SQL.
Developer has no clue what it is executing until searching code for that cursor parameter. That SQL concatenation sucks also.
That code is not easy to maintain or test or comprehend quickly or at all
At least to me that is a big mess.
Suggest that you do that simplest logic as possible and add that missing parse there.