Skip to Content
-2
Jun 02, 2020 at 07:32 PM

Abap function module to download and upload Xml file to AL11

1810 Views

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.