Sử dụng OpenSQL và subroutine trong SAP ABAP

Cách dùng OpenSQL trong ABAP khá đơn giản như native sql thông thường các bạn vẫn dùng.

Ví dụ, để lấy thông tin mua hàng, bạn chỉ cần thực hiện truy vấn như sau:

"Select * from EKKO"

Dưới đây là code chương trình giới thiệu opensql và subroutine để lấy dữ liệu thông tin mua hàng

--

*&---------------------------------------------------------------------*
*& Report ZZ04_OPENSQL
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZZ04_OPENSQL.

* Khai bao param dua vao
Data: CompanyCode type I VALUE 3000, " 1710 khong co data
      CreatedOn type I value 2017,
      Currency(3) type C VALUE 'USD'.

PERFORM Get_Data using CompanyCode CreatedOn Currency.

Form Get_Data using p1 p2 p3.
  WRITE: / 'This is demo open sql and subroutine',

         / 'Company Code = ', p1,

        / 'Created On = ', p2,

        / 'Currency = ', p3,

        / '--------------'.

select  EBELN, " -  Purchase order document number
        AEDAT, " -  Created on (date)
        ERNAM, " -  Created by
        LIFNR, " -  Vendor
        ZTERM " - Payment term
  into TABLE @Data(EKKO_info) from EKKO
  WHERE BUKRS = @p1.
*    and AEDAT = @p2
*    and WAERS = @p3.

  DATA w_EKKO_info like LINE OF EKKO_info.

WRITE: / 'Purchase order document number',
      'Created on',
      'Created by',
      'Vendor',
      'Payment term'.

  LOOP at EKKO_info into  w_EKKO_info.
    WRITE: / w_EKKO_info-EBELN,
            w_EKKO_info-AEDAT,
            w_EKKO_info-ERNAM,
            w_EKKO_info-LIFNR,
            w_EKKO_info-ZTERM.
    ENDLOOP.

ENDFORM.

--

thay đổi giá trị param để có kết quả khác nhau :)