@DIV
BEGIN
	DBMS_OUTPUT.PUT_LINE('デバッグ:開始');

	/************************************************/
	/* 社員マスタと同一フォーマットの */
	/* 社員テーブルをクリア */
	/************************************************/
	WK_VALUE := 'TRUNCATE TABLE "取引データ"';
	EXECUTE IMMEDIATE WK_VALUE;

	/************************************************/
	/* ループを引数の回数ぶん実行する */
	/************************************************/
	FOR i IN 1..PM_NUMBER LOOP
		INSERT INTO "取引データ"
			(
				"取引区分"
				,"伝票番号"
				,"行"
			)
		VALUES (
			'10'
			,i
			,1
		);
	END LOOP;

/**********************************************************/
/* 一番外側のブロックの例外処理 */
/**********************************************************/
EXCEPTION
	WHEN OTHERS THEN
		DBMS_OUTPUT.PUT_LINE('例外発生:'||SQLCODE||':'||SQLERRM);
END;
@END