連番の最終番号から、符番しレコード作成

質問

いつもお世話になっています。

ＰＬ／ＳＱＬ、ＯＲＡＣＬＥ９．ｉ環境にて、以下の処理を実現するＳＱＬ文を教えて頂けないでしょうか。
※目標は、１つのＳＱＬ文で何とかしたいと思っています。

どうかよろしくお願いいたします。

【例】
TBLAにTBLBの内容を追加します。
その時、同一ＩＤのレコードの場合、各ＩＤ毎のＳＥＱの最終番号を洗い出し、
最終番号＋１づつ設定します。

Ｋｅｙ：ＩＤ・ＳＥＱ

TBLA
ID │SEQ │DATA
──┼──┼─────
0001│001 │AA1
0001│002 │AA2
0001│003 │AA3

0002│001 │BB1
0002│005 │BB2　※削除処理の関係上、このようにＳＥＱは歯抜けになっている場合もあります

0003│003 │CC1

TBLB

YMD │ ID │DATA
──┼──┼─────
1201│0001│AA5
1201│0001│AA6
1201│0001│AA7

1201│0003│CC1

1201│0004│DD1
1201│0004│DD2

【結果】
TBLA
ID │SEQ │DATA
──┼──┼─────
0001│001 │AA1
0001│002 │AA2
0001│003 │AA3
0001│004 │AA5
0001│005 │AA6
0001│006 │AA7

0002│001 │BB1
0002│005 │BB2

0003│003 │CC1
0003│004 │CC1

0004│001 │DD1
0004│002 │DD2

回答No.1

Chronos198 · ベストアンサー

Insert Into TBLA ( Select TBLB.ID,
To_Char( ( ( Select NVL( Max( TBLA.SEQ ), 0 ) From TBLA Where TBLA.ID=TBLB.ID ) + Rank() Over( Partition By ID Order By YMD, DATA ) ), 'Fm000' ),
TBLB.DATA From TBLB );

キモは矢鱈と長い2行目です。
Select YMD, ID, DATA, Rank() Over( Partition By ID Order By YMD, DATA ) As RANK From TBLB Order By YMD, ID, DATA;
を実行してみると、何をしているのか分かり易いかも。

こちら10gの環境しか無かったので9iでは未確認。

お礼

Chronos198 様

ありがとうございます。
期待する結果を得ることが出来ました。

またよろしくお願いします。