Reading Data From Application Layer

 Reading Data From Application Layer:

*&---------------------------------------------------------------------*
*& Report ZVB_FH_WFILE
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zvb_fh_readfile.

TABLES:vbap.

TYPESBEGIN OF ty_vbap,
         vbeln(10TYPE c,
         posnr(5)  TYPE c,
         matnr(40TYPE 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

Popular posts from this blog

CDS Views: Table Functions with Example

Passing Dynamic Variables to SO10 TEXT

Adobe Form/PDF Form Introduction