PLS-00103：遇到符号“END”

Question

我在PL/SQL方面很新颖，所以我非常肯定问题出在语法上。

我有两个表。对于第一个表中的每一行，我应该使用第二个表中的数据计算值X，Y，Z，并将其插入到第一个表中。在第二个表中，时间值不相同，所以我应该使用距离它最近的较小值。

我得到“遇到符号”END“”错误或页面刚刚死亡，如果我改变了一些东西。任何人都可以帮助我？

我的代码如下所示：

DECLARE 

Nr Varchar(5) := 'G01'; /*manuali*/ 
pi NUMBER :=3.14159265359; 
A NUMBER; 
tk NUMBER; 
time NUMBER; 
n0 NUMBER; 
n NUMBER; 
M NUMBER; 
E NUMBER; 
i NUMBER; 
E_old NUMBER; 
dE NUMBER; 
v NUMBER; 
phi NUMBER; 
u NUMBER; 
r NUMBER; 
x1 NUMBER; 
y1 NUMBER; 
x NUMBER; 
y NUMBER; 
z JP_BROAD_KOORD.z%TYPE; 
GM NUMBER := 3.986005e14; /*m^3/s^2*/ 
Omegae_dot NUMBER := 7.2921151467e-5; /*rad/s*/ 
M0 JP_BROADCAST_NAV2.MO%TYPE; 
roota JP_BROADCAST_NAV2.SQRTA%TYPE; 
deltan JP_BROADCAST_NAV2.DELTA_N%TYPE; 
ecc JP_BROADCAST_NAV2.ECCENTRICITY%TYPE; 
omega JP_BROADCAST_NAV2.OMEGA%TYPE; 
cuc JP_BROADCAST_NAV2.CUC%TYPE; 
cus JP_BROADCAST_NAV2.CUS%TYPE; 
crc JP_BROADCAST_NAV2.CRC%TYPE; 
crs JP_BROADCAST_NAV2.CRS%TYPE; 
i0 JP_BROADCAST_NAV2.IO%TYPE; 
idot JP_BROADCAST_NAV2.IDOT%TYPE; 
cic JP_BROADCAST_NAV2.CIC%TYPE; 
cis JP_BROADCAST_NAV2.CIS%TYPE; 
Omega0 JP_BROADCAST_NAV2.OMEGA2%TYPE; 
Omegadot JP_BROADCAST_NAV2.OMEGA_DOT%TYPE; 
toe JP_BROADCAST_NAV2.TOE%TYPE; 
CURSOR BrCursor is 
select TIME 
from JP_BROAD_KOORD; 
CURSOR NavCursor is 
select Mo, Sqrta, delta_n, eccentricity, omega, cuc, cus, crc, crs, io, idot, cic, cis, omega2, omega_dot, toe 
from JP_BROADCAST_NAV2 
where toe=(select max(toe) from JP_BROADCAST_NAV2 where toe < TIME and Satelita_nr=Nr) and Satelita_nr=Nr; 
BEGIN 
FOR item in BrCursor 
LOOP 
OPEN NavCursor; 
A := roota*roota; 
tk := time-toe; 
n0 := sqrt(GM/(A*A*A)); 
n := n0+deltan; 
M := M0+n*tk; 
M := remainder(M+2*pi,2*pi); 
E := M; 
loop 
    E_old := E; 
    E := M+ecc*sin(E); 
    dE := remainder(E-E_old,2*pi); 
    exit when abs(dE) < 1.e-12; 
    end loop; 
E := remainder(E+2*pi,2*pi); 
v := atan2(sqrt(1-ecc*ecc)*sin(E), cos(E)-ecc); 
phi := v+omega; 
phi := remainder(phi,2*pi); 
u := phi    + cuc*cos(2*phi)+cus*sin(2*phi); 
r := A*(1-ecc*cos(E)) + crc*cos(2*phi)+crs*sin(2*phi); 
i := i0+idot*tk  + cic*cos(2*phi)+cis*sin(2*phi); 
Omega := Omega0+(Omegadot-Omegae_dot)*tk-Omegae_dot*toe; 
Omega := remainder(Omega+2*pi,2*pi); 
x1 := cos(u)*r; 
y1 := sin(u)*r; 
x := 0.000001*(x1*cos(Omega)-y1*cos(i)*sin(Omega)); 
y := 0.000001*(x1*sin(Omega)+y1*cos(i)*cos(Omega)); 
z := 0.000001*(y1*sin(i)); 
INSERT INTO JP_BROAD_KOORD (X, Y, Z) 
VALUES (x, y, z); 
CLOSE NavCursor; 
end loop; 
end loop; 
END; 

Answer 1

“我在PLSQL很新”

现在是收购的好习惯的时间。

一致的缩进不仅仅是简单：它可以帮助我们识别代码中的问题。 标签循环：它们确实可以帮助我们匹配循环的头部和尾部，这对于像您这样的长块代码特别有用。

采用这些技术可能会帮助你发现你有一个孤儿END LOOP声明。

DECLARE 
    Nr Varchar(5) := 'G01'; /*manuali*/ 
    ... 
    toe JP_BROADCAST_NAV2.TOE%TYPE; 
    CURSOR BrCursor is 
     select TIME 
     from JP_BROAD_KOORD;  
    CURSOR NavCursor is 
     select Mo, Sqrta, delta_n, eccentricity, omega, cuc, cus, crc, crs, io, idot, cic, cis, omega2, omega_dot, toe 
     from JP_BROADCAST_NAV2 
     where toe=(select max(toe) 
        from JP_BROADCAST_NAV2 
        where toe < TIME 
        and Satelita_nr=Nr) 
     and Satelita_nr=Nr; 
BEGIN 
    <<br_koord>> 
    FOR item in BrCursor LOOP 
     OPEN NavCursor; 
     A := roota*roota; 
     ... 
     E := M; 
     <<de_calc>> 
     LOOP 
      E_old := E; 
      ... 
      exit when abs(dE) < 1.e-12; 
     END LOOP de_calc; 
     E := remainder(E+2*pi,2*pi); 
     ... 
     z := 0.000001*(y1*sin(i)); 
     INSERT INTO JP_BROAD_KOORD (X, Y, Z) 
     VALUES (x, y, z); 
     CLOSE NavCursor; 
    END LOOP br_koord; 
END;