** ****************************************************************************************** *
**EndUser4gl : Utilitaire de tri 
** *******************************************************************************************
** R E P O R T S ********************************
** **********************************************
**
** FORME 2 :    STRUCTURE
**
**  ReportInput  Name_File ou path   FROM Name_Struct
**
** format  sorfmt.txt :Enreg : CLIENTS -->;DATELINE FORWARDING ;Type;1;End;
char : fileInput:255 :=  "c:\EndUser4gl\4gl\hlp\DataFile\sortfmt.txt" ,
       fileOuput:255 :=  "c:\EndUser4gl\4gl\hlp\DataFile\outq\reportForme2.wri";    
struct : CSV
{
 char  TypeEnreg :20 ;
 char  key   :20 ;
 char  filler: 6 ;
 char  type  : 1 ;
 char  Enddata   : 7 ; 
 
} 

 begin
	Display "Second example REPORT with STRUCT"; skip_line 2;
   
	Display " ReportInput  c:\EndUser4gl\4gl\hlp\DataFile\sortfmt.txt  length = 54 ";
	display " Reportoutput c:\EndUser4gl\4gl\hlp\DataFile\outq\reportForme2.wri"; 
	skip_line 2;
	display "PLEASE , WAIT..................." column 45;
 end_begin ;

 Begin_Report
        ReportInput  fileInput   from CSV 
               reportoutput fileOuput   
	 		level    /* position in file : sortfmt.csv */ 
                                by csv.key
                                    by csv.type 

 HEADER_REPORT
 begin  /* pas obligatoire */
  	print  date column 50, time column 62 ;
 	print " ------------------------------------------------------------------------ ";
        print " :   Entete / Header Etat                                                        : ";
        print " :   Liste des Clients ou Vendors                                       : ";
 	print " ------------------------------------------------------------------------ ";
 
   end_begin   ;
END_HEADER_REPORT
 HEADER_LEVEL : 01 
 print "*********************************************************************************";
 print " RUPTURE / LEVEL NIVEAU :", Level , level_key , csv.key ;
 print "*";
 print "*" ;
 print "*********************************************************************************";

** header_level : 02
** print "--------------------------------------------------------------------------------";
** print " RUPTURE / LEVEL NIVEAU :", Level , level_key , csv.type ;
** print "--------------------------------------------------------------------------------";
END_HEADER_LEVEL
DETAIL 
   begin
        print " Line Détail ....",alldata;
     end_begin  ;
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