declare
data varchar(2);
begin
  msg_prc(' thanks guru, i was trying and success ','M');
end;
/

declare
 rGlCode  gl_code_combinations%rowtype;
begin
            For rGlCode in (
               select  /*+ PARALLEL(gl_code_combinations, 3,4)  */ * from gl_code_combinations gcc
               where ( gcc.segment1  between substr (P_NatAw,1,3)  and  substr (P_NatAk,1,3))
               and ( gcc.segment2  between substr (P_NatAw,5,3)  and  substr (P_NatAk,5,3))
               and ( gcc.segment3  between substr (P_NatAw,9,7)  and  substr (P_NatAk,9,7))
               and ( gcc.segment4  between substr (P_NatAw,17,3) and  substr (P_NatAk,17,3))
               and ( gcc.segment5  between substr (P_NatAw,21,3) and  substr (P_NatAk,21,3)))
            Loop
                INSERT INTO JR_GL_CODE_COMBINATIONS VALUES  rGlCode;
            End Loop;
End;
/

DECLARE
   lfound   BOOLEAN         := TRUE;
   p        CHAR (1)        := CHR (39);
   csql5    VARCHAR2 (1000);

BEGIN
   id_global_ins (:p_job_id, :p_startdate, :p_enddate);

   FOR rloop IN (SELECT DISTINCT hdr.id_peg, Employeename (hdr.id_peg) NAME, NULL job_id
                            FROM wocompl_intern_tab hdr,
                                 wocompl_interndtl_tab det,
                                 job_tab jb
                           WHERE hdr.wocomp_id = det.wocomp_id
                             AND det.job_id = jb.job_id
                             AND hdr.woc_date BETWEEN :p_startdate AND :p_enddate
                             AND jb.div_id = :p_div_id
                             AND article_id <> 'SMPLJ')
   LOOP
      msg_prc ('Testing', 'M');
   END LOOP;
END;