Select statement in a procedure

Question

Hi Grues,
I have written this procedure but it gives me error,
can anyone guide me what should i do.
CREATE OR REPLACE PROCEDURE FLAG_ANALYSIS IS
CURSOR CUR_FLAG IS
          SELECT SOURCE, FEAT_CODE
          FROM FLAG_ANALYSIS_SID_L3 ;
          M_SOURCE      VARCHAR2(250);
          M_FEAT_CODE      NUMBER;
          M_REL13_SID     NUMBER;
          M_REL14_SID     NUMBER;
          M_REL14_L3     NUMBER;
BEGIN
     OPEN CUR_FLAG;
LOOP
     M_SOURCE      := '-';
     M_FEAT_CODE     := 0 ;
     M_REL13_SID     := 0 ;
     M_REL14_SID     := 0 ;
     M_REL14_L3     := 0 ;
     fetch CUR_FLAG into      M_SOURCE,M_FEAT_CODE;
exit when CUR_FLAG%found = false;
     M_REL13_SID:= SELECT COUNT(*) FROM ARCHIVE_POI_14_3.REL13_3_AU_POI_INTERM A,
               POI_SHARED.SH_POI_sID B
               WHERE A.SID=B.SID AND B.FEAT_CODE=M_FEAT_CODE
               AND A.SOURCE=M_SOURCE GROUP BY A.SID;
     commit;
end loop;
     close CUR_FLAG;
commit;
end;
/

Answer 1

34/2 PL/SQL: SQL Statement ignored
37/41 PL/SQL: ORA-00933: SQL command not properly ended
set serveroutput on;
CREATE OR REPLACE PROCEDURE FLAG_ANALYSIS IS
CURSOR CUR_FLAG IS
          SELECT SOURCE, FEAT_CODE
          FROM FLAG_ANALYSIS_SID_L3 ;
          M_SOURCE      VARCHAR2(250);
          M_FEAT_CODE      VARCHAR2(250);
          M_REL13_SID     VARCHAR2(250);
          M_REL14_SID     VARCHAR2(250);
          M_REL14_L3     VARCHAR2(250);
BEGIN
     OPEN CUR_FLAG;
LOOP
     M_SOURCE      := '-';
     M_FEAT_CODE     := '-';
     M_REL13_SID     := '-';
     M_REL14_SID     := '-';
     M_REL14_L3     := '-';
     fetch CUR_FLAG into      M_SOURCE,M_FEAT_CODE;
exit when CUR_FLAG%found = false;
     SELECT COUNT(*) FROM ARCHIVE_POI_14_3.REL13_3_AU_POI_INTERM A,
               POI_SHARED.SH_POI_sID B
               WHERE A.SID=B.SID AND B.FEAT_CODE=M_FEAT_CODE
               AND A.SOURCE=M_SOURCE GROUP BY A.SID into M_REL13_SID;
--commit;
end loop;
     close CUR_FLAG;
commit;
end;
/