DECLARE 
f varchar(400);
cursor s is 
select code,attend--,to_char(sysdate,'yyyy') a,to_char(sysdate,'m') b,to_char(sysdate,'dd') 
from employee;
c number(7);
a date;
File UTL_FILE.FILE_TYPE; 
begin
File:= UTL_FILE.FOPEN('MY_DIR','a.txt','W');
:global.my_var:='A';
if :employee.move='A' then
:global.my_var:='A';
end if;
if :employee.move='B' then
:global.my_var:='B';
end if;
if :employee.move='C' then
:global.my_var:='C';
end if;
if :employee.move='D' then
:global.my_var:='D';
end if;
open s;
loop
fetch s into c,a;
exit when s%notfound;
f:=:employee.code||','||:GLOBAL.my_var||','||to_char(sysdate,'dd/mm/YYYY')||' '||to_char(a,'hh:mi:ss pm');
UTL_FILE.PUT_LINE(File,f); 
end loop;
UTL_FILE.FCLOSE(File); 

END;

:employee .code اديتها format mask فى الفورم
انها تتكون من 12 خانة
يعنى لو الرقم 1
يظهر 000000000001
لكن فى file
بييظهر رقم واحد فقط اعمل اية علشان انقلة بنفس الفورمات

أخي الكريم
أعتقد إن المشكلة ليست في الكود المشكلة في نوع ال datatype ل employee .code هل نوعه number
فلو كده لاينفع اجعله varchar2