code non éxécutable

J'ai une erreur dans un code que j'ai pas pu corriger , je vais vous envoyer une copie de mon code et vous essayer de le corriger .

declare
cursor CurNumb IS select CAR_NUMB as NUM_CARTE,CAR_CHLD_NAME as NOM_PORTEUR,ACC_NUMB as Num_COMPTE
from CARD,CARDHOLDER_ROUTING a, ACCOUNT b
WHERE a.CRO_ACC_CODE = b.ACC_CODE
and a.CRO_PAN = CAR_NUMB;

Var_CurNumb1 varchar2(50);
Var_CurNumb2 varchar2(50);
Var_CurNumb3 varchar2(50);

file_line_Entête1 varchar2(1024);
file_line_Entête2 varchar2(1024);
file_line_Entête3 varchar2(1024);
file_line_Entête4 varchar2(1024);
file_line_Entête5 varchar2(1024);
Id UTL_FILE.FILE_TYPE;
the_file_path BATCHES.BAT_DIRE%TYPE;
the_file_name BATCHES.BAT_FILE%TYPE;
file_line_Coprs varchar2(1024);

begin
open CurNumb;
loop
fetch CurNumb into Var_CurNumb1 , Var_CurNumb2 , Var_CurNumb3 ;

EXIT WHEN CurNumb%NOTFOUND;
end loop;
close CurNumb;

the_file_name := 'AMEN_NET_PORT';
the_file_path := '/mxp/data/amen/Out';
Id := UTL_FILE.fopen(the_file_path,the_file_name,'w',2000);
loop
file_line_Entête1 := 'N° CARTE : ' || Var_CurNumb1 ||
' ' ||
'NOM PORTEUR : '||Var_CurNumb2 ;
file_line_Entête2 := 'N° COMPTE : ' || Var_CurNumb3 ;
file_line_Entête3 := '-----------------------------------------';
end loop;

file_line_Entête4 := 'listes des transactions du mois ';
file_line_Entête5 := '--------------------------------';

UTL_FILE.PUT_LINE(Id,substr(file_line1,1,1024));
UTL_FILE.PUT_LINE(Id,substr(file_line2,1,1024));
UTL_FILE.PUT_LINE(Id,substr(file_line3,1,1024));
UTL_FILE.PUT_LINE(Id,substr(file_line4,1,1024));
UTL_FILE.PUT_LINE(Id,substr(file_line5,1,1024));

file_line_Entête5 := RPAD ( 'N° AUT',6,'') ||
RPAD ( 'Montant',15,'') ||
RPAD ( 'Commerçant',40,'') ||'DATE/HEURE';

UTL_FILE.FCLOSE(Id);

loop

select AUT_SYST_TRAC_AUDIT_NUMB_F011 as Num_Aut,
to_char (AUT_TRAN_AMOU_F004, '99999.999') as Montant,
AUT_CARD_ACCP_NAME_LOC_F043 as Commerçant,
AUT_REQU_SYST_TIME as Date_Heure

FROM AUTHORIZATION
WHERE to_char(AUT_REQU_SYST_TIME,'DD/MM/YYYY')= '01/10/2004';

loop
file_line_Coprs := RPAD(Aut,6, '') ||
RPAD(Montant,15, '') ||
RPAD(Commerçant,40, '') ||
date_heure;

end loop ;
end loop ;
end ;