****************************************************************************************** *
**EndUser4gl : Utilitaire de tri 
** *******************************************************************************************
** Exemple 2 : Sortinput et Sortoutput
** 
** TRI DECROISSANT 
**
#include   "c:\EndUser4gl\4gl\hlp\IncludeSysEU\includesyseu.h"

  Sortinput    "c:\EndUser4gl\4gl\hlp\dataFile\fiche1.wri"   DESC length=116
        by char posit 1 to 20
           by  char posit 97
                  Sortoutput  "c:\EndUser4gl\4gl\hlp\dataFile\outq\DescOut.wri"  

                         use return_carriage  ;


Display "SORT DESCENDANT";
  skip_line  3;
  Display "   Sortinput      c:\EndUser4gl\4gl\hlp\DataFile\fiche1.wri" ;
  Display "   Sortoutput     c:\EndUser4gl\4gl\hlp\DataFile\outq\DescOut.wri" ;
   
SysCommandWindows("write.exe c:\EndUser4gl\4gl\hlp\DataFile\outq\descOut.wri" ) ;
	skip_line 3;
  Display "   enter End" ;

  enter;