PLS-00103：在期待以下某项时遇到符号“文件结束”：

Question

我在努力弄清楚为什么不编译此代码。确切的错误即时得到的是：

ERROR at line 82: 
ORA-06550: line 82, column 4: 
PLS-00103: Encountered the symbol "end-of-file" when expecting one of the 
following: 
(begin case declare end 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 

我试图做一堆的交易是取自一个临时表“new_Transactions”，并把它们添加到另一个的情侣对表，“帐户”，“Transaction_History “和”Transaction_Detail“。 new_transaction表可以为每个事务处理多个借记和贷记，所以嵌套应该将所有事务读入文件。

我一直在努力弄清楚错误发生在哪里一段时间，我承认SQL不是我的强项，所以如果有非常可怕的错误，请让我知道。

DECLARE 
r_transaction NEW_TRANSACTIONS%ROWTYPE; 
CURSOR c_trans_no IS 
SELECT * 
INTO r_transaction 
FROM new_transactions 
ORDER BY transaction_no; 

v_credit_check NEW_TRANSACTIONS.TRANSACTION_AMOUNT%TYPE; 
v_debit_check NEW_TRANSACTIONS.TRANSACTION_AMOUNT%TYPE; 


BEGIN 

FOR r_transaction IN C_trans_no LOOP 
    v_debit_check:=0; 
    v_credit_check:=0; 
      DECLARE 
       r_test NEW_TRANSACTIONS%ROWTYPE; 
       CURSOR c_new_trans IS 
       SELECT * 
       INTO r_test 
       FROM new_transactions 
       WHERE transaction_no = r_transaction.transaction_no; 

        BEGIN 
         FOR r_test IN c_new_trans LOOP 
         DECLARE 
         v_number NUMBER(8,2); 
         rec_account ACCOUNT%ROWTYPE; 
         BEGIN 
         SELECT * 
         INTO rec_account 
         FROM ACCOUNT 
         WHERE account_no = r_test.account_no; 

         INSERT INTO TRANSACTION_HISTORY(transaction_no, transaction_date, description) 
         VALUES (r_test.transaction_no, r_test.transaction_date, r_test.description); 
         INSERT INTO TRANSACTION_DETAIL(account_no, transaction_no, transaction_type, transaction_amount) 
         VALUES (r_test.account_no, r_test.transaction_no, r_test.transaction_type, r_test.transaction_amount); 

         IF(r_test.transaction_type = 'D') THEN 
          v_debit_check := v_debit_check + r_test.transaction_amount; 
          CASE rec_account.account_type_code 
           WHEN 'A' THEN v_number := r_test.transaction_amount; 
           WHEN 'L' THEN v_number := -r_test.transaction_amount; 
           WHEN 'EX' THEN v_number := r_test.transaction_amount; 
           WHEN 'RE' THEN v_number := -r_test.transaction_amount; 
           WHEN 'OE' THEN v_number := -r_test.transaction_amount; 
          END CASE; 
          UPDATE ACCOUNT 
          SET account_balance = account_balance + v_number 
          WHERE r_test.account_no = rec_account.account_no; 
         ELSIF(r_test.transaction_type = 'C') THEN 
          v_credit_check := v_credit_check + r_test.transaction_amount; 
          CASE rec_account.account_type_code 
           WHEN 'A' THEN v_number := -r_test.transaction_amount; 
           WHEN 'L' THEN v_number := r_test.transaction_amount; 
           WHEN 'EX' THEN v_number := -r_test.transaction_amount; 
           WHEN 'RE' THEN v_number := r_test.transaction_amount; 
           WHEN 'OE' THEN v_number := r_test.transaction_amount; 
          END CASE; 
          UPDATE ACCOUNT 
          SET account_balance = account_balance + v_number 
          WHERE r_test.account_no = rec_account.account_no; 
         --ELSE 
          --ROLLBACK; 
          --INSERT INTO WKIS_ERROR_LOG(transaction_no, transaction_date, description, error_msg) 
          --VALUES (r_test.transaction_no, r_test.transaction_date, r_test.description, 'Not a Debit or a Credit'); 
         END IF; 

         END lOOP; 
      --IF(v_credit_check != v_debit_check) THEN 
      --ROLLBACK; 
      --INSERT INTO WKIS_ERROR_LOG(transaction_no, transaction_date, description, error_msg) 
      --VALUES (r_transaction.transaction_no, r_transaction.transaction_date, r_transaction.description, 'Not a Debit or a Credit'); 
      --END IF;  


END LOOP; 

END; 
/

Answer 1

对于您的BEGIN语句之一，我没有看到END。您在第一个END LOOP语句后缺少END。

BEGIN 
FOR r_test IN c_new_trans LOOP 
         .... 
END LOOP; 
END;