create table fees1 (
chl     number(7),ffdat date,
sno     number(5),ftut    number(6),ftot number(6));

insert into fees1 
values
(123,'01-OCT-2024',1,1300,1300);

insert into fees1 
values
(123,'11-OCT-2024',2,1500,1500);

insert into fees1 
values
(124,'03-OCT-2024',1,1500,1500);


insert into fees1 
values
(124,'09-OCT-2024',2,1500,1500);

insert into fees1 
values
(223,'02-OCT-2024',1,1500,1500);

insert into fees1 
values
(224,'04-OCT-2024',1,1700,1700);

COMMIT;

Begin
If Populate_Group_With_Query('R_G','Select fdate,ftut,ftot from fees1
Where chl=:chl_no 
Order by fdate') Then
Clear_List('Std');
Populate_List('fees1.fdate','R_G');
Populate_List('fees1.ftut','R_G');
Populate_List('fees1.ftot','R_G');
End if;
Exception
When Others Then
Message(Sqlerrm);
End;}

DECLARE
    group_id RecordGroup;
    group_name varchar2(10) :='abc';
    status NUMBER;
BEGIN
    group_id := find_group(group_name);
    if not id_null(group_id) then
        delete_group(group_id);
    end if;
   
    group_id := Create_Group_From_Query(group_name,'select ftut,to_number(ftut) from fees1 where chl=:chl_no');
/* Select statement must have two column*/
    status := Populate_Group(group_id);
    Populate_List('DUMMY.ft',group_id);
END;

FRM-41335: Populate_List: invalid column type for column 1

DECLARE
      rg_name VARCHAR2(20) := 'LEASE_RG';
      rg_id RECORDGROUP;
      err_code NUMBER;
      con_num VARCHAR2(40) ;
      list_id ITEM := FIND_ITEM('dummy.ft');
      qry VARCHAR2(1000);
      a varchar2(40);
BEGIN
con_num := :fees1.chl;
	select distinct substr(to_char(ffdat,'MON'),1,1) into a from fees1
    where chl=:chl;
      qry :='SELECT ftut,to_char('||a||'ftut) from fees1 where chl=:chl';
      
      rg_id := FIND_GROUP(rg_name);
      IF ID_NULL(rg_id) THEN
            rg_id := CREATE_GROUP_FROM_QUERY(rg_name,qry);
            DELETE_GROUP_ROW(rg_id, ALL_ROWS);
            err_code := POPULATE_GROUP(rg_name);
             
            CLEAR_LIST(list_id);
            POPULATE_LIST(list_id,rg_id);
      ELSE
            DELETE_GROUP(rg_id);
      END IF;
END;

qry :='SELECT ftut,to_char('||a||'ftut) from fees1 where chl=:chl';

SELECT ftut,to_char(oftut) from fees1 where chl=:chl

select distinct substr(to_char(ffdat,'MON'),1,1) into a from fees1
    where chl=:chl;

DECLARE
    group_id RecordGroup;
    group_name varchar2(10) :='abc';
    status NUMBER;
BEGIN
    group_id := find_group(group_name);
    if not id_null(group_id) then
        delete_group(group_id);
    end if;
   
    group_id := Create_Group_From_Query(group_name,'
    SELECT substr(to_char(ffdat,''MON''),1,1)||to_char(ftut),to_char(ftut) from fees1 where chl=:chl');
    /* Select statement must have two column*/
    status := Populate_Group(group_id);
    Populate_List('fees1.ft',group_id);
END;