Reading Data From Application Layer
Reading Data From Application Layer:
*&---------------------------------------------------------------------*
*& Report ZVB_FH_WFILE
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zvb_fh_readfile.
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.
START-OF-SELECTION.
OPEN DATASET lv_file FOR INPUT IN TEXT MODE ENCODING DEFAULT.
IF sy-subrc = 0.
DO.
READ DATASET lv_file INTO lv_string.
IF sy-subrc = 0.
SPLIT lv_string AT '#' INTO iw_vbap-vbeln iw_vbap-posnr iw_vbap-matnr.
APPEND iw_vbap TO it_vbap.
CLEAR:iw_vbap.
ELSE.
EXIT.
ENDIF.
ENDDO.
CLOSE DATASET lv_file.
ENDIF.
LOOP AT it_vbap INTO iw_vbap.
WRITE: / iw_vbap-vbeln,iw_vbap-posnr,iw_vbap-matnr.
ENDLOOP.
Output:
Comments
Post a Comment