Error in the below sql.

Question

Hi
I am getting the below error in the below sql
Hi
I am getting the error in the below sql
DECLARE
   pgm_id                  NUMBER := &1;
   schd_dt                 DATE := TO_DATE('&2','MM/DD/YYYY');
   l_schd_dt               DATE := NULL;
   l_pgm_id                NUMBER :=0;
   l_src_id                NUMBER;
   l_bulkCollectSize       NUMBER;
   l_trace_level           NUMBER := 0;
   l_CommitAllowance       INFT1.PRM_VALUE%TYPE;
   v_insrcdcnt             NUMBER := 0;
   g_ErrorString           VARCHAR2(500) := NULL;
   g_log_error             VARCHAR2(300) := NULL;
   g_recs_upd              NUMBER :=0;
   g_recs_ins              NUMBER :=0;
   g_aud_upd_ts            DATE := NULL;
   l_data_nbr              NUMBER := 0;
   l_ts_1             DATE :=NULL;
   l_ts_2               DATE :=NULL;
   l_rest_empno  emp_STG.mbr_nbr%TYPE :='0';
  l_Commitsize            NUMBER;
   CURSOR curTrnRecs(l_rest_empno VARCHAR)
   IS
    SELECT /* user_hash(tmp) PARALLEL(tmp,8) */  tmp.sec_lbl
    ,tmp.empno
     ,tmp.ename
    ,tmp.sal
    ,tmp.deptno
       FROM emp_stg tmp where tmp.mbr_nbr > l_rest_empno   order by tmp.mbr_nbr;
   TYPE rec_emp_stg is TABLE OF emp_STG%ROWTYPE index by PLS_INTEGER;
  stg_emp_stg rec_emp_stg   ;
   counter                 NUMBER         :=0;
   l_idx                  NUMBER;
   errors                  PLS_INTEGER;
    ins_errors EXCEPTION;
    PRAGMA EXCEPTION_INIT(ins_errors, -24381);
BEGIN
    /* Copy values into local variables */
    l_pro:= pgm_id;
    l_schd_dt := schd_dt;
        /* Check if this is the first execution of the program; Get the last processed timestamp if the run is a restart */
    /* The restartability of this program is slightly differnt. Data_nbr =1 indicates that the last run was successful. The same program can*/
    /* be called multiple times for the same t47date. The restartability is designed accordingly */
    BEGIN
        SELECT /* SQL_TAG(<$RCSfile: t50lyt_can_hist_trans_load.sql,v $><2>) */
               data_nbr,1,1,
                NVL(key_text,'0')
        INTO l_data_nbr,
             l_ts_1,
             l_ts_2,
             l_rest_mbr_nbr
        FROM inft
        WHERE TRUNC(key_ts)=TRUNC(l_schd_dt)
          AND pro_id = l_pro_id;
    EXCEPTION
        WHEN NO_DATA_FOUND THEN
          l_data_nbr:=9;
          NULL;
        WHEN OTHERS then
          g_ErrorString := g_log_error||' : SQLCODE = '||SQLCODE||' , ERRORMESSAGE = '||substr(SQLERRM, 1,200);
          RAISE;
    END;
       IF l_data_nbr = 1 THEN
      crm_msg.msg('Exiting:: Program already run');
      RETURN;
    ELSIF l_data_nbr = 0 THEN
      crm_msg.msg('This is a restart for the date '||l_schd_dt);
    ELSIF l_data_nbr= 9 THEN
        crm_msg.msg('First execution of this program');
   END IF;  
    BEGIN
        if l_data_nbr =9 THEN
         crm_msg.msg('This is the First execution of this program');
         INSERT
         INTO inft
           pgm_id,
           key_ts,
           key_text,
           data_nbr,
           data_ts,
           data_text
         VALUES
           l_pro,
           l_schd_dt,
           0,  --to hold empno
           sysdate,
           0   --no of recs processed
   COMMIT;
    END IF;
  END;
    OPEN curTrn(l_rest_empno);
    LOOP
      BEGIN
           FETCH curTrn BULK COLLECT INTO stg_emp_rec LIMIT 50000;
           IF nvl(curTrnRecs%ROWCOUNT,0)=0 THEN
             crm_msg.msg('No Historical Data');
           END IF;
       FORALL i in 1..stg_emp_rec.COUNT SAVE EXCEPTIONS
         INSERT INTO emp values stg_emp_stg(i);
      counter := counter + 1;         
       g_recs_ins   := g_recs_ins+SQL%ROWCOUNT;
   EXCEPTION
      WHEN ins_errors THEN
         errors := SQL%BULK_EXCEPTIONS.COUNT;
        for j in 1..errors
        LOOP
        l_idx :=sql%bulk_exceptions(j).error_index;
      UPDATE emp SET src_id=stg_emp_rec(i).empno,ename=stg_emp_rec(i).ename,sal = stg_emp_rec(i).sal,
             WHERE deptno= stg_emp_rec(i).deptno;  
       g_recs_upd := g_recs_upd + SQL%ROWCOUNT;
   ---END;
