@DIV
BEGIN
DBMS_OUTPUT.PUT_LINE('デバッグ:開始');
/************************************************/
/* 社員マスタと同一フォーマットの */
/* 社員テーブルをクリア */
/************************************************/
WK_VALUE := 'TRUNCATE TABLE "取引データ"';
EXECUTE IMMEDIATE WK_VALUE;
/************************************************/
/* ループを引数の回数ぶん実行する */
/************************************************/
FOR i IN 1..PM_NUMBER LOOP
NULL;
END LOOP;
/**********************************************************/
/* 一番外側のブロックの例外処理 */
/**********************************************************/
EXCEPTION
WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE('例外発生:'||SQLCODE||':'||SQLERRM);
END;
@END
|