Oracle XE存储过程遇PLS-00103错误：EXCEPTION与文件结束符异常求助

核心问题定位 #

你的存储过程触发两个PLS-00103错误，根源是语法结构不完整和变量使用错误：

1. IF语句未闭合：IF v_fechadev < v_fecha_ini THEN块缺少END IF;，导致后续代码被错误纳入IF分支，Oracle解析到EXCEPTION时无法识别合法结构。
2. 变量未初始化：v_fecha_ini声明后未赋值，直接用于日期计算会引发逻辑错误。
3. 变量引用错误：输出语句中变量名拼写错误（v_nombrecliente_应为v_nombre_cliente），且直接引用表列EcoPuntos而非变量。
4. 无效赋值语句：v_descuento := ALQUILERES_ECO.DESCUENTO;直接引用表列未指定行，语法无效，且后续会从Motos_eco查询折扣，此行可删除。

修正后的存储过程代码 #

CREATE OR REPLACE PROCEDURE registrar_devolucion (p_alquilerID IN Alquileres_eco.ID%TYPE, p_fechadev IN DATE)
AS 
    v_fecha_ini      ALQUILERES_ECO.FECHAINI%TYPE;
    v_dias_alq       NUMBER;
    v_precioxdia     NUMBER;
    v_precio_alq     NUMBER;
    v_descuento      NUMBER;
    v_ecopuntos      NUMBER;
    v_dni_cliente    CLIENTES_ECO.DNI%TYPE;
    v_nombre_cliente CLIENTES_ECO.NOMBRE%TYPE;
    v_matricula      MOTOS_ECO.MATRICULA%TYPE;
    v_modelo         MOTOS_ECO.MODELO%TYPE;
    v_total_puntos   CLIENTES_ECO.ECOPOINTS%TYPE; -- 新增变量存储更新后的积分
BEGIN 
    -- 1. 查询租赁信息，初始化v_fecha_ini、v_dni_cliente、v_matricula
    SELECT FechaIni, dni, Matricula
    INTO v_fecha_ini, v_dni_cliente, v_matricula
    FROM Alquileres_eco
    WHERE AlquilerID = p_alquilerID;

    -- 2. 验证归还日期合法性
    IF p_fechadev < v_fecha_ini THEN
        RAISE_APPLICATION_ERROR(-20002, '租赁ID:' || p_AlquilerID || '的归还日期:' || p_fechadev || '早于租赁起始日期。');
    END IF; -- 新增闭合IF语句

    -- 3. 计算租赁天数并更新租赁记录
    v_dias_alq := p_fechadev - v_fecha_ini;
    UPDATE Alquileres_eco
    SET FechaFin = p_fechadev,
        DiasAlquiler = v_dias_alq
    WHERE AlquilerID = p_alquilerID;

    -- 4. 查询摩托车单价和折扣，计算租赁总价
    SELECT PrecioPorDia, Descuento
    INTO v_precioxdia, v_descuento
    FROM Motos_eco
    WHERE Matricula = v_matricula;

    v_precio_alq := (v_precioxdia * v_dias_alq) * (1 - v_descuento/100); -- 修正折扣计算逻辑（原价*(1-折扣率)）

    -- 5. 更新租赁总价
    UPDATE Alquileres_eco
    SET PrecioAlquiler = v_precio_alq
    WHERE AlquilerID = p_alquilerID;

    -- 6. 更新摩托车可用性并输出信息
    UPDATE Motos_eco
    SET Disponible = 'SI'
    WHERE Matricula = v_matricula;

    SELECT Modelo 
    INTO v_modelo 
    FROM motos_eco 
    WHERE Matricula = v_matricula;

    DBMS_OUTPUT.PUT_LINE('摩托车牌照: ' || v_matricula || ' 型号: ' || v_modelo || ' 现已可用');

    -- 7. 计算并更新客户积分
    v_ecopuntos := TRUNC(v_precio_alq/10);
    UPDATE Clientes_eco
    SET EcoPuntos = EcoPuntos + v_ecopuntos
    WHERE DNI = v_dni_cliente
    RETURNING EcoPuntos INTO v_total_puntos; -- 使用RETURNING获取更新后的积分

    -- 8. 查询客户姓名并输出积分信息
    SELECT Nombre INTO v_nombre_cliente FROM Clientes_eco WHERE Dni = v_dni_cliente;
    DBMS_OUTPUT.PUT_LINE('客户DNI: ' || v_dni_cliente || ' 姓名: ' || v_nombre_cliente || ' 当前总积分: ' || v_total_puntos);

EXCEPTION
    WHEN NO_DATA_FOUND THEN
        RAISE_APPLICATION_ERROR(-20001, '租赁ID: ' || p_alquilerID || ' 不存在。');
    WHEN OTHERS THEN
        RAISE_APPLICATION_ERROR(-20003, '登记归还时发生意外错误，租赁ID: ' || p_alquilerID);
END;
/

额外优化说明 #

• 修正了折扣计算逻辑：原代码(v_precioxdia * v_dias_alq) * v_descuento/100会计算出折后价的百分比（例如10%折扣会得到10%的总价），改为(v_precioxdia * v_dias_alq) * (1 - v_descuento/100)才是正确的折后总价。
• 使用RETURNING子句直接获取更新后的客户积分，避免额外查询。

内容的提问来源于stack exchange，提问作者Andrea Romero Ruiz