Mengisi Tabel PL/SQL dari Blok di Oracle D2k Forms

Mengisi Tabel PL/SQL dari Blok di Oracle D2k Forms

PROCEDURE populate_plsql_table(my_table1 my_table, cnt OUT NUMBER)

IS



/* Define a PL/SQL record with two fields code and name */



   TYPE state_rec IS RECORD (code varhcar2(2), name varhcar2(30));



/* Define a PL/SQL table of the record defined above */



   TYPE my_table IS TABLE OF state_rec INDEX BY BINARY_INTEGER;

    my_table1 my_table;



/* Define a variable of type ITEMS_IN_BLOCK. ITEMS_IN_BLOCK is a

Forms-defined table */

    Item_data ITEMS_IN_BLOCK;

    Cnt NUMBER;

BEGIN

     Item_data(1) := 'STATE_CODE';

      item_data(2) := 'STATE_NAME';



/* The call to the Forms built-in TABLE_FROM_BLOCK retrieves the records

from the block and populates the my_table1 table of records */



      TABLE_FROM_BLOCK(my_table1, 'STATE',1, ALL_RECORDS, item_data);

     -- The SUCCESS or FAILURE of this built-in can be assessed

      -- with FORM_SUCCESS, just like any other built-in



      IF NOT FORM_SUCCESS THEN

         RAISE FORM_TRIGGER_FAILURE;

     END IF;

      Cnt := my_table1.COUNT;

END populate_plsql_table;

1. Tentukan catatan PL/SQL agar setara dengan struktur catatan yang akan diteruskan sebagai input. Dalam hal ini, ini adalah state_rec dan merupakan dua item KODE dan NAMA sesuai dengan STATE_CODE dan STATE_NAME.

2. Tentukan tabel PL/SQL menjadi tabel record dari tipe yang ditentukan pada langkah 1. Dalam hal ini, ini adalah my_table.

3. Tentukan variabel bertipe ITEMS_IN_BLOCK (tabel VARCHAR2 ) dan atur elemen individualnya menjadi nama-nama blok nama item yang nilainya digambarkan sebagai elemen dari tipe rekaman yang ditentukan pada langkah 1.

4. Panggil TABLE_OF_ANY built bawaan dengan tabel PL/SQL yang ditentukan, nama blok masukan, nomor catatan awal, nomor catatan akhir, dan variabel yang ditentukan pada langkah 3 dilewatkan sebagai parameter.

Keberhasilan atau Kegagalan TABLE_FROM_BLOCK