FBooks if e Disk Prefix(Books_) D Count S 10I 0 Inz(0) D C S 5 0 Inz(0) D IFSFile S 1024 Inz('/TMP/BOOKS.XLS') D string S O CLASS(*JAVA D :'java.lang.String') *šString with fileName. D filename S O CLASS(*JAVA D :'java.lang.String') *šclass FileOutputStream. D outFile S O CLASS(*JAVA D :'java.io.FileOutputStream') *šjava.io.OutputStream HSSFWorkbook.write() D writeWB PR EXTPROC(*JAVA D :'org.apache.poi.hssf.usermodel- D .HSSFWorkbook':'write') D parm O CLASS(*JAVA D :'java.io.OutputStream') *šclass HSSFWorkbook. D wb S O CLASS(*JAVA D :'org.apache.poi.hssf.usermodel- D .HSSFWorkbook') *šclass HSSFsheet (feuille) D s S O CLASS(*JAVA D :'org.apache.poi.hssf.usermodel- D .HSSFSheet') *šclass HSSFrow (ligne) D row S O CLASS(*JAVA D :'org.apache.poi.hssf.usermodel- D .HSSFRow') *šclass HSSFCell D cell S O CLASS(*JAVA D :'org.apache.poi.hssf.usermodel- D .HSSFCell') *šConstructeur class String D createString PR O EXTPROC(*JAVA D :'java.lang.String' D :*CONSTRUCTOR) D CLASS(*JAVA D :'java.lang.String') D parm 1024 *šConstructeur class FileOutputsStream D createFile PR O EXTPROC(*JAVA D :'java.io.FileOutputStream' D :*CONSTRUCTOR) D CLASS(*JAVA D :'java.io.FileOutputStream') D parm O CLASS(*JAVA D :'java.lang.String') *šConstructeur class HSSFWorkbook (Classeur) D createWB PR O EXTPROC(*JAVA D :'org.apache.poi.hssf.usermodel.HSSF- D Workbook' D :*CONSTRUCTOR) D CLASS(*JAVA D :'org.apache.poi.hssf.usermodel.HSSF- D Workbook') *šjava.lang.trom() D trimString PR O EXTPROC(*JAVA D :'java.lang.String' D :'trim') D CLASS(*JAVA D :'java.lang.String') *šWorkBook.createSheet() création feuille D createSheet PR O EXTPROC(*JAVA D :'org.apache.poi.hssf.usermodel- D .HSSFWorkbook' D :'createSheet') D CLASS(*JAVA D :'org.apache.poi.hssf.usermodel- D .HSSFSheet') *šWorkBook.createRow() création ligne D createRow PR O EXTPROC(*JAVA :'org- D .apache.poi.hssf.usermodel- D .HSSFSheet':'createRow') D CLASS(*JAVA:'org.apache.poi.hss- D f.usermodel.HSSFRow') D parm 10I 0 value *šRow.createCell() création cellule D createCell PR O EXTPROC(*JAVA D :'org.apache.poi.hssf.usermodel- D .HSSFRow' D :'createCell') D CLASS(*JAVA D :'org.apache.poi.hssf.usermodel- D .HSSFCell') D parm1 5I 0 value *š Cell.setCellType(int) D setCellType PR EXTPROC(*JAVA D :'org.apache.poi.hssf.usermodel- D .HSSFCell' D :'setCellType') D parm1 10I 0 value *šCell.setCellValue(String) D setCellValStr PR EXTPROC(*JAVA D :'org.apache.poi.hssf.usermodel- D .HSSFCell' D :'setCellValue') D parm O CLASS(*JAVA D :'java.lang.String') *šCell.setCellValue(double) D setCellValD PR EXTPROC(*JAVA D :'org.apache.poi.hssf.usermodel- D .HSSFCell' D :'setCellValue') D parm 8F value *šAddRowCellAlf(Row:ValueAlf) D*addRowCellAlf PR D* row O CLASS(*JAVA D* :'org.apache.poi.hssf.usermodel- D* .HSSFRow') D* parm 1024 varying *šAddRowCellNum(Row:ValueNum) D*addRowCellNum PR D* row O CLASS(*JAVA D* :'org.apache.poi.hssf.usermodel- D* .HSSFRow') D* parm 8F D valueAlf S 1024 D valueNUM S 8F *‚------------------------------------------------------------------------------------------€* /Free Count = 0; //šCréation classeur wb = createWB(); //šCréation feuille s = createSheet(wb); //šLecture séquentielle fichier Read Books; Dow not %eof(Books); Exsr DBRec2Excel; Read Books; Enddo; //šCreation String filename. IFSFile = %trim(IFSFile); filename = createString(IFSFile); //šSuppression des blancs filename = trimString(filename); // Création fichier de sortie outFile = createFile(filename); //šEcrire le classeur dans outfile. writeWB(wb:outFile); *inlr = *on; /End-Free *‚------------------------------------------------------------------------------------------€* /Free Begsr DBRec2Excel; //šCréation d'une ligne // row = createRow(s:Count); c = 0; // (NUMBR) Numeric field. // Create a cell (row:number) // Set Type 0=Numeric/1=String) cell = createCell(row:c); setCellType(cell:0); // Create String Cell Value. valueNUM = Books_numbr; // Set cell value. setCellValD(cell:valueNUM); c = c+1; // (AUTH) Alphanumeric field. // Create a cell (row:number) // Set Type 0=Numeric/1=String) cell = createCell(row:c); setCellType(cell:1); // Create String Cell Value. valueALF = Books_authr; string = createString(valueALF); string = trimString(String); // Set cell value. setCellValStr(cell:string); c = c+1; // (ITLE) Alphanumeric field. // Create a cell (row:number) // Set Type 0=Numeric/1=String) cell = createCell(row:c); setCellType(cell:1); // Create String Cell Value. valueALF = Books_title; string = createString(valueALF); string = trimString(String); // Set cell value. setCellValStr(cell:string); c = c+1; //š(PRICE) Numeric field. // Create a cell (row:number) // Set Type 0=Numeric/1=String) cell = createCell(row:c); setCellType(cell:0); //šCreate String Cell Value. valueNUM = Books_price; // Set cell value. setCellValD(cell:valueNUM); c = c+1; // Count record number. Count = Count +1; Endsr; /End-Free *‚------------------------------------------------------------------------------------------€*