Open cur1;
	   Loop
	   	   Fetch cur1 into vcur;
	   	   Exit When cur1%Notfound;	
	   	      Go_block('Data');
	   	      First_Record;	   	     
             For i in (select slcode from rtm_slcode_list order by slcode) Loop
             	   If vcur.slcode = i.slcode Then 
             	   	  For j in (select glcode from rtm_tdsgl_list order by glcode) Loop
             	   	  	if vcur.glcode = j.glcode Then
             	   	  		 << hear want to fix value for currentitem >>
             	   	  	Else
             	   	  		 Next_item;
             	   	  	End if;	 
             	   	  End Loop;
             	   Else
             	   	  Next_Record;
             	   End if;
             End Loop;
	   End Loop;

:block.your_current_item := some_value;

copy(vcur.derval+nvl(:System.Current_value,0),:System.current_item);