PROCEDURE POPULATELIST(CLause in varchar2) IS
	CURSOR CURACC(z  varchar2) IS SELECT TBLACCOUNT.ID,TBLACCOUNT.ID,TBLACCOUNT.DESCRIPTION,TBLACCOUNT.STATUS 
	FROM SCC.TBLACCOUNT where ID > z;
BEGIN
	GO_BLOCK('ACCTYPEVW');
	CLEAR_BLOCK;
	FIRST_RECORD;
	OPEN CURACC(Clause);
LOOP
	IF :ACCTYPEVW.ACCID IS NOT NULL THEN
  	NEXT_RECORD;
  	END IF;

FETCH CURACC INTO  :ACCTYPEVW.ACCID,:ACCTYPEVW.N4,:ACCTYPEVW.ACCDESC,:ACCTYPEVW.STATUS;
EXIT WHEN CURACC%NOTFOUND;

--RETURN TEXT FOR GROUP OF DETAIL
IF :ACCTYPEVW.STATUS=15 THEN 
	 :ACCTYPEVW.STATUS:='Group'; 
ELSIF :ACCTYPEVW.STATUS=16 THEN
	:ACCTYPEVW.STATUS:='Detail'; 
END IF;
--HIGHT LIGHT GROUP FIELDS
   Declare
     v_curr_rec PLS_INTEGER := get_block_property('ACCTYPEVW',CURRENT_RECORD);
   Begin
       IF :ACCTYPEVW.STATUS='Group' THEN 
       set_block_color('ACCTYPEVW', v_curr_rec, 'BOLD');
       END IF;	
    END;
END LOOP;
GO_BLOCK('ACCTYPEVW');
CLOSE CURACC;
exception when others then 
	message(dbms_error_text);
END;

POPULATELIST(' 0 and ID ='|| :Search_blk.search||' Group by ID' );

CREATE OR REPLACE PROCEDURE PRO_SEARCH(CLAUSE IN VARCHAR2,C_CUR OUT SYS_CURSOR)
AS
BEGIN
OPEN C_CUR FOR 
	SELECT * FROM TBLACCOUNT
		WHERE ID > CLAUSE;
EXCEPTION WHEN OTHERS THEN
PRO_eXCEPRION(SQLCODE,SQLERRM);
END PRO_SEARCH;
/

DECLARE
 C_CUR SYS_REFCURSOR;
 R_ACC TBLACCOUNT%ROWTYPE;
BEGIN
 PRO_SEARCH(' 0 AND TO_NUMBER(ID) =1',C_CUR);
 LOOP
  FETCH C_CUR INTO R_ACC;
  EXIT WHEN C_CUR%NOTFOUND;
  DBMS_OUTPUT.PUT_LINE(R_ACC.ID||'  '||R_ACC.DESCRIPTION);
END;
/