BEGIN
	go_block('BLOCK3');
	FOR x in (select typecode from ref_attr_val   
where typecode in ('M2M','SIZE','EMAL') group by typecode)
	LOOP		
	:BLOCK3.txt_item:=x.typecode;
        create_record;
        end_loop;
        END;