Hi,
I am unable to download and upload the XML file into AL11 folder. I have attached the program .Kindly suggest the way / function module from abap program.Thanking you in advance.
DATA : LT_SCARR TYPE TABLE OF SCARR WITH HEADER LINE.
DATA : BEGIN OF ITAB OCCURS 0,
a(100) TYPE C,
END OF ITAB.
DATA: XML_OUT TYPE STRING .
DATA : BEGIN OF UPL OCCURS 0,
f(255) TYPE C,
END OF UPL.
DATA: XMLUPL TYPE STRING .
PARAMETERS : P_FILE TYPE STRING.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.
CALL METHOD CL_RSAN_UT_FILES=>F4
EXPORTING
I_APPLSERV = SPACE
I_TITLE = 'SAVE TO XML'
I_GUI_EXTENSION = 'XML'
I_GUI_EXT_FILTER = 'XML'
CHANGING
C_FILE_NAME = P_FILE
EXCEPTIONS
FAILED = 1
OTHERS = 2.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
SELECT * FROM SCARR INTO TABLE LT_SCARR UP TO 10 ROWS.
CALL TRANSFORMATION ('ID')
SOURCE TAB = LT_SCARR[]
RESULT XML XML_OUT.
CALL FUNCTION 'HR_EFI_CONVERT_STRING_TO_TABLE'
EXPORTING
I_STRING = XML_OUT
I_TABLINE_LENGTH = 100
TABLES
ET_TABLE = ITAB.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
FILETYPE = 'BIN'
FILENAME = P_FILE
TABLES
DATA_TAB = ITAB.
__________________________________________________________________________________
BREAK-POINT.
REFRESH LT_SCARR.
CLEAR LT_SCARR.
*File to download from AL11.
* SUBMIT RC1TCG3Y.
* CALL FUNCTION 'C13Z_APPL_TO_FRONT_END'
* EXCEPTIONS
* OTHERS = 1.
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
FILENAME = P_FILE
FILETYPE = 'BIN'
TABLES
DATA_TAB = UPL.
LOOP AT UPL.
CONCATENATE XMLUPL UPL-F INTOXMLUPL.
ENDLOOP.
* *------------------- XML
CALL TRANSFORMATION ('ID')
SOURCE XML XMLUPL
RESULT TAB = LT_SCARR[]
.
BREAK-POINT.