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.

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.
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

Popular posts from this blog

CDS Views: Table Functions with Example

Passing Dynamic Variables to SO10 TEXT

Adobe Form/PDF Form Introduction