Use the following code to downloads the internal table data as a text file on application server , which we can access through Transaction Code AL11
REPORT ZK_FILE_TO_APPL_SERVER.
TABLES : KNA1.
*----------------------------------------------------------------------*
* Data Decalaration
*----------------------------------------------------------------------*
DATA: GT_KNA1 TYPE TABLE OF KNA1,
GS_KNA1 TYPE KNA1.
DATA: GV_FILE TYPE RLGRAP-FILENAME.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS : S_KUNNR FOR KNA1-KUNNR OBLIGATORY.
SELECTION-SCREEN END OF BLOCK B1.
*----------------------------------------------------------------------*
* START-OF-SELECTION
*----------------------------------------------------------------------*
PERFORM GET_DATA.
IF NOT GT_KNA1[] IS INITIAL.
PERFORM SAVE_FILE.
ELSE.
MESSAGE 'No data found' TYPE 'I'.
ENDIF.
*&---------------------------------------------------------------------*
*& Form get_data
*&---------------------------------------------------------------------*
FORM GET_DATA.
*Get data
SELECT * FROM KNA1
INTO TABLE GT_KNA1 WHERE KUNNR IN S_KUNNR.
ENDFORM. " get_data
*&---------------------------------------------------------------------*
*& Form save_file
*&---------------------------------------------------------------------*
FORM SAVE_FILE.
DATA: LV_DATA TYPE STRING.
*Move complete path to filename
* gv_file = '/tmp/cust.txt'.
"Note if we are not passing any specific directory, by default it will
" get stored in DIR_HOME in AL11 transaction
CONCATENATE '/tmp/' SY-UNAME SY-DATUM SY-UZEIT '.txt' INTO GV_FILE.
* Open the file in output mode
OPEN DATASET GV_FILE FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.
IF SY-SUBRC NE 0.
MESSAGE 'Unable to create file' TYPE 'I'.
EXIT.
ENDIF.
LOOP AT GT_KNA1 INTO GS_KNA1.
CONCATENATE GS_KNA1-KUNNR
GS_KNA1-ANRED
GS_KNA1-NAME1
GS_KNA1-LAND1
GS_KNA1-REGIO
GS_KNA1-CITYC
INTO LV_DATA
SEPARATED BY ','.
*TRANSFER moves the above fields from workarea to file with comma
*delimited format
TRANSFER LV_DATA TO GV_FILE.
CLEAR: GS_KNA1.
ENDLOOP.
* close the file
CLOSE DATASET GV_FILE.
CONCATENATE 'File' GV_FILE 'created' INTO DATA(GV_MSG) SEPARATED BY SPACE.
MESSAGE GV_MSG TYPE 'I'.
ENDFORM. " save_file
double click on '/tmp' directoty.
sort files, date wise in descending order
double click on the file name, to open the file details.
1 Comments
vvv
ReplyDelete