DECLARE
        -- variable to save selected child
	v_cur_child varchar(50);
	
BEGIN
        -- get the value for the item where cursor is
	GO_RECORD(:SYSTEM.CURSOR_RECORD);

        -- save value to variable
	v_cur_wi_code := :BLOCK2.WI_CODE;

	Clear_Form;

        -- Go to the parent block
	GO_BLOCK('BLOCK1');	

        -- Enter query mode
	ENTER_QUERY;

        -- set master record value to saved child value        
	:BLOCK1.WI_CODE := v_cur_child;

        execute_query;
END;

-- WHEN-BUTTON-PRESSED
set_block_property('block1', onetime_where, 'wi_code = :block2.wi_code');
go_block('block1');
execute_query;