-- EXIT WHEN curTrnRecs%NOTFOUND;
-- END LOOP;
-- CLOSE curTrnRecs;
  EXCEPTION
   WHEN OTHERS THEN
   g_ErrorString := g_log_error||' : SQLCODE = '||SQLCODE||' , ERRORMESSAGE = '||substr(SQLERRM, 1,200);
   crm_msg.msg(g_ErrorString);
   RAISE;
   END;
END
    IF (counter >= l_CommitSize) THEN
        BEGIN /* To keep track of the timestamp of the last record processed inthe batch; for restartability */
                                        UPDATE   inft
                    SET      data_ts      = SYSDATE
                           ,key_text     = l_empno (idx)
                    WHERE    pgm_id       = l_pgm_id
                     AND     TRUNC(key_ts)= TRUNC(l_schd_dt);
                    COMMIT;
                counter:=0;
                END IF;
            EXCEPTION
                    WHEN OTHERS THEN
                      g_ErrorString := g_log_error||' : SQLCODE = '||SQLCODE||' , ERRORMESSAGE = '||substr(SQLERRM, 1,200);
                      crm_msg.msg(g_ErrorString);
                      RAISE;
            END;
   COMMIT;
  EXIT WHEN curTrn%NOTFOUND;
--       END LOOP; --End of looping for the main cursor  fetch
   END LOOP;
  CLOSE curTrn;
   BEGIN /* Update the data_nbr to 1 to indicate the update is complete */
         UPDATE inft
         SET data_nbr=1,
             data_ts=nvl(g_aud_upd_ts,data_ts),
             data_text = counter
         WHERE pro_id = l_pgm_id
          AND TRUNC(key_ts)=TRUNC(l_schd_dt);
        COMMIT;
       EXCEPTION
         WHEN OTHERS THEN
           g_ErrorString := g_log_error||' : SQLCODE = '||SQLCODE||' , ERRORMESSAGE = '||substr(SQLERRM, 1,200);
           crm_msg.msg(g_ErrorString);
           RAISE;
    END;
    g_log_error := 'LOGGING SUMMARY';
    crm_msg.msg_tab('RECS UPDATED',g_recs_upd);
    crm_msg.msg_tab('RECS INSERTED',g_recs_ins);
    crm_msg.msg('Program ends Successfully');
EXCEPTION
   WHEN OTHERS THEN
     g_ErrorString := g_log_error||' : SQLCODE = '||SQLCODE||' , ERRORMESSAGE = '||substr(SQLERRM, 1,200);
     crm_msg.msg(g_ErrorString);
END;
Elapsed: 00:00:00.00
  EXCEPTION
