カーソルFORループ ネストの方法

Question

前提・実現したいこと

テーブルは以下の感じです。

test6
col1 col2 col3
AAAAA ああああ 1000
AAAAA いいいい 2000
BBBBB ああああ 1500
BBBBB いいいい 4000
BBBBB うううう 3000
CCCCC ああああ 1400
CCCCC うううう 1500

col1ごとにcol3の合計を出力したい。以下が出力イメージです。
AAAAA ああああ 1000
AAAAA いいいい 2000
合計 　　　　　 3000
BBBBB ああああ 1500
BBBBB いいいい 4000
BBBBB うううう 3000
合計 　　　　　 8500
CCCCC ああああ 1400
CCCCC うううう 1500
合計 　　　　　 2900

ループのネストが使えると思いますが、col1ごとのループはどのように書けばいいか
ちょっとわからなくて、アドバイスをいただきたいです。

該当のソースコード

--create table
CREATE TABLE test6 (col1 VARCHAR2(10),col2 VARCHAR2(10), col3 NUMBER);

INSERT INTO test6 VALUES('AAAAA','ああああ',1000);
INSERT INTO test6 VALUES('AAAAA','いいいい',2000);
INSERT INTO test6 VALUES('BBBBB','ああああ',1500);
INSERT INTO test6 VALUES('BBBBB','いいいい',4000);
INSERT INTO test6 VALUES('BBBBB','うううう',3000);
INSERT INTO test6 VALUES('CCCCC','ああああ',1400);
INSERT INTO test6 VALUES('CCCCC','うううう',1500);

--合計を求めるFUNCTION
CREATE OR REPLACE FUNCTION sumfunction
 ( f_col1 IN VARCHAR2)
RETURN NUMBER
IS
    total NUMBER;
BEGIN
    SELECT SUM (col3) INTO total from test6  group by col1 having col1 =f_col1 ;
    RETURN total;
 END sumfunction;
 /

--PL/SQL文
SET SERVEROUTPUT ON
BEGIN
    FOR v_table IN
    (SELECT * from test6)
LOOP 
    DBMS_OUTPUT.PUT_LINE(v_table.col1||'  '|| v_table.col2||
　　　　　　　　　　　'   '||v_table.col3);
    DBMS_OUTPUT.PUT_LINE('合計            '||sumfunction(v_table.col1));
END LOOP;
END;
/

試したこと

試しにネストしてみたのですが、イメージと結構違っています。
```ここに言語を入力
FOR v_table IN
(SELECT * from test6)
LOOP
FOR v_cnt IN 1..2 LOOP
DBMS_OUTPUT.PUT_LINE(v_table.col1||' '|| v_table.col2||
' '||v_table.col3);
END LOOP;
DBMS_OUTPUT.PUT_LINE('合計 '||sumfunction(v_table.col1));
END LOOP;

ループをネストか、それともブロックをネストか、ぜひ助言をお願いします。


### 補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Comments

[Orlofsky]

テーブル定義はCREATE TABLE文で、テーブル中のデータはINSERT文で https://teratail.com/help/question-tips#questionTips3-7 の [コード] に修正できるとSQLの動作確認が容易になるので、適切なコメントが付き易くなります。

[Qingxuan]

ありがとうございます。
おっしゃった通り修正しました。

[Orlofsky]

col3 はNUMBER型に修正してください。

[Orlofsky]

FOR v_table IN
以下もhttps://teratail.com/help/question-tips#questionTips3-7 の [コード] に修正してください。

字下げは4桁毎に。
以下のURLを参考に。
https://qiita.com/Papageno/items/6d06f55c2c60cdfb82f3

[Qingxuan]

ありがとうございます。修正しました。

Answer 1

GROUP BY ROLLUP, GROUP BY CUBE, GROUP BY GROUPING SETS の結果を比べてみては？ SQLだけで解決できるかも？

なお、ORDER BY句を指定しないとソート順は保証されません。

Comments

[Qingxuan]

ご回答ありがとうございます。GROUP BY ROLLUPを見ましたが、どうしてもCOUNTがついているらしいですね。