Java Editor inside ABAP

[Former Member]

Introduction:

Few day before I found an interesting Blog on SAP Java Connector outbound connection by Gregor wolf . https://weblogs.sdn.sap.com/pub/wlg/739 .  I then thought of creating Java Editor inside ABAP! I have created one using simple ABAP programs which will run using the JDK stored locally. The theme of this blog is to Create, Modify, Compile and Execute java programs inside ABAP particularly inside ABAP editor.

Concept:

Part1: Creating java File:

Part1 uses program zjavacreate.

Description:

 In Part 1 java file is created. Using the editor-call function for Itab we can call a blank text area in which we can write our java program. On saving the program in the editor area the Itab gets upload which is saved into the local disk as .java file using Function module GUI_DOWNLOAD.

                                      Getting Class File Name

               Editor with default PSVM

Code is entered for sample.java and saved (ctrl+s)

                                    Program logic for java file Creation.

Part 2

Part2 uses program zjavamodify

2.1: Modification.

Description:

   We can modify an existing java file. The java file is loaded into an Itab using Function module GUI_UPLOAD. The editor-call for this itab will fill the editor area with the existing java file which is modified and then saved back in the same location using GUI_DONLOAD.

Modify existing java file:

                   Sample File is selected for modification

    Sample.java is modified and saved

(Note the error System.out.println (“Modify here);

                                Program logic for modification

 

2.2: Compilation

Description:

    Compilation is the most important step. Initially a batch file is created with the content as in the following image. The jCompiler class file and class path is created and stored in the working directory of sapgui logon which is responsible for the creation of error and output file for the newly created java file. The Function module dsvas_ws_execute_50 is used to invoke the batch file which will create an error report file and an output report file. On execution the batch file appears and disappears.

                 Batch file in the notepad mode

                        Bat file pops up during compilation and disappears

                                   Program logic for compilation

2.3: Output Display

Description:

 The content of error or output file is put into an Itab using GUI_UPLOAD and displayed in the list area.

Sample. java with Error After correction and recompilation

                              Program logic for output display

Program zjavacreate:

REPORT  zjavacreate message-id zmsgnew.*************************Creation of Internal table*******************DATA: BEGIN OF ti_record OCCURS 200,Line(250),END OF ti_record.DATA: BEGIN OF ti_rec OCCURS 200,Line(250),END OF ti_rec.******************************Selection screen*************************selection-screen begin of block b1 with frame .Parameters create radiobutton group g1.PARAMETERS: JavaName(30) lower case.parameters modify radiobutton group g1.selection-screen end of block b1.*******************Calling the java program creation page***************at selection-screen.  if CREATE = 'X'.    if javaname is not initial.      refresh ti_record[].   concatenate 'public class' javaname into ti_record-line separated by   space.  concatenate ti_record-line '{' into ti_record-line separated by space.      Append ti_record.      ti_record-line = 'public static void main(String []args){'.      Append ti_record.      ti_record-line ='//enter ur code here'.      append ti_record.      ti_record-line ='}'.      Append ti_record.      ti_record-line ='}'.      Append ti_record.      EDITOR-CALL FOR ti_record .    else.      Message e001.    endif.***************************Saving the java program*********************data tfile type string.concatenate 'D:\Programs\' javaname '.java' into tfile.CALL FUNCTION 'GUI_DOWNLOAD'  EXPORTING    FILENAME                        = tfile    FILETYPE                        = 'ASC'  TABLES    DATA_TAB                        =   ti_record.  endif.data new(15).  if MODIFY = 'X'.    new = 'ZJAVAMODIFY1'.    CALL TRANSACTION NEW.  endif.

Program zjavamodify:

REPORT  zjavamodify.***********************selection screen.*********************selection-screen begin of block b1 with frame .Parameters compile radiobutton group g1.Parameters modify radiobutton group g1.Parameters execute radiobutton group g1.PARAMETER : FILE(100) lower case.selection-screen end of block b1.DATA: BEGIN OF TI_RECORD OCCURS 1,LINE(200),END OF TI_RECORD.data: st1(30),st2(30).AT SELECTION-SCREEN ON VALUE-REQUEST FOR FILE.  CALL FUNCTION 'WS_FILENAME_GET'    EXPORTING*     DEF_FILENAME           = ' '      DEF_PATH               = '*.*'*     MASK                   = ' '*     MODE                   = ' '*     TITLE                  = ' '    IMPORTING      FILENAME               = FILE*     RC                     =           .End-of-selection.*************************************************************************************************MODIFY*********************************  if modify = 'X'.    data: TXT_FILE1 TYPE STRING .    txt_file1 = file.**************FM GUI_UPLOAD    CALL FUNCTION 'GUI_UPLOAD'      EXPORTING        FILENAME = txt_file1      TABLES        DATA_TAB = ti_recORD[].**********End FM GUI_UPLOAD    EDITOR-CALL FOR ti_record .**************FM GUI_UPLOAD    CALL FUNCTION 'GUI_DOWNLOAD'      EXPORTING        FILENAME = txt_file1        FILETYPE = 'ASC'      TABLES        DATA_TAB = ti_record.**********End FM GUI_UPLOAD  endif.********************end of modify***************************************BAT file for compilation n execution.****************  if compile = 'X'.    DATA: begin of itab_bat_create occurs 0,       row(500) type c,      end of itab_bat_create.    data:comp_join1(250).    concatenate 'java' 'jCompiler' file into comp_join1     separated     by space.    itab_bat_create-row = 'c:'.    append itab_bat_create.    itab_bat_create-row = 'cd Documents and Settings\127740'.    append itab_bat_create.    itab_bat_create-row = comp_join1.    append itab_bat_create.********FM GUI_DOWNLOAD    data: st type string.    st = 'C:\Documents and Settings\127740\compile_java.bat'.    call function 'GUI_DOWNLOAD'      EXPORTING        filename         = st        filetype         = 'ASC'      TABLES        data_tab         = itab_bat_create[]      EXCEPTIONS        file_open_error  = 1        file_write_error = 2        others           = 3.********end FM GUI_DOWNLOAD*****FM dvsvas_doc_ws_execute_50    CALL FUNCTION 'DSVAS_DOC_WS_EXECUTE_50'      EXPORTING        PROGRAM = 'C:\Documents and Settings\127740\compile_java.bat'.*****end FM dvsvas_doc_ws_execute_50  endif.************************end of compile******************************************************************************************************************************************** output***********************  if execute = 'X'.    data: TXT_FILE3 TYPE STRING .    split File AT '.java' into: st1 st2  .    concatenate st1 'error.txt' into TXT_FILE3.**************FM GUI_UPLOAD    CALL FUNCTION 'GUI_UPLOAD'      EXPORTING        FILENAME = txt_file3      TABLES        DATA_TAB = ti_recORD[].**********End FM GUI_UPLOAD    if not ti_record[] is initial.      loop at ti_record.        write:/ ti_record.      endloop.    else.      data: TXT_FILE4 TYPE STRING .      split File AT '.java' into: st1 st2  .      concatenate st1 'output.txt' into TXT_FILE4.**************FM GUI_UPLOAD      CALL FUNCTION 'GUI_UPLOAD'        EXPORTING          FILENAME = TXT_FILE4        TABLES          DATA_TAB = ti_recORD[].**********End FM GUI_UPLOAD      loop at ti_record.        write:/ ti_record.      endloop.    endif.  endif.************************end of output********************************

Program jComplier.java:

import java.io.BufferedReader;import java.io.File;import java.io.FileInputStream;import java.io.FileOutputStream;import java.io.IOException;import java.io.InputStream;import java.io.InputStreamReader;public class jCompiler{ /**  * @param args  * @throws IOException  */ public static void main(String[] args) throws Exception {  //String JavaCode = "public class SamplePrg {"   // + "public static void main(String[] args) {"    //+ "System.out.println(\"Hello World\");" + "}}";  FileInputStream fis1=new FileInputStream(new File(args[0]));  byte[] b1=new byte[fis1.available()];  fis1.read(b1);  fis1.close();  String workpath=args[0].substring(0, args[0].lastIndexOf("\\")+1);  //System.out.println("workpath="+workpath);  String JavaCode=new String(b1);  //System.out.println("Initializing Dynamic compiler...");  InputStream in = null;  try {   String className = JavaCode.substring(     JavaCode.indexOf("class") + 5, JavaCode.indexOf("{")).trim();   FileOutputStream f = new FileOutputStream(new File(workpath     + className + ".java"));   f.write(JavaCode.getBytes());   f.close();   String javac="javac.exe -classpath "+workpath+". "+    workpath+ className + ".java -d "+workpath;   String java="java.exe -classpath "+workpath+". "+ className;   //System.out.println(javac);   Runtime rt1 = Runtime.getRuntime();   Process pc = rt1     .exec(javac);   in = pc.getInputStream();   InputStreamReader isr = new InputStreamReader(in);            BufferedReader br = new BufferedReader(isr);            String line=null;            while ( (line = br.readLine()) != null)                {             //System.out.println(">" + line);                    }   pc.waitFor();   //System.out.println(pc.exitValue());   Runtime rt2 = Runtime.getRuntime();   Process pi = rt2     .exec(java);   in = pi.getInputStream();   isr = new InputStreamReader(in);            br = new BufferedReader(isr);            StringBuffer sb=new StringBuffer();            while ( (line = br.readLine()) != null)                {             sb.append(line);             sb.append("\n");                }      pi.waitFor();   //System.out.println(pi.exitValue());      FileOutputStream fos=new FileOutputStream(new File(workpath+className+"output.txt"));   fos.write(sb.toString().getBytes());   fos.close();      in = pi.getErrorStream();   isr = new InputStreamReader(in);            br = new BufferedReader(isr);            sb=new StringBuffer();            while ( (line = br.readLine()) != null)                {             sb.append(line);             sb.append("\n");                }     fos=new FileOutputStream(new File(workpath+className+"error.txt"));   fos.write(sb.toString().getBytes());   fos.close();     } catch (Exception e) {   System.out.println(e.getLocalizedMessage());  } }}

Note: While using these programs be cautious in setting the path for java file and also store the jCompiler file, class path and class file in the sapgui logon working directory also your batch file need to be created in that directory only. Also please note that awt is not handled!