How to populate USERNAME into a text field [SOLVED]

Question

Hi all,
Forms 10g(10.1.2.0.2), Windows XP
In my form I have 2 blocks.
Block 1 with only one item, where we enter some value and hit enter(this will navigate to block2 and execute the query).
Block 2(tabular) will fetch the records. Now this block2 have 3 columns(caseid, userid, date).
Now when I insert a new record, I just need to enter the caseid only. And userid and date have to be automatically populated.
I'm able to populate date by setting Initial Value property to *$$DATETIME$$* for the date column.
And I tried many ways to populate USERNAME into userid column without any success.
I tired something like this
In *When-New-Item-Instance*
if :System.Cursor_Item is null then
     :BLOCK2.userid := Get_Application_Property(USERNAME);
else
     null;
end if;
/*In this case, I can navigate to to the last recrord w/o any changes in the fetced records
and while inserting the new record, USERNAME doesn't populate.*/
In *When-New-Record-Instance*
declare
     v_dummy varchar2(15) := null;
begin
     v_dummy := nvl(:system.cursor_value, null);
     Copy(to_char(v_dummy), :System.Cursor_Item);
     if :System.Cursor_Item is null then
          Copy(null, :System.Cursor_Item);
          :BLOCK2.userid := Get_Application_Property(USERNAME);
     else
          null;
     end if;
end;
/* Nothing populates into the userid item while inserting new record */Any help please...

Answer 1

Hi Ammad,
It is populating number 73 (which is not my username) into the field.
And when I changed it to :BLOCK2.userid:=GET_APPLICATION_PROPERTY('USERNAME');
I get FRM-40735 WHEN-CREATE-RECORD trigger raised unhandled exception ORA-06502
Also when the new record is inserting, the user shouldn't be able to edit userid and date fields. But this is also not working...
Edited by: Charan on Sep 20, 2011 11:26 AM