ORA-06550错误PLS-00103错误

Question

    DECLARE 

    nAnid                   NUMBER;
    vPin                    VARCHAR2(10 BYTE);
    vUse_type           VARCHAR2(20 BYTE);
    vApp_num              VARCHAR2(10 BYTE);
    dApp_date              DATE;
    vDisplay                  VARCHAR2(3 BYTE);
    vApp_status            VARCHAR2(10 BYTE);
    mShape                  mdsys.sdo_geometry;

  /* get records that exist in dgi but not in kiv using anid */
   CURSOR curGetMJ IS
    SELECT d.anid,d. pin, d.use_type, d.app_num, d.app_date, d.display, d.app_status, d.shape
    FROM   dsdspa.dsd_marijuana@dgi d
    WHERE d.anid not in
      (select anid from kivaprod.marijuana);

  curGetMJ_rec curGetMJ%ROWTYPE;     

BEGIN

    OPEN  curGetMJ;
      LOOP
         FETCH  curGetMJ INTO  curGetMJ_rec;
           EXIT WHEN  curGetMJ%NOTFOUND;
           vAnid                                    :=  curGetMJ_rec.anid;
           vPin                               :=  curGetMJ_rec.pin;
           vUse_type                            :=  curGetMJ_rec.use_type;
           vApp_num                            :=  curGetMJ_rec.app_num;
           dApp_date                      :=  curGetMJ_rec.app_num;
           vDisplay                             :=  curGetMJ_rec.display;
           vApp_status                        :=  curGetMJ_rec.app_status;
           mShape                               :=  curGetMJ_rec.shape;

           INSERT INTO KIVAPROD.MARIJUANA
            (anid, pin, use_type, app_num, app_date, display, app_status, shape)
           VALUES
            (307, '14211', 'D', '15-05', 2015-04-15, 'Y', '', mShape);

     END LOOP;
   CLOSE  curGetMJ;

Answer 1

整个END;阻止了BEGIN...END;。