Tweet
DB2 to Excel spreadsheet
OK,
I have read a number of articles and threads about taking a db2 database and converting it to Excel. This is very confusing to me. What is the best method for creating an Excel spreadsheet? I don't believe I have POI's installed on my system. Do I need Java on my System I5 to accomphlish this. What is the best method of doing this?
Thanks,
DAC
P.S. I created this program from Code400 but am getting compiler errors with the called procedures. Do I need to install the POIs on my system to get this to work?
I have read a number of articles and threads about taking a db2 database and converting it to Excel. This is very confusing to me. What is the best method for creating an Excel spreadsheet? I don't believe I have POI's installed on my system. Do I need Java on my System I5 to accomphlish this. What is the best method of doing this?
Thanks,
DAC
P.S. I created this program from Code400 but am getting compiler errors with the called procedures. Do I need to install the POIs on my system to get this to work?
PHP Code:
H Option(*SrcStmt)
FRPTAGSTMP IF E Disk
D Count S 10I 0 Inz(0)
D C S 5I 0 Inz(0)
D IFSFile S 1024 Inz('/spltopdf/RPTAGSTMP.xls')
* OBJECT Variables
* // String.
D string S O CLASS(*JAVA
D :'java.lang.String')
* // String with fileName.
D filename S O CLASS(*JAVA
D :'java.lang.String')
* // FileOutputStream.
D outFile S O CLASS(*JAVA
D :'java.io.FileOutputStream')
D wb S O CLASS(*JAVA
D :'org.apache.poi.hssf.usermodel-
D .HSSFWorkbook')
* // Sheet.
D s S O CLASS(*JAVA
D :'org.apache.poi.hssf.usermodel-
D .HSSFSheet')
* // Row.
D row S O CLASS(*JAVA
D :'org.apache.poi.hssf.usermodel-
D .HSSFRow')
* // Cell.
D cell S O CLASS(*JAVA
D :'org.apache.poi.hssf.usermodel-
D .HSSFCell')
* CONSTRUCTOR Methods.
*************************************************
* // String CONSTRUCTOR
* // new String(byte b[])
D createString PR O EXTPROC(*JAVA
D :'java.lang.String'
D :*CONSTRUCTOR)
D CLASS(*JAVA
D :'java.lang.String')
D parm 1024
* // FileOutputStream CONSTRUCTOR
* // new FileOutputStream(String file)
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')
* // WorkBook CONSTRUCTOR
D createWB PR O EXTPROC(*JAVA
D :'org.apache.poi.hssf.usermodel-
D .HSSFWorkbook'
D :*CONSTRUCTOR)
D CLASS(*JAVA
D :'org.apache.poi.hssf.usermodel-
D .HSSFWorkbook')
* METHODS
****************************************************************
* // java.lang.trim()
D trimString PR O EXTPROC(*JAVA
D :'java.lang.String'
D :'trim')
D CLASS(*JAVA
D :'java.lang.String')
* // WorkBook.createSheet()
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.write(FileOutputStream out)
D writeWB PR EXTPROC(*JAVA
D :'org.apache.poi.hssf.usermodel-
D .HSSFWorkbook'
D :'write')
D parm O CLASS(*JAVA
D :'java.io.OutputStream')
* // Sheet.createRow()
D createRow PR O EXTPROC(*JAVA
D :'org.apache.poi.hssf.usermodel-
D .HSSFSheet'
D :'createRow')
D CLASS(*JAVA
D :'org.apache.poi.hssf.usermodel-
D .HSSFRow')
D parm 10I 0 value
* // Row.createCell()
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 parm 5I 0 value
* // Cell.setCellType(int)
D setCellType PR EXTPROC(*JAVA
D :'org.apache.poi.hssf.usermodel-
D .HSSFCell'
D :'setCellType')
D parm 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
D valueAlf S 1024
D valueNUM S 8F
***********************************************************************
/Free
Count = 0;
wb = createWB();
s = createSheet(wb);
Read RPTAGSTMP;
Dow not %eof(RPTAGSTMP);
Exsr DBRec2Excel;
Read RPTAGSTMP;
Enddo;
IFSFile = %trim(IFSFile);
filename = createString(IFSFile);
filename = trimString(filename);
outFile = createFile(filename);
writeWB(wb:outFile);
*inlr = *on;
/End-Free
/Free
Begsr DBRec2Excel;
row = createRow(s:Count);
c = 0;
cell = createCell(row:c);
setCellType(cell:0);
valueNUM = BALANCEO;
setCellValD(cell:valueNUM);
c = c+1;
cell = createCell(row:c);
setCellType(cell:1);
valueALF = RMSDATEASG;
string = createString(valueALF);
string = trimString(String);
setCellValStr(cell:string);
c = c+1;
Count = Count +1;
Endsr;
/End-Free
Comment