ERROR at line 248:
ORA-06550: line 248, column 3:
PLS-00103: Encountered the symbol "EXCEPTION" when expecting one of the following:
( begin case declare end exit for goto if loop mod null
pragma raise return select update when while with
<an identifier> <a double-quoted delimited-identifier>
<a bind variable> << continue close current delete fetch lock
insert open rollback savepoint set sql execute commit forall
merge pipe purge
ORA-06550: line 255, column 5:
PLS-00103: Encountered the symbol "IF" when expecting one of the following:
ORA-06550: line 314, column 2:
PLS-00103: Encountered the symbol "EXCEPTION" when expecting one of the following:
( begin case declare end exit for goto if loop mod null
pragma raise return select update while with <an identifier>
<a double-quoted delimited-
ORA-06550: line 322, column 0:
PLS-00103: Encountered the symbol "end-of-file" when expecting one of the following:
end not pragma final instantiable order overriding static
member constructor mapAppreciate ur help on the above?
Edited by: user1014019 on Oct 3, 2011 6:45 AM
Edited by: BluShadow on 03-Oct-2011 15:08
added {noformat}{noformat} tags. Please read {message:id=9360002} and learn to do this yourself.                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               

Answer 1

Please provide a code that can be compiled, the sample that you provided has compilation errors:
Have made change to your code block, so that it compiles.Try to run the below code block:
/* Formatted on 2011/10/03 21:08 (Formatter Plus v4.8.5) */
DECLARE
   pgm_id              NUMBER                 := &1;
   schd_dt             DATE                   := TO_DATE ('&2', 'MM/DD/YYYY');
   l_schd_dt           DATE                   := NULL;
   l_pgm_id            NUMBER                 := 0;
   l_src_id            NUMBER;
   l_bulkcollectsize   NUMBER;
   l_trace_level       NUMBER                 := 0;
   l_commitallowance   inft1.prm_value%TYPE;
   v_insrcdcnt         NUMBER                 := 0;
   g_errorstring       VARCHAR2 (500)         := NULL;
   g_log_error         VARCHAR2 (300)         := NULL;
   g_recs_upd          NUMBER                 := 0;
   g_recs_ins          NUMBER                 := 0;
   g_aud_upd_ts        DATE                   := NULL;
   l_data_nbr          NUMBER                 := 0;
   l_ts_1              DATE                   := NULL;
   l_ts_2              DATE                   := NULL;
   l_rest_empno        emp_stg.mbr_nbr%TYPE   := '0';
   l_commitsize        NUMBER;
   CURSOR curtrnrecs (l_rest_empno VARCHAR)
   IS
      SELECT /* user_hash(tmp) PARALLEL(tmp,8) */ tmp.sec_lbl, tmp.empno,
                tmp.ename, tmp.sal, tmp.deptno
          FROM emp_stg tmp
         WHERE tmp.mbr_nbr > l_rest_empno
      ORDER BY tmp.mbr_nbr;
   TYPE rec_emp_stg IS TABLE OF emp_stg%ROWTYPE
      INDEX BY PLS_INTEGER;
   stg_emp_stg         rec_emp_stg;
   counter             NUMBER                 := 0;
   l_idx               NUMBER;
   ERRORS              PLS_INTEGER;
   ins_errors          EXCEPTION;
   PRAGMA EXCEPTION_INIT (ins_errors, -24381);
BEGIN
   /* Copy values into local variables */
   l_pro := pgm_id;
   l_schd_dt := schd_dt;
       /* Check if this is the first execution of the program; Get the last processed timestamp if the run is a restart */
   /* The restartability of this program is slightly differnt. Data_nbr =1 indicates that the last run was successful. The same program can*/
   /* be called multiple times for the same t47date. The restartability is designed accordingly */
   BEGIN
      SELECT /* SQL_TAG(<$RCSfile: t50lyt_can_hist_trans_load.sql,v $><2>) */
             data_nbr, 1, 1, NVL (key_text, '0')
        INTO l_data_nbr, l_ts_1, l_ts_2, l_rest_mbr_nbr
        FROM inft
       WHERE TRUNC (key_ts) = TRUNC (l_schd_dt) AND pro_id = l_pro_id;
   EXCEPTION
      WHEN NO_DATA_FOUND
      THEN
         l_data_nbr := 9;
         NULL;
      WHEN OTHERS
      THEN
         g_errorstring :=
               g_log_error
            || ' : SQLCODE = '
            || SQLCODE
            || ' , ERRORMESSAGE = '
            || SUBSTR (SQLERRM, 1, 200);
         RAISE;
   END;
   IF l_data_nbr = 1
   THEN
      crm_msg.msg ('Exiting:: Program already run');
      RETURN;
   ELSIF l_data_nbr = 0
   THEN
      crm_msg.msg ('This is a restart for the date ' || l_schd_dt);
   ELSIF l_data_nbr = 9
   THEN
      crm_msg.msg ('First execution of this program');
   END IF;
   BEGIN
      IF l_data_nbr = 9
      THEN
         crm_msg.msg ('This is the First execution of this program');
         INSERT INTO inft
                     (pgm_id, key_ts, key_text, data_nbr, data_ts, data_text
              VALUES (l_pro, l_schd_dt, 0,                     --to hold empno
                                          SYSDATE, 0    --no of recs processed
         COMMIT;
      END IF;
   END;
   OPEN curtrn (l_rest_empno);
   LOOP
      BEGIN
         FETCH curtrn
         BULK COLLECT INTO stg_emp_rec LIMIT 50000;
         IF NVL (curtrnrecs%ROWCOUNT, 0) = 0
         THEN
            crm_msg.msg ('No Historical Data');
         END IF;
         FORALL i IN 1 .. stg_emp_rec.COUNT SAVE EXCEPTIONS
            INSERT INTO emp
                 VALUES stg_emp_stg (i);
         counter := counter + 1;
         g_recs_ins := g_recs_ins + SQL%ROWCOUNT;
      EXCEPTION
         WHEN ins_errors
         THEN
            ERRORS := SQL%BULK_EXCEPTIONS.COUNT;
            FOR j IN 1 .. ERRORS
            LOOP
               l_idx := SQL%BULK_EXCEPTIONS (j).ERROR_INDEX;
               UPDATE emp
                  SET src_id = stg_emp_rec (i).empno,
                      ename = stg_emp_rec (i).ename,
                      sal = stg_emp_rec (i).sal
                WHERE deptno = stg_emp_rec (i).deptno;
               g_recs_upd := g_recs_upd + SQL%ROWCOUNT;
            END LOOP;
--END;
         -- EXIT WHEN curTrnRecs%NOTFOUND;
--END LOOP;
--CLOSE curTrnRecs;
         WHEN OTHERS
         THEN
            g_errorstring :=
                  g_log_error
               || ' : SQLCODE = '
               || SQLCODE
               || ' , ERRORMESSAGE = '
               || SUBSTR (SQLERRM, 1, 200);
            crm_msg.msg (g_errorstring);
            RAISE;
      END;
      IF (counter >= l_commitsize)
      THEN
         BEGIN
/* To keep track of the timestamp of the last record processed inthe batch; for restartability */
            UPDATE inft
               SET data_ts = SYSDATE,
                   key_text = l_empno (idx)
             WHERE pgm_id = l_pgm_id AND TRUNC (key_ts) = TRUNC (l_schd_dt);
            COMMIT;
            counter := 0;
         EXCEPTION
            WHEN OTHERS
            THEN
               g_errorstring :=
                     g_log_error
                  || ' : SQLCODE = '
                  || SQLCODE
                  || ' , ERRORMESSAGE = '
                  || SUBSTR (SQLERRM, 1, 200);
               crm_msg.msg (g_errorstring);
               RAISE;
         END;
      END IF;
      COMMIT;
      EXIT WHEN curtrn%NOTFOUND;
--       END LOOP; --End of looping for the main cursor  fetch
   END LOOP;
   CLOSE curtrn;
   BEGIN     /* Update the data_nbr to 1 to indicate the update is complete */
      UPDATE inft
         SET data_nbr = 1,
             data_ts = NVL (g_aud_upd_ts, data_ts),
             data_text = counter
       WHERE pro_id = l_pgm_id AND TRUNC (key_ts) = TRUNC (l_schd_dt);
      COMMIT;
   EXCEPTION
      WHEN OTHERS
      THEN
         g_errorstring :=
               g_log_error
            || ' : SQLCODE = '
            || SQLCODE
            || ' , ERRORMESSAGE = '
            || SUBSTR (SQLERRM, 1, 200);
         crm_msg.msg (g_errorstring);
         RAISE;
   END;
   g_log_error := 'LOGGING SUMMARY';
   crm_msg.msg_tab ('RECS UPDATED', g_recs_upd);
   crm_msg.msg_tab ('RECS INSERTED', g_recs_ins);
   crm_msg.msg ('Program ends Successfully');
EXCEPTION
   WHEN OTHERS
   THEN
      g_errorstring :=
            g_log_error
         || ' : SQLCODE = '
         || SQLCODE
         || ' , ERRORMESSAGE = '
         || SUBSTR (SQLERRM, 1, 200);
      crm_msg.msg (g_errorstring);
END;Hope its useful.
Cheers