1. 程式人生 > 實用技巧 >Range的用法三種基本用法

Range的用法三種基本用法

RANGE用法類似SELECT-OPTION,為帶表頭的內表,有OPTION、SIGN、LOW、HIGH四個欄位值。

定義形式:DATA R_TIME TYPE RANGE OF ZTPUBLOG-LASTP WITH HEADER LINE

1.用法一:篩選以“3*”開頭的相關資料。(OPTION = ‘CP’)

  DATA R_WERKS_3 TYPE RANGE OF VBAP-WERKS WITH HEADER LINE.
  R_WERKS_3-SIGN = 'I'.
  R_WERKS_3-OPTION = 'CP'.
  R_WERKS_3-LOW = '3*'.
  APPEND
R_WERKS_3.

2.用法二:篩選值等於“CD01”~“CD07”的相關資料。(LOW值)

  DATA R_WERKS_CD TYPE RANGE OF VBAP-WERKS WITH HEADER LINE。
  R_WERKS_CD-SIGN = 'I'.
  R_WERKS_CD-OPTION = 'EQ'.
  R_WERKS_CD-LOW = 'CD01'. APPEND R_WERKS_CD.
  R_WERKS_CD-LOW = 'CD02'. APPEND R_WERKS_CD.
  R_WERKS_CD-LOW = 'CD03'. APPEND R_WERKS_CD.
  R_WERKS_CD
-LOW = 'CD04'. APPEND R_WERKS_CD. R_WERKS_CD-LOW = 'CD05'. APPEND R_WERKS_CD. R_WERKS_CD-LOW = 'CD06'. APPEND R_WERKS_CD. R_WERKS_CD-LOW = 'CD07'. APPEND R_WERKS_CD.

3.用法三:篩選以時間為區間的相關資料。(OPTION = ‘BT’)

  DATA R_WERKS_CD   TYPE RANGE OF VBAP-WERKS WITH HEADER LINE.
  CONCATENATE SY-DATUM SY-UZEIT INTO
LV_ETIME. R_TIME-SIGN = 'I'. R_TIME-OPTION = 'BT'. SELECT SINGLE LASTP FROM ZTPUBLOG INTO LV_STIME WHERE FEILBM EQ SY-REPID. IF SY-SUBRC EQ 0. R_TIME-LOW = LV_STIME. ELSE. LV_TIME = SY-UZEIT - 300. CONCATENATE SY-DATUM LV_TIME INTO LV_ETIME. R_TIME-LOW = LV_ETIME. ENDIF. R_TIME-HIGH = LV_ETIME. APPEND R_TIME.