sapdev logo background
sapdev logo sapdev logo
Comments

RANGE statement - Example ABAP code to demonstrate the RANGE command



The 'type range of' statement is very useful when writing ABAP programs allowing you to restrict the retrieval of data when performing a database select statement. It basically replicates the restriction abilities of the report select-option.
Below are a few examples of the various ways of populating and using a range table.


*Code to demonstrate populating and using range tables 
*&-------------------------------------------------------------*
*& Report  ZRANGESTATEMENT
*&
*&-------------------------------------------------------------*
REPORT  ZRANGESTATEMENT.

TYPES: BEGIN OF t_ekko,
  ebeln TYPE ekpo-ebeln,
  ebelp TYPE ekpo-ebelp,
  statu TYPE ekpo-statu,
  aedat TYPE ekpo-aedat,
  matnr TYPE ekpo-matnr,
  menge TYPE ekpo-menge,
  meins TYPE ekpo-meins,
  netpr TYPE ekpo-netpr,
  peinh TYPE ekpo-peinh,
 END OF t_ekko.

DATA: it_ekko TYPE STANDARD TABLE OF t_ekko INITIAL SIZE 0,
      wa_ekko TYPE t_ekko.

data: r_ebeln type range of ekko-ebeln,  "range table
      wa_ebeln like line of r_ebeln.     "work area for range table


**********************************************************************
*START-OF-SELECTION
START-OF-SELECTION.

************************************************
**** populate range table to receive all entries 
refresh r_ebeln.

select ebeln ebelp statu aedat matnr menge meins netpr peinh
  from ekpo
  into table it_ekko
 where ebeln in r_ebeln.
****


***************************************************
**** populate range table to receive specific value
wa_ebeln-sign   = 'I'.   "I = include, E = exclude
wa_ebeln-option = 'EQ'.  "EQ, BT, NE ....
wa_ebeln-low    = '12345678'.
*wa_ebeln-high   =    "not needed unless using the BT option
append wa_ebeln to r_ebeln.

select ebeln ebelp statu aedat matnr menge meins netpr peinh
  from ekpo
  into table it_ekko
 where ebeln in r_ebeln.
****


***********************************************************
****  populate range table to receive entries within a range
wa_ebeln-sign   = 'I'.   "I = include, E = exclude
wa_ebeln-option = 'BT'.  "EQ, BT, NE ....
wa_ebeln-low    = '11111111'.
wa_ebeln-high   = '99999999'.

append wa_ebeln to r_ebeln.

select ebeln ebelp statu aedat matnr menge meins netpr peinh
  from ekpo
  into table it_ekko
 where ebeln in r_ebeln.
****






comments powered by Disqus


Can't find something on ERPWorkbench? A quick search should fix that: