plsql 过程中出现意外的令牌错误

Question

CREATE PROCEDURE EPS.PROCEDURE_OTE_LTE_BIDDER_REPORT 
   (
       IN P_USERID INTEGER,
       IN P_AUCTIONID INTEGER,
       IN P_REPORT_FLAG VARCHAR(3),
       OUT O_ERROR_CODE INTEGER,
       OUT OUTPUT_MESSAGE VARCHAR(100),
       IN P_LOG_USERID INTEGER
   )
    LANGUAGE SQL 
    
P1:BEGIN ATOMIC DECLARE SQLCODE INTEGER DEFAULT 0;
    
    DECLARE V_USERID INTEGER;
    DECLARE V_AUCTIONID INTEGER;
    DECLARE V_REPORT_FLAG_TECHNOCOMMERCIALQUALIFIEDCUSTOMER VARCHAR(3);
    DECLARE V_COUNT_TECHNOCOMMERCIALQUALIFIEDCUSTOMER INTEGER;
    DECLARE V_REPORT_FLAG_SELECTIVEUSERWISETENDERREPORT VARCHAR(3);
    DECLARE V_COUNT_SELECTIVEUSERWISETENDERREPORT INTEGER;
    
    
    SELECT COUNT(*) INTO V_COUNT_TECHNOCOMMERCIALQUALIFIEDCUSTOMER FROM EPS.TECHNOCOMMERCIALQUALIFIEDCUSTOMER A 
        WHERE A.AUCTIONID=P_AUCTIONID AND A.USERID=P_USERID;
    
    
    SELECT COUNT(*) INTO V_COUNT_SELECTIVEUSERWISETENDERREPORT FROM EPS.SELECTIVEUSERWISETENDERREPORT B 
        WHERE B.AUCTIONID=P_AUCTIONID AND B.USERID=P_USERID;
    
    
    
    IF P_REPORT_FLAG = 'Y' THEN
        IF V_COUNT_TECHNOCOMMERCIALQUALIFIEDCUSTOMER < 1  THEN
            INSERT INTO EPS.TECHNOCOMMERCIALQUALIFIEDCUSTOMER (A.AUCTIONID,A.USERID,A.QUALIFIED) VALUES (P_AUCTIONID,P_USERID,'Y');
        ELSE
            SET OUTPUT_MESSEGE = 'DATA ALREADY PRESENT';
        END IF;
    ELSE 
        IF  V_COUNT_TECHNOCOMMERCIALQUALIFIEDCUSTOMER > 0  THEN
            DELETE FROM EPS.TECHNOCOMMERCIALQUALIFIEDCUSTOMER C WHERE C.AUCTIONID=P_AUCTIONID AND C.USERID=P_USERID;
        ELSE
            SET OUTPUT_MESSAGE = 'NO DATA FOUND';
        END IF;    
    END IF; 
    
    IF P_REPORT_FLAG = 'Y' THEN
        IF V_COUNT_SELECTIVEUSERWISETENDERREPORT < 1  THEN
            INSERT INTO EPS.SELECTIVEUSERWISETENDERREPORT AA 
            (   AA.AUCTIONID,
                AA.USERID,
                AA.TENDERREPORTTYPEID,
                AA.STATUS,
                AA.CREATEID,
                AA.CREATEDATE,
                AA.UPDATEID,
                AA.UPDATEDATE
            ) 
            VALUES 
            (
                P_AUCTIONID,
                P_USERID,
                103.
                'A',
                P_LOG_USERID,
                CURRENT TIMESTAMP,
                NULL,
                NULL
            );
        ELSE
            SET OUTPUT_MESSEGE = 'DATA ALREADY PRESENT';
        END IF;     
    ELSE  
        IF  V_COUNT_SELECTIVEUSERWISETENDERREPORT > 0  THEN
            DELETE FROM EPS.SELECTIVEUSERWISETENDERREPORT  CC WHERE CC.AUCTIONID=P_AUCTIONID AND CC.USERID=P_USERID;
        ELSE
            SET OUTPUT_MESSAGE = 'NO DATA FOUND';
        END IF;        
    END IF; 
    
    
 END P1 

我收到了这个错误

SQL Error [42601]: An unexpected token "END-OF-STATEMENT" was found following "Y PRESENT'".  Expected tokens may include:  "
  END IF".. SQLCODE=-104, SQLSTATE=42601, DRIVER=4.7.85
SQL Error [42601]: An unexpected token "END-OF-STATEMENT" was found following "Y PRESENT'".  Expected tokens may include:  "
  END IF".. SQLCODE=-104, SQLSTATE=42601, DRIVER=4.7.85
  An unexpected token "END-OF-STATEMENT" was found following "Y PRESENT'".  Expected tokens may include:  "
  END IF".. SQLCODE=-104, SQLSTATE=42601, DRIVER=4.7.85
  An unexpected token "END-OF-STATEMENT" was found following "Y PRESENT'".  Expected tokens may include:  "
  END IF".. SQLCODE=-104, SQLSTATE=42601, DRIVER=4.7.85

Answer 1

它有助于正确使用理解 SQL 的语法编辑器，并更加小心地检查您的代码。一个好的 SQL 编辑器可能会在您尝试编译之前突出显示您的错误，就像任何代码审查一样。

另外，您应该了解 ANSI SQL PL 和 Oracle PL/SQL 之间的区别。您的代码似乎使用了 ANSI SQL PL 语法，尽管您的错误可能是任何 SQL 风格的错误。

以下是您的代码中一些明显的语法错误（可能还有其他错误）：

• 在 INSERT INTO EPS.SELECTIVEUSERWISETENDERREPORT AA 行上，AA 应省略。

• 对于相同的插入语句，您有103.，而您可能指的是103,。

• 对于INSERT INTO EPS.TECHNOCOMMERCIALQUALIFIEDCUSTOMER (A.AUCTIONID,A.USERID,A.QUALIFIED) 行，您可能是指 INSERT INTO EPS.TECHNOCOMMERCIALQUALIFIEDCUSTOMER (AUCTIONID,USERID,QUALIFIED)

• INSERT INTO EPS.SELECTIVEUSERWISETENDERREPORT 的行也存在同样的错误（不要限定列名）。

• 对于以SET OUTPUT_MESSEGE = 开头的行，您的意思可能是SET OUTPUT_MESSAGE =，而其他行也存在此错字。