title: Encountered the symbol "PROCEDURE" when expecting one of the following:
body: <p>Encountered the symbol "PROCEDURE" when expecting one of the following:     ( begin case declare end exception exit for goto if loop mod    null pragma raise return select update while with          &lt;&lt; continue close current delete fetch lock    insert open rollback savepoint set sql execute commit forall    merge pipe purge The symbol "declare" was substituted for "PROCEDURE" to continue. </p>
  
  <pre><code>PROCEDURE GETS_SO_ATS_INVALID_NOTIFY AS
    FLAG VARCHAR2(100);
    TRAMS_TOTAL_HOURS NUMBER(4);
    ATS_TOTAL_HOURS NUMBER(4);
    INVALID_MESSAGE VARCHAR2(100);
  
    BEGIN
       DECLARE
     cursor TRAMS_CURSOR is
     SELECT DISTINCT EMPLY_ID, FISCAL_YEAR, FISCAL_WEEK  , DATE_ENTERED FROM GETS_SO_ATS_TRAMS_NEW_VIEW
     where FISCAL_WEEK &lt;&gt;LNCURRENTFW 
     ;
  
     BEGIN
     FOR trams_record IN TRAMS_CURSOR LOOP
     TRAMS_TOTAL_HOURS := 0;
     ATS_TOTAL_HOURS := 0;
  
     END LOOP;
  
    END;
  
      PROCEDURE TRAMS_LAB_HOURs_UPLOAD AS
      LSMAILBODY             CLOB;
      LSTOMAIL               VARCHAR2(200);
      LSMAILCC               VARCHAR2(50);
      LSSUBJECT              VARCHAR2(100);
      V_MAIL_ERROR           VARCHAR2(100);
      PNOUTFORECASTID            VARCHAR2(38);
      counter                     number(10);
  
       BEGIN
       counter:=1;
        PNOUTFORECASTID:='mayank';
        LSSUBJECT:='hello';
        LSMAILBODY := '';
  
        LSMAILBODY := LSMAILBODY ||
                      '&lt;HTML&gt;&lt;BODY &gt;&lt;FONT FACE=times roman SIZE=3&gt;';
   LSMAILBODY := LSMAILBODY ||'&lt;table style="border-collapse:collapse;border-spacing:0"&gt;&lt;tr&gt;';
    LSMAILBODY := LSMAILBODY || '&lt;th style="font-family:Arial, Helvetica, sans-serif !important;;font-size:14px;font-weight:normal;padding:10px 5px;border-style:solid;border-width:1px;overflow:hidden;word-break:normal;background-color:#ffcb2f;color:#010066"&gt;EMPLOY&lt;/th&gt;';
    LSMAILBODY := LSMAILBODY || '&lt;th style="font-family:Arial, sans-serif;font-size:14px;font-weight:normal;padding:10px 5px;border-style:solid;border-width:1px;overflow:hidden;word-break:normal;background-color:#ffcb2f;color:#010066"&gt;TRAMS&lt;/th&gt;';
    LSMAILBODY := LSMAILBODY || '&lt;th style="font-family:Arial, sans-serif;font-size:14px;font-weight:normal;padding:10px 5px;border-style:solid;border-width:1px;overflow:hidden;word-break:normal;background-color:#ffcb2f;color:#010066"&gt;ATS&lt;/th&gt;';
    LSMAILBODY := LSMAILBODY || '&lt;th style="font-family:Arial, sans-serif;font-size:14px;font-weight:normal;padding:10px 5px;border-style:solid;border-width:1px;overflow:hidden;word-break:normal;background-color:#ffcb2f;color:#010066"&gt;REASON&lt;/th&gt;';
    LSMAILBODY := LSMAILBODY || '&lt;/tr&gt;';
    FOR counter IN 1 .. 5 LOOP
    LSMAILBODY := LSMAILBODY || '&lt;tr&gt;';
    LSMAILBODY := LSMAILBODY || '&lt;td style="font-family:Arial, sans-serif;font-size:14px;padding:10px 5px;border-style:solid;border-width:1px;overflow:hidden;word-break:normal"&gt;';
    LSMAILBODY := LSMAILBODY || counter;
    LSMAILBODY := LSMAILBODY || '&lt;/td&gt;&lt;td style="font-family:Arial, sans-serif;font-size:14px;padding:10px 5px;border-style:solid;border-width:1px;overflow:hidden;word-break:normal"&gt;';
    LSMAILBODY :=  LSMAILBODY || counter;
    LSMAILBODY := LSMAILBODY || '&lt;/td&gt;&lt;td style="font-family:Arial, sans-serif;font-size:14px;padding:10px 5px;border-style:solid;border-width:1px;overflow:hidden;word-break:normal"&gt;';
    LSMAILBODY := LSMAILBODY || counter;
    LSMAILBODY := LSMAILBODY || '&lt;/td&gt;&lt;td style="font-family:Arial, sans-serif;font-size:14px;padding:10px 5px;border-style:solid;border-width:1px;overflow:hidden;word-break:normal"&gt;';
    LSMAILBODY := LSMAILBODY || counter;
    LSMAILBODY := LSMAILBODY || '&lt;/td&gt;&lt;/tr&gt;';
  
  END LOOP;
   LSMAILBODY := LSMAILBODY || '&lt;/table&gt;';
        LSMAILBODY := LSMAILBODY || '&lt;/BODY&gt;&lt;/HTML&gt;';
      LSTOMAIL :='mayank.gandhi@ge.com';
       V_MAIL_ERROR:='hello';
          LSMAILCC:='hello';
  
      ats_multi_email_clob(LSTOMAIL, LSSUBJECT, LSMAILBODY, LSMAILCC, V_MAIL_ERROR);
  
  
      END;
  
  
  
  
  END GETS_SO_ATS_TRAMS_PKG;
  </code></pre>