---------------------------------------
PROCEDURE S_VALUE_LIST IS
	rg_id RecordGroup;
	lst_id Item := Find_Item('SNSPECMST.S_VALUE');
	ERRORCD NUMBER;
	t_srno1 number := 0;
	t_srno2 number := 0;
	t_srno3 number := 0;
BEGIN
	-------------------------------------------------------------
declare cursor c1 is 
	select specmst_srno1,specmst_srno2,specmst_srno3 
	  from snspecmst
	 where specmst_prod_type = :SNITEMS.SI_PROD_TYPE
	   and rownum < (to_number(:SYSTEM.MOUSE_RECORD) + 1)
	  order by rownum desc;
begin
open c1;
loop
	fetch c1 into t_srno1,t_srno2,t_srno3;
	exit when c1%notfound;
	exit;
end loop;
close c1;	
end;

rg_id := Find_Group('vs'); 
IF NOT Id_Null(rg_id) THEN 
	Delete_Group( rg_id ); 
END IF;
clear_list(lst_id);
rg_id := Create_Group_From_Query('vs', 'SELECT ECS_VAL, ECS_VAL   FROM ECS_SPECVAL WHERE ECS_PROD_TYPE = '||CHR(39)||:SNITEMS.SI_PROD_TYPE||CHR(39)||' AND ECS_SPEC_SRNO1 = '||t_SRNO1 ||' AND ECS_SPEC_SRNO2 = '||t_SRNO2 || ' AND ECS_SPEC_SRNO3 = '||t_SRNO3 ||' ');

ERRORCD := Populate_Group(rg_id);
if ERRORCD = 0 THEN
	populate_list(lst_id,rg_id);
ELSE
	G_FUN.MSGBOX('Error in creating list items');
	raise form_trigger_failure;
end if;
delete_group('vs');
END;
----------------------------------

PROCEDURE S_VALUE_LIST IS