on-Select :  -- call your Database PAckage PS_SC.read
        ------- EXAMPLE
        ---    IN: QRY_id ;  RETURNING PL/SQLTAB
    	g_erg_last := 0; -- on-Fetch-Counter reset
   p_form.g_tab := PS_SC.READ (pi_QRY_id => 1,
         po_anz_rows  => l_count_rows,
         po_an_column => l_count_column ); 

   WHILE p_form.g_erg_last < p_form.g_tab.COUNT
    LOOP
    p_form.g_erg_counter_last := p_form.g_erg_last + 1;
        CREATE_QUERIED_RECORD;
    -- UNIVERSAL is the name of the FORMS-Block
   :UNIVERSAL.COl1 := p_form.g_tab(p_form.g_erg_last).colu1;
   :UNIVERSAL.COl2 := p_form.g_tab(p_form.g_erg_last).colu2;
   :UNIVERSAL.COl3 ...
     ...
   END LOOP;

cursor cu_lock is
  select * from your_tab where id = :universal.id
    for update nowait;