** ****************************************************************************************** *
**EndUser4gl : Utilitaire de tri 
** *******************************************************************************************
** R E P O R T S ********************************
** **********************************************
**  NO STRUCTURE FILE
** 
 begin
	Display "first example REPORT "; skip_line 2;
   
	Display " ReportInput  c:\EndUser4gl\4gl\hlp\DataFile\sortfmt.txt  length = 54 ";
	display " Reportoutput c:\EndUser4gl\4gl\hlp\DataFile\outq\reportForme1.wri"; 
	skip_line 2;
	display "PLEASE , WAIT..................." column 45;
 end_begin ;
	 
 Begin_Report
        ReportInput  "c:\EndUser4gl\4gl\hlp\DataFile\sortfmt.txt"  length = 54 
               reportoutput "c:\EndUser4gl\4gl\hlp\DataFile\outq\reportForme1.wri" 
	 		level   by char posit 21 to 40 ,  /* position in file : sortfmt.csv */ 
                                   by  char posit 47  
 HEADER_REPORT
   	print  date column 50, time column 62 ;
 	print " ------------------------------------------------------------------------ ";
        print " :   Entete / Header Etat                                                        : ";
        print " :   Liste des Clients ou Vendors                                       : ";
 	print " ------------------------------------------------------------------------ ";
 
 END_HEADER_REPORT
 HEADER_LEVEL : 01 
 print "*********************************************************************************";
 print " RUPTURE / LEVEL NIVEAU :", Level , level_key  ;
 print "*";
 print "*" ;
 print "*********************************************************************************";

** header_level : 02
** print "--------------------------------------------------------------------------------";
** print " RUPTURE / LEVEL NIVEAU :", Level , level_key  ;
** print "--------------------------------------------------------------------------------";
END_HEADER_LEVEL
DETAIL 
         print " Line Détail ....",alldata;
END_DETAIL
    
 BREAK_END_LEVEL : 02
print "--------------------------------------------------------------------------------";
print " End groupe 02:"  level column 20,total_level column 30, level_key column 40 ;
print "--------------------------------------------------------------------------------";
END_BREAK_END_LEVEL
BREAK_END_LEVEL : 01
print "--------------------------------------------------------------------------------";
print " End groupe 01:"  level column 20,total_level column 30, level_key column 40 ;
print "--------------------------------------------------------------------------------";
END_BREAK_END_LEVEL
 End_Report  ;


display "End pgm";