declare
  rg_id     RecordGroup;
  gc_id     GroupColumn;
  rg_col1   VARCHAR2 (80) := 'rg_cont' || '.BATCH_NO';
  rg_col2   VARCHAR2 (80) := 'rg_cont' || '.TRAN_DATE';
  rg_col3   VARCHAR2 (80) := 'rg_cont' || '.LV4_CODE';
BEGIN
  rg_id  := Find_Group ('rg_cont');
  IF Id_Null (rg_id) THEN
    rg_id  := Create_Group ('rg_cont');
    gc_id  := Add_Group_Column (rg_id, 'BATCH_NO', NUMBER_COLUMN, 12);   -- batchno
    gc_id  := Add_Group_Column (rg_id, 'TRAN_DATE', DATE_COLUMN, 11);   -- tran_dt
    gc_id  := Add_Group_Column (rg_id, 'LV4_CODE', NUMBER_COLUMN, 6);   -- lv4_code
    Delete_Group_Row (rg_id, ALL_ROWS);
    go_block ('DET_LEDGER');
    first_record;
    loop
      If :system.last_record <> 'TRUE' then
        If :credit_amt > 0 then
          Add_Group_Row (rg_id, END_OF_GROUP);
          Set_Group_NUMBER_Cell (rg_col1,
                                 :system.cursor_record,
                                 :DET_LEDGER.BATCH_NO);
          Set_Group_DATE_Cell (rg_col2,
                               :system.cursor_record,
                               :DET_LEDGER.TRAN_DATE);
          Set_Group_NUMBER_Cell (rg_col3,
                                 :system.cursor_record,
                                 :DET_LEDGER.LV4_CODE);
          next_record;
        else
          next_record;
        end if;
      else
        if     :lc3_code is null
           and :tran_date is not null then
          exit;
        elsif     :lc3_code is not null
              and :tran_date is not null then
          exit;
        end if;
      end if;
    end loop;
  end if;
end;