【PL/SQL】対話式でコミットかロールバックを選ばせる

Question

実現したいこと

• エラーを解消する
• UPDATE結果をDB上で確認する
• UPDATE結果をコミットせずにロールバックする

前提

お世話になっております。

ORACLE SQLのUPDATE文をテストをしています。
テストにあたっての要件は、UPDATE結果を確認できること、コミットせずにロールバックすることです。

それを実現するために処理の最後に対話式でロールバックを選択できるように記述しております。
その箇所にエラーが出てしまっています。

シェルから
SQLPLUS XXX.sql
で下記ソースコードを呼び出したところ、
エラーメッセージがいくつか出力されるのですが、その指摘内容が不明です。

エラーメッセージ中の行36は
DBMS_OUTPUT.PUT_LINE('Commit (C) or Rollback (R)?');
に該当します。
行50は
END;
に該当します。
（申し訳ありませんが列番号はコピーしたものと一致しません。）

発生している問題・エラーメッセージ

DBMS_OUTPUT.PUT_LINE('Commit (C) or Rollback (R)?');
*
行36でエラーが発生しました。
ORA-06550: 行36, 列14: 
PLS-00103: 記号"."が見つかりました。 次のうちの1つが入るとき:
constant
exception <an identifier>
<a double-quoted delimited-identifier> table columns long 
double ref char time timestamp interval date binary national
character nchar
記号"<an identifier" は続行のために"."に代わりました。 

ORA-06550:行37, 列10:
PLS-00103: 記号"="が見つかりました。 次のうちの1つが入るとき:
constant
exception <an identifier>
<a double-quoted delimited-identifier> table columns long
double ref char time timestamp interval date binary national 
character nchar
記号"<an identifier>" は続行のために"="に代わりました。

ORA-06550: 行38, 列3: 
PLS-80103: 記号 "IF" が見つかりました。 次のうちの1つが入るとき:
begin
function pragma procedure subtype type can identifier> 
<a double-quoted delimited-identifier> current cursor delete 
exists prior
記号 "begin" は続行のために "IF" に代わりました。 

ORA-06550: 行50, 列4:
PLS-88183: 記号 "end-of-file" が見つかりました。 次のうちの1つが入るとき: 
(begin case declare end exception exit for goto if loop mod 
null pragma raise return select update while with 
<an identifier> <a double-quoted delimited-identifier> 
<a bind variable> << continue close current delete fetch lock 
insert open rollback savepoint set sql execute commit forall 
merge pipe purge json_exists json_value json_query 
json_object json_array

該当のソースコード

WHENEVER SQLERROR EXIT 1
SET ECHO ON
SET SERVEROUTPUT ON
SET PAUSE OFF
SET PAGESIZE 0

-- Description for testing
SET AUTOCOMMIT OFF;

-- Start transaction
BEGIN
  SAVEPOINT start_tran;

  【UPDATE文です】

  -- Commit or rollback 
  DECLARE
    choice CHAR(1);
  -- コミットまたはロールバックをユーザに入力させる
  DBMS_OUTPUT.PUT_LINE('Commit (C) or Rollback (R)?');
  choice := UPPER(SUBSTR(TRIM('&1'), 1, 1));
  IF choice = 'C' THEN 
    -- コミットする
    COMMIT; 
    DBMS_OUTPUT.PUT_LINE('Transaction committed');
  ELSIF choice = 'R' THEN
    -- ロールバックする 
    ROLLBACK;
    DBMS_OUTPUT.PUT_LINE('Transaction rolled back');
  ELSE
    -- 不正な入力の場合はエラーメッセージを表示して終了する
    DBMS_OUTPUT.PUT_LINE('Invalid input. Transaction aborted');
  END IF;
END;
/
EXIT
/

試したこと

DECLAREから END IF;までを「--」でコメントアウトして実行したところ C or R の入力をしたのち「プロシージャが正常に完了しました。」というメッセージが出力されました。
また前記箇所をsqlファイルから削除して実行したところ「プロシージャが正常に完了しました。」というメッセージが出力されました。

なぜエラーメッセージが出るのか、また個々のエラーメッセージが何に該当しているのか不明で行き詰ってしまいました。
コメントアウトの挙動も不思議です。
ご教示のほどどうぞよろしくお願いいたします。

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

Red Hat Enterprise Linux 8.2
ORACLE 19c

Answer 1

選択式にしなくても、ROLLBACK前にPAUSEをかけられれば更新結果を確認するという目的は果たせました。
そのため、DECLAREブロック、BEGIN~ENDブロックともに不要となりました。
また、エラーメッセージが必ずしも的確な内容を返していないということを理解しました。

Answer 2

質問のブロックの書き方が間違っています。
ブロック : DECLARE, BEGIN, END のサンプル BEGINとENDは必須だが、変数などの宣言がなければDECLAREは不要。ブロックは入れ子(ブロックの中にブロックが存在できる)

第III部 SQL*Plusリファレンス マニュアルに載っていない点はオラクル・サポートに質問します。要サポート契約