Get next value in a Multi Record Block

Question

Hi,
I've a Multi Record block with 2 items like below.
pos width
1 7
8 5
13 5
18 2
ie pos in next item is sum of pos and width of previous item.I've already implemented this.
The problem is if the user changes width in a particular record,I want to change next records pos automatically.
To achieve this,I wrote a when-new-record -instance-trigger as follws:
if :system.cursor_record=1 then
:pos:=1;
elsif :system.record_status='changed' then
:pos:=:pos+:width;
end if;
but even Though I change column width of block,:system.record_status still remain 'INSERT'.
Pls can u pls tell me how can I acheive this?
Prashanth Deshmukh

Answer 1

You cannot use Record Status like that.
You need to create a procedure that loops through your entire block, keeping track of the pos and width of the prior record to calculate the new pos of each record.
Your procedure would need to do something like this:
Declare
    v_Pos  pls_integer := 1;
Begin
  Go_block('B1');
  First_Record;
  Loop
    Exit when :System.record_status='NEW';
    :B1.pos := v_Pos;
    v_Pos := v_Pos + :B1.width;
    Exit when :System.last_record = 'TRUE';
    Next_Record;
  End Loop;
  First_Record;
End;