Re-populating of Record Group

Question

I am facing error, while trying to re-populate a record group.
In progaram unit 'AA', I have the following code: -
declare
rg_examp_code RECORDGROUP;
errcode number;
begin
rg_examp_code := FIND_GROUP('examp_code');
IF ID_NULL(rg_examp_code) THEN
c_sql := 'SELECT TRIM(field_code) label, TRIM(field_code) lstvalue FROM prod';
rg_examp_code:= CREATE_GROUP_FROM_QUERY('examp_code',c_sql);
errcode :=POPULATE_GROUP(rg_examp_code);
CLEAR_LIST('EXAMP_CODE');
POPULATE_LIST('EXAMP_CODE',rg_examp_code);
end;
After that, In aother program unit, I am inserting a new record in table prod using EXEC_SQL.
Now, table prod contains one extra record after successfull insertion of a row. Here, I am populating the List using the above query, once again.
and getting error FRM-41072 : Cannot create Group examp_code.
Please help

Answer 1

Your record group name should not be the same as your list item name. I made other changes too. Try this:
declare
  rg_examp_code RECORDGROUP;
  errcode number;
begin
  rg_examp_code := FIND_GROUP('examp_code');
  IF NOT ID_NULL(rg_examp_code) THEN
    DELETE_GROUP(rg_examp_code);
  END IF;
  c_sql := 'SELECT TRIM(TO_CHAR(field_code)) label, TRIM(TO_CHAR(field_code)) lstvalue FROM prod';
  rg_examp_code:= CREATE_GROUP_FROM_QUERY('examp_code', c_sql);
  errcode := POPULATE_GROUP(rg_examp_code);
  IF errcode = 0 THEN
    CLEAR_LIST('Your_List_Item');  -- not needed when using POPULATE_LIST
    POPULATE_LIST('Your_List_Item', rg_examp_code);
  ELSE
    MESSAGE('Record Group Error: ' || errcode);
    MESSAGE(' ', NO_ACKNOWLEDGE);
end;