Declare
	out_file Text_IO.File_Type;
  v_out varchar2(2500);
  xpath varchar2(50);
  --
  i number;
  l number;
  ln Number;
  St1 Varchar2(100);
  St2 Varchar2(100);  
  PayeeName Varchar2(160);
  Amount Number;
  --
	AmtInWord Varchar2(1000);
Begin	
  PayeeName := 'KUMAR SUDHIR';
  Amount    := 12345678;
	--------------- File Creation ---------------
  xpath:='C:\Cheque'||To_Char(Sysdate,'ddmmyy')||'.TXT';
	out_file:= Text_IO.Fopen(xpath,'W');
  if Text_IO.Is_Open(out_file) then
	  	Text_IO.Put_Line(out_file, chr(27)||chr(25));--1
	    --Date print
	  	v_out := null;
	  	For i in 1..65
	  	Loop
	  		v_out := v_out||Chr(32);
	  	End Loop;
	  	v_out := v_out||To_Char(Sysdate, 'DD-MM-YYYY');
	  	Text_IO.Put_Line(out_file,v_out); ----- 1
	    --Payee Name Print 1st line
	    v_out := null;
	    For i in 1..6
	    Loop
	    	v_out := v_out||Chr(32);
	    End Loop;
	    v_out := v_out ||SubStr(PayeeName, 0, 70);
	    Text_IO.Put_Line (out_file, v_out); ----- 2
	  	--Payee Name Print 2nd Line
  		v_out := chr(32);
  		--v_out := v_out||SubStr(PayeeName, 71);
  		Text_IO.Put_Line (out_file, ' '); ----- 3
  		Text_IO.Put_Line (out_file, ' '); ----- 4
  		--
  		--Amount in word
 		  AmtInWord := Common.ToWord(Amount);
 		  ---- Break Amount in Word ---
    	If Length(AmtInWord) <= 44 Then
    		St1 := Substr(AmtInWord, 0, 44);
    		St2 := Null;
    	 Else
    	  If Substr(AmtInWord,44,1) = ' ' Then
	    		St1 := Substr(AmtInWord, 1, 44);
	    		St2 := Substr(AmtInWord, 45);
    	   Else
	    		St1 := Substr(AmtInWord, 1, Instr(Substr(AmtInWord,0,44),' ',-1));
	    		St2 := Substr(AmtInWord, Instr(Substr(AmtInWord,0,44),' ',-1));
    	  End If;
    	End If;	
    	---------------------
 		  --1st line
  		v_out := null;
    	For i in 1..10
    	Loop
    		v_out := v_out||Chr(32);
    	End Loop;

    	v_out := v_out||St1;
    	
    	Text_IO.Put_Line (out_File, v_out); ---- 5
    	--2nd Line + Amount in Figure
  		v_out := null;
    	For i in 1..10
    	Loop
    		v_out := v_out||Chr(32);
    	End Loop;
    	v_out := v_out||St2;
    	--
    	l := Length (v_out);
    	For i in l..58
    	Loop
    		v_out := v_out||chr(32);
    	End Loop;
    	v_out := v_out||LTrim(Rtrim(To_Char(Amount, '99,99,99,99,999.99')));
    	Text_IO.Put_Line (out_File, v_out);
    	--15 Blank Line
    	v_out:=Chr(32);
    	For i in 1..15
    	Loop
    		Text_IO.Put_Line (out_File, v_out);
    	End Loop;	
	End If;
  Text_IO.Fclose(out_file); 
  --End Operation file--
  synchronize;
  Host('cmd /c Type '||xpath||'> prn');   
  --
End;