begin
for r in (
select mt.NU_MATR_CURSO, aa.CD_ATIV_ACAD
  from SIGA_MATRICULA_TURMA mt,
       SIGA_TURMA t,
       SIGA_ATIVIDADE_ACADEMICA aa,
       SIGA_COMPONENTE_CURRICULAR cc,
       SIGA_ORGAO o
 where mt.CD_TURMA=t.CD_TURMA
   and t.CD_ATIV_ACAD=aa.CD_ATIV_ACAD
   and aa.CD_COMPNT_CURR=cc.CD_COMPNT_CURR
   and aa.CD_ORG=o.CD_ORG
   and mt.NU_SIT_MATR_TURMA=1
   and aa.CD_PERD_LETV= -- INFORMAR PERIODO LETIVO
   and o.CD_TP_ORG=42
   --and cc.CD_TP_COMPNT_CURR=29
   and not exists 
       (select 8
          from SIGA_DADO_HIST dh
         where dh.NU_MATR_CURSO=mt.NU_MATR_CURSO
           and dh.CD_ATIV_ACAD=aa.CD_ATIV_ACAD
       )
) loop
    insert into siga_dado_hist
    values (r.nu_matr_curso, r.cd_ativ_acad, 2, 0, sysdate, null,null,null);

    insert into siga_hist_dado_hist
    values (r.nu_matr_curso, r.cd_ativ_acad, 2, 0, 'FECHAPL', sysdate, null, null, null, null);     
  end loop;
  commit;
end;