1.RRG_PATH           
  Data Type: Char
  Maximum Length:255

2.RRG_VARIABLE      

  Data Type:       Char
  Maximum Length:  80  

3.RRG_EXCEPTIONS  
   Label:          Raise Exception?
   Data Type:      Char 
   Maximum Length: 1 
   Initial Value:  Y

4.RRG_RESULT
  iTEM Type:      Display Item
  Justification:  Left
  Data Type :     Char
  Maximum Length: 80

begin 
 :RRG.RRG_RESULT := WIN_API_ENVIRONMENT.Read_Registry(
	 :RRG.RRG_PATH,:RRG.RRG_variable,toBoolean(:RRG.RRG_exceptions));
end;

begin 
 if :RRG.RRG_PATH is null then 
 	:RRG.RRG_PATH := 
        'HKEY_CURRENT_USER\Control  Panel\desktop';
	:RRG.RRG_VARIABLE := 'Wallpaper';
 end if;
 enter;
end;