import java.sql.*;
import java.io.File;
import java.io.FileInputStream;
import java.io.FileOutputStream;
import java.io.IOException;
import java.io.Reader;
import java.io.StringWriter;
import java.io.*;
public class HANATest {
public static void main(String[] argv) {
Connection connection = null;
Statement stmt=null;
try {
Class.forName("com.sap.db.jdbc.Driver");
connection = DriverManager.getConnection("jdbc:sap://XXXXXXX:32615/?autocommit=true","username","pass");
if (connection != null) {
System.out.println("Connection to HANA successful!");
stmt = connection.createStatement();
String sql1= "select top 10 ddddlsrc.source,ddddlsrc.ddlname From sapsmh.tadir left outer join sapsmh.ddddlsrc on tadir.obj_name = ddddlsrc.ddlname where tadir.pgmid = 'R3TR' AND tadir.object = 'DDLS' and tadir.devclass='ZBICDS'";
ResultSet resultSet = stmt.executeQuery(sql1);
int test=0;
while (resultSet.next())
{
java.sql.NClob blob = resultSet.getNClob(1);
String table = (resultSet.getString(2)).replaceAll("[//]","");
StringBuffer str = new StringBuffer();
String strng;
BufferedReader bufferRead = new BufferedReader(blob.getCharacterStream());
while ((strng=bufferRead.readLine())!=null)
{ str.append(strng);
str.append("\n");
}
// System.out.println(str.toString());
BufferedWriter bwr = new BufferedWriter(new FileWriter(new File("D:\\CDS_Downlaod\\"+table+".txt")));
bwr.write(str.toString());
bwr.flush();
bwr.close();
test ++;
}
System.out.println("Done!!!");
}
connection.close();
} catch (Exception e) {
e.printStackTrace();
System.err.println("Connection Failed. User/Passwd Error?");
return;
}
}
}
*&---------------------------------------------------------------------*
*& Report ZTEST_87
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZCDS_BACKUP NO STANDARD PAGE HEADING.
"structure for DDDDLSCR
TYPES: BEGIN OF ty_ddddlsrc,
ddlname TYPE ddddlsrc-ddlname,
source TYPE ddddlsrc-source,
END OF ty_ddddlsrc,
BEGIN OF ty_dd,
source TYPE ddddlsrc-source,
END OF ty_dd.
DATA: it_ddddlsrc TYPE STANDARD TABLE OF ty_ddddlsrc,
it_dd TYPE STANDARD TABLE OF ty_dd,
wa TYPE ty_ddddlsrc,
wa_dd TYPE ty_dd.
DATA: gv_filename TYPE string,
gv_filetype TYPE char10.
*&---------------------------------------------------------------------*
""""Selection Screen
*&---------------------------------------------------------------------*
PARAMETERS p_dev TYPE tadir-devclass.
DATA : src TYPE ddddlsrc,
dir TYPE tadir.
*&---------------------------------------------------------------------*
""""Start of selection
*&---------------------------------------------------------------------*
Start-of-selection.
select d~ddlname
d~source
From tadir as t join ddddlsrc as d
on t~obj_name = d~ddlname
into TABLE it_ddddlsrc
where t~pgmid = 'R3TR'
AND t~object = 'DDLS'
and t~DEVCLASS = p_dev.
IF sy-subrc = 0.
WRITE ' File downloaded successfully'.
ENDIF.
*&---------------------------------------------------------------------*
""""End of selection
*&---------------------------------------------------------------------*
End-of-selection.
LOOP AT it_ddddlsrc INTO wa.
CONCATENATE 'D:\CDS_Download\' wa-ddlname '.txt' INTO gv_filename.
wa_dd-source = wa-source.
APPEND wa_dd TO it_dd.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
filename = gv_filename
filetype = 'ASC'
write_field_separator = 'X'
TABLES
data_tab = it_dd.
CLEAR gv_filename.
CLEAR it_dd.
ENDLOOP.
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
User | Count |
---|---|
55 | |
5 | |
5 | |
4 | |
4 | |
4 | |
3 | |
3 | |
3 | |
3 |