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;