num1=FileOpen("E:\toto.txt", lineMode!,read!,LockReadWrite!)  

//Lecture ligne à ligne du fichier

a=fileread(num1,chaine_tot)
do while a>0

                // Pour chaque ligne je récupère les infos qui m'intéresse
  ls_chaine=Lefttrim(chaine_tot)
  if integer(left(ls_chaine,1))>0 then
    longueur = len(ls_chaine)
    ls_chaine=mid(ls_chaine,3,2)+" "+mid(ls_chaine,5,5)+" "+&
         right(string((integer(left(ls_chaine,2))+1950)),2)&
        +" "+mid(ls_chaine,10,5)+mid(ls_chaine,15)
    ls_hexa=left(ls_chaine,17)
    j = longueur - 17
    
    chaine_tot = right(ls_chaine,j)
    
    ls_chaine=Lefttrim(chaine_tot)
    longueur = len(ls_chaine)
    
    esp = pos(ls_chaine," ",1)
    ls_vgcro = left(ls_chaine,esp - 1)
    j = longueur - esp
    chaine_tot = right(ls_chaine,j)
    ls_chaine=Lefttrim(chaine_tot)
    longueur = len(ls_chaine)
    
    esp = pos(ls_chaine," ",1)
    ls_vgcro = left(ls_chaine,esp - 1)
    j = longueur - esp
    chaine_tot = right(ls_chaine,j)
    ls_chaine=Lefttrim(chaine_tot)
    longueur = len(ls_chaine)
    lr_vgcro = real(ls_vgcro)
        
    esp = pos(ls_chaine," ",1)
    ls_vgmus = left(ls_chaine,esp - 1)
    j = longueur - esp
    chaine_tot = right(ls_chaine,j)
    lr_vgmus = real(ls_vgmus)
      
    ls_vgsol=trim(chaine_tot)
    lr_vgsol = real(ls_vgsol)
    
                                //Je fais appel à une procédure stockée 
                               
    DECLARE calcul_ogp PROCEDURE FOR calcul_ogp   (:ls_hexa,:as_gen_blup, :as_blup,:ls_vgcro,:ls_vgmus,:ls_vgsol,:lr_vgcro,:lr_vgmus,:lr_vgsol);
      
    EXECUTE calcul_ogp;          
  end if
  a=fileread(num1,chaine_tot)
loop  
fileclose(num1)

create procedure calcul_ogp(ls_hexa VARCHAR2,lignee_blup VARCHAR2,blup VARCHAR2, 
 ls_vgcro VARCHAR2, ls_vgmus VARCHAR2, ls_vgsol VARCHAR2,lr_vgcro real,lr_vgmus real,lr_vgsol real) 
is 
  ll_ani_id number(10);
  lr_vg real;
  lr_vg_p real;
  ls_gen_nom_ani varchar2(30);
begin 

  Select animaux.ani_id, genetiques.gen_nom into ll_ani_id, ls_gen_nom_ani from animaux,genetiques 
  where animaux.ani_gen_id = genetiques.gen_id and animaux.ani_num = ls_hexa; 
  
  If ll_ani_id > 0 
  THEN
    Insert into IBP( ibp_ani_id, ibp_lignee, ibp_lignee_blup, ibp_blup ,ibp_vg_crois,ibp_vg_muscle,ibp_vg_m2)
        Values( ll_ani_id, ls_gen_nom_ani, lignee_blup, blup, ls_vgcro,ls_vgmus,ls_vgsol); 

    IF lignee_blup = 'XXX' THEN
      lr_vg := (0.22)*lr_vgsol - lr_vgcro + (-1.16)*lr_vgmus;
    End if;
    If lignee_blup = 'YYY' THEN
      lr_vg := (2.8)*lr_vgsol - lr_vgcro + (-2.27)*lr_vgmus;
    End if;
    If lignee_blup = 'ZZZ' THEN
      lr_vg := (2.49)*lr_vgsol - lr_vgcro + (-5.18)*lr_vgmus;
    End if;
  End if;

  IF lignee_blup = 'XXX' THEN
    lr_vg_p := (0.22)*lr_vgsol - lr_vgcro + (-1.16)*lr_vgmus;
  End if;
  If lignee_blup = 'YYY' THEN
    lr_vg_p := (2.8)*lr_vgsol - lr_vgcro + (-2.27)*lr_vgmus;
  End if;
  If lignee_blup = 'ZZZ' THEN
    lr_vg_p := (2.49)*lr_vgsol - lr_vgcro + (-5.18)*lr_vgmus;
  End if;  
  Insert into VG_PROD( vg_ani_id, vg_prod, vg_prod_p, VG_gen_nom)
      Values( ll_ani_id, lr_vg, lr_vg_p, ls_gen_nom_ani); 
  
      commit;
end;
/