PROCEDURE country IS

BEGIN
  DECLARE
  rg_country RECORDGROUP;
  vTemp NUMBER;

BEGIN

  rg_country:=CREATE_GROUP_FROM_QUERY('rg_country', ' select '||'''' ||'-----COUNTRY-----'||'''' || 'country_name ,' || ''''||'FFF' ||''''|| ' country_code from dual union

       SELECT  country_name, country_code FROM country_codes order by country_name');

  vTemp:=POPULATE_GROUP(rg_country);

  POPULATE_LIST('awog.country_code', rg_country);

        if not id_null(rg_country) then

delete_group(rg_country);

end if;

END;

/

PROCEDURE state IS

BEGIN

  DECLARE

  rg_state RECORDGROUP;

  vTemp NUMBER;

BEGIN

rg_state:=CREATE_GROUP_FROM_QUERY('rg_state',

'select '||'''' ||'-----STATE-----'||'''' || 'state_name ,' || ''''||'FFF' ||''''|| ' state_code from dual union

SELECT state_NAME,state_CODE FROM state_codes WHERE country_CODE='||':awog.country_code  order by state_name');

  ---'SELECT description state_NAME,state_CODE FROM state WHERE country_CODE='||'Country_code'||' ORDER BY state_NAME');

    SET_RECORD_PROPERTY(:system.cursor_record,'AWOG',status,new_status);

     vTemp:=POPULATE_GROUP(rg_state);

     POPULATE_LIST('awog.state_code', rg_state);

      if not id_null(rg_state) then

delete_group(rg_state);

end if;
 
END;

end;

/

PROCEDURE lga IS

BEGIN

  DECLARE

  rg_lga RECORDGROUP;
  vTemp NUMBER;

  BEGIN
   

rg_lga:=CREATE_GROUP_FROM_QUERY('rg_lga','select '||'''' ||'------LGA-----'||'''' || 'lga_name ,' || ''''||'FFF' ||''''|| ' lga_code from dual union

SELECT  LGA_NAME,LGA_CODE FROM LGA_codes WHERE STATE_CODE='||':awog.STATE_CODE'||' and country_code='||':awog.country_code order by lga_name');

    SET_RECORD_PROPERTY(:system.cursor_record,'AWOG',status,new_status);

  vTemp:=POPULATE_GROUP(rg_lga);

  ---clear_list('awog.lga_code');

  POPULATE_LIST('awog.lga_code', rg_lga);

       if not id_null(rg_lga) then

delete_group(rg_lga);

end if;

END;

end;