Oracle - Populate List Item from SQL

PROCEDURE epc_pop_list_item (p_item_name varchar2, p_sql varchar2) IS

rg_name VARCHAR2(40) := 'pop_list';
rg_id RecordGroup;
errcode NUMBER;

list_id Item;

BEGIN

rg_id := Find_Group( rg_name );

IF Id_Null(rg_id) THEN
rg_id := Create_Group_From_Query( rg_name, p_sql );
END IF;

errcode := Populate_Group( rg_id );
------------------------------------------------------

list_id := Find_item(p_item_name);
Clear_List(list_id);
Populate_List(list_id, 'pop_list');

END;

Visit Malaysia

http://www.airasia.com/

Redang Island
http://redang.org/

Langkawi
http://www.langkawi-online.com/
http://www.langkawi-info.com/

Penang 槟城
http://www.tourismpenang.gov.my/
http://www.visitpenang.com/

Pangkor Island
http://www.pangkor.com.my/
http://www.pulau-pangkor.com/
http://www.cuti.com.my/Sub/Perak/guide_pangkor.htm

Happy Chinese New Year

Happy Chinese New Year

and

GONG XI FA CHAI

Oracle - Call Form Function

Oracle Form
Sample code for call form function with parameter.

Declare
Lp_param Paramlist;
Lp_param_xl Paramlist;
Begin
If Id_null(Lp_param_xl) Then
Lp_param_xl := CREATE_PARAMETER_LIST('xl');
ADD_PARAMETER('xl','P_1',text_parameter, p_1);
ADD_PARAMETER('xl','P_2',text_parameter, p_2);

Call_form('UW_FRM_MR_08_10G',no_hide,no_replace,no_query_only,'xl');
Destroy_parameter_list('xl');
End if;

Exception
WHEN FORM_TRIGGER_FAILURE THEN
Raise form_trigger_failure;
End;

Stephen Chow's CJ7 official trailer

周星馳《長江七號》電影預告



CJ7 2nd Trailer