RFC_ABAP_INSTALL_AND_RUN

Question

Hi Experts,
   I have a program "XXX". i want to display the output of Program "XXX" in Tables parameter "WRITES" of FM RFC_ABAP_INSTALL_AND RUN.
  Can anyone explain me detaily with some example.
Thanks,
Silviya T

Answer 1

Hi Rich,
  1.In Destination name what should i have to give?
  program "XXX" has selection-screen. It retrives the data based on slection-screen value. without inputting the data in selection-screen i am not getting output from my program.
  2.can we get the output If i pass this program to tables parameter of RFC_ABAP_INSTALL_AND_RUN ?
  3.can you explain me how this following program works? for what purpose we can use this program?
data: begin of t_input occurs 0,          " input file (source code)
        data(72),
      end of t_input,
      t_output like LISTZEILE occurs 0 with header line.  "output file.
data: message like SY-MSGV1.
PARAMETERS: P_FILE1 LIKE RLGRAP-FILENAME
               OBLIGATORY DEFAULT 'C:\input.txt',  " Input file
            P_FILE2 LIKE RLGRAP-FILENAME
               OBLIGATORY DEFAULT 'C:\output.txt'.  " Output file
Upload source code
   CALL FUNCTION 'WS_UPLOAD'
     EXPORTING
        CODEPAGE            = ' '
          FILENAME            = p_file1
          FILETYPE            = 'ASC'
        HEADLEN             = ' '
        LINE_EXIT           = ' '
        TRUNCLEN            = ' '
        USER_FORM           = ' '
        USER_PROG           = ' '
     TABLES
          DATA_TAB            = t_input
          EXCEPTIONS
          CONVERSION_ERROR    = 1
          FILE_OPEN_ERROR     = 2
          FILE_READ_ERROR     = 3
          INVALID_TABLE_WIDTH = 4
          INVALID_TYPE        = 5
          NO_BATCH            = 6
          UNKNOWN_ERROR       = 7
          OTHERS              = 8.
IF SY-SUBRC NE 0.
  WRITE: / 'Input file could not be opened', 'Exception', SY-SUBRC.
  EXIT.
ENDIF.
execute the source code
  CALL FUNCTION 'RFC_ABAP_INSTALL_AND_RUN'
   EXPORTING
     MODE               = 'F'
     PROGRAMNAME        = '<<RFC1>>'
   IMPORTING
     ERRORMESSAGE       = message
    TABLES
      PROGRAM            =  t_input
      WRITES             =  t_output
error message entered into output file.
  if  message ne ' '.
    t_output-zeile = message.
    append t_output.
  endif.
download output
  CALL FUNCTION 'WS_DOWNLOAD'
       EXPORTING
            FILENAME            = p_file2
            FILETYPE            = 'ASC'
            MODE                = ' '
       TABLES
            DATA_TAB            = t_output
       EXCEPTIONS
            FILE_OPEN_ERROR     = 01
            FILE_WRITE_ERROR    = 02
            INVALID_FILESIZE    = 03
            INVALID_TABLE_WIDTH = 04
            INVALID_TYPE        = 05
            NO_BATCH            = 06
            UNKNOWN_ERROR       = 07.
  IF SY-SUBRC NE 0.
    MESSAGE w472(GL).
  ENDIF.