ABAP Range转换Where查询

项目中遇到将某一个Range转换为Where后面的查询条件,以下是程序Demo.

记录一下

*&---------------------------------------------------------------------*
*& Report  YTEST_01
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ytest_01.
TABLES vbak.
TYPE-POOLS:rsds.

DATA: it_ranges TYPE  rsds_trange,
      is_frange   TYPE rsds_frange,
      is_option   TYPE rsdsselopt,
      is_ranges  LIKE LINE OF it_ranges.
DATA: lt_where       TYPE rsds_twhere,
      ls_where   LIKE LINE OF lt_where.

DATA: gt_vbak TYPE TABLE OF vbak,
      gs_vbak TYPE vbak.

DATA:  OPTIONS TYPE STANDARD TABLE OF RFC_DB_OPT .

SELECTION-SCREEN BEGIN OF BLOCK b1.
SELECT-OPTIONS:
  s_vbeln FOR vbak-vbeln OBLIGATORY,
  s_erdat FOR vbak-erdat.
SELECTION-SCREEN END OF BLOCK b1.

START-OF-SELECTION.

  is_ranges-tablename = 'VBAK'.
  is_frange-fieldname = 'VBELN'.