Write Data into Application Layer
Write data into Application Layer (Saving the file in AL11 Directory)
*&---------------------------------------------------------------------*
*& Report ZVB_FH_WFILE
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zvb_fh_wfile.
TABLES:vbap.
TYPES: BEGIN OF ty_vbap,
vbeln(10) TYPE c,
posnr(5) TYPE c,
matnr(40) TYPE c,
END OF ty_vbap.
DATA:it_vbap TYPE TABLE OF ty_vbap,
iw_vbap TYPE ty_vbap.
DATA:lv_file TYPE string VALUE '/tmp/SO Item Details.txt',
lv_string TYPE string.
SELECT-OPTIONS s_vbeln FOR vbap-vbeln.
START-OF-SELECTION.
SELECT vbeln posnr matnr
FROM vbap
INTO TABLE it_vbap
WHERE vbeln IN s_vbeln.
SORT it_vbap BY vbeln.
OPEN DATASET lv_file FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.
IF sy-subrc = 0.
LOOP AT it_vbap INTO iw_vbap.
CONCATENATE iw_vbap-vbeln iw_vbap-posnr iw_vbap-matnr INTO lv_string SEPARATED BY '#'.
TRANSFER lv_string TO lv_file.
ENDLOOP.
ENDIF.
CLOSE DATASET lv_file.
IF sy-subrc = 0.
MESSAGE 'File saved in Appl Layer' TYPE 'S'.
ELSE.
MESSAGE 'Error in File saving' TYPE 'E'.
ENDIF.
Output:
1.Go to T-code - AL11
2.Double click on '/tmp'
3. Search for 'So Item Details.txt' and Double Click on it .
Comments
Post a Comment