****************************************************************************************** *
**EndUser4gl : Utilitaire de tri 
** ******************************************************************************************
** Exemple 2 : Sortinput et Sortoutput
** SORT/EXCEL/WRITE
** TRI  CROISSANT : mot clès : ASC mais NON OBLIGATOIRE
**
 #include   "c:\EndUser4gl\4gl\hlp\IncludeSysEU\includesyseu.h"
  

 Display "SORT ASCENDANT";
  skip_line  3;
  Display "   Sortinput      c:\EndUser4gl\4gl\hlp\DataFile\fiche1.wri" ;
  Display "   Sortoutput     c:\EndUser4gl\4gl\hlp\DataFile\outq\AscOutExcel.wri" ;
 	skip_line 3;
  
  Sortinput     "c:\EndUser4gl\4gl\hlp\DataFile\fiche1.wri" 
		 ASC length = 116 by char posit 1 to 20 , by char posit 97
                  Sortoutput  "c:\EndUser4gl\4gl\hlp\DataFile\outq\AscOut.wri"   
                 
                 Format (char posit 1 to 20 ,"\\t",
                               char posit 97 to 97)                               
                              use return_carriage  ;   /* optionnel */
  
           		    MsgBox  : TITLE "My First ConnectExcel"  
           		    Message :      " Sort is Finish  see you ->   				c:\EndUser4gl\4gl\hlp\DataFile\outq\AscOutExcel.wri" 
	          	    button  :       MB_OK
                   	    icon    :        MB_ICONEXCLAMATION           ; 

** Write.exe
 SysCommandWindows("write.exe c:\EndUser4gl\4gl\hlp\DataFile\outq\AscOut.wri" ) ;