ABAP Select data from SAP table LOLIS_00002102 into internal table

Get Example source ABAP code based on a different SAP table
  Get ABAP code

Below is a number of ABAP code snippets to demonstrate how to select data from SAP LOLIS_00002102 table and store it within an internal table, including using the newer @DATA inline declaration methods. It also shows you various ways to process this data using ABAP work area, inline declaration or field symbols including executing all the relevant CONVERSION_EXIT routines specific to LOLIS_00002102. See here for more generic Select statement tips.

Sometimes data within SAP is stored within the database table in a different format to what it is displayed to the user. These input/output conversation FM routines are what translates the data between the two formats.

There is also a full declaration of the LOLIS_00002102 table where each field has a char/string type for you to simply copy and paste. This allows you to use processing that is only available to these field types such as the CONCATENATE statement.

DATA: IT_LOLIS_00002102 TYPE STANDARD TABLE OF LOLIS_00002102,
      WA_LOLIS_00002102 TYPE LOLIS_00002102,
      GD_STR TYPE STRING.

DATA: lo_typedescr type REF TO cl_abap_typedescr.
DATA: lv_fieldname type fieldname.

FIELD-SYMBOLS: <FIELD> TYPE any.
FIELD-SYMBOLS: <LOLIS_00002102> TYPE LOLIS_00002102.

*Process all fields in table header/work area as string values
  PERFORM process_as_string_field_values CHANGING wa_LOLIS_00002102.

SELECT *
*restrict ABAP select to first 10 rows
 UP TO 10 ROWS      
  FROM LOLIS_00002102
  INTO TABLE IT_LOLIS_00002102.

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM LOLIS_00002102
*  INTO TABLE @DATA(IT_LOLIS_000021022).
*--Further methods of using ABAP code to  select data from SAP database tables

*You can also declare the header/work area using the in-line DATA declaration method
READ TABLE IT_LOLIS_00002102 INDEX 1 INTO DATA(WA_LOLIS_000021022).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_LOLIS_00002102 ASSIGNING <LOLIS_00002102>.

*To update a field value using a field symbol simply change the value via the field symbol pointer
<LOLIS_00002102>-AUEGVP = 1.
<LOLIS_00002102>-AUEGEW = 1.
<LOLIS_00002102>-AUEVOL = 1.
<LOLIS_00002102>-AUAMNG = 1.
<LOLIS_00002102>-AUAGEO = 1.

ENDLOOP.

LOOP AT IT_LOLIS_00002102 INTO WA_LOLIS_00002102.
*Write horizonal line to screen report.
  WRITE:/ sy-uline.

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_LOLIS_00002102-AUAGVO, sy-vline,
  WA_LOLIS_00002102-AUAGVP, sy-vline,
  WA_LOLIS_00002102-AUAGEW, sy-vline,
  WA_LOLIS_00002102-AUAVOL, sy-vline,
  WA_LOLIS_00002102-BKGRND, sy-vline,
  WA_LOLIS_00002102-BKPMNG, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_LOLIS_00002102 you want to display...

  WRITE:/ sy-uline.
* Aternatively use generic code to Write field values (and NAME) to screen report
  DO.
    ASSIGN COMPONENT sy-index OF STRUCTURE wa_LOLIS_00002102 TO <field>.
    IF sy-subrc <> 0. EXIT. ENDIF.
    WRITE:/ 'Field Value', <field>, sy-vline.
    gd_str = <field> .
    lo_typedescr ?= CL_ABAP_DATADESCR=>DESCRIBE_BY_DATA( <field> ).
    lv_fieldname = lo_typedescr->GET_RELATIVE_NAME( ).
    WRITE:/ 'Field Name', lv_fieldname.
  ENDDO.

  
*Redo loop but convert all fields from internal to out value  
LOOP AT IT_LOLIS_00002102 INTO WA_LOLIS_00002102.


*Write horizonal line to screen report.
  WRITE:/ sy-uline.

*Convert all fields to display/output versions using conversion routines
  PERFORM convert_all_field_values CHANGING wa_EKKO.
	 
ENDLOOP.

  
*&---------------------------------------------------------------------*
*& Form convert_all_field_values
*&---------------------------------------------------------------------*
FORM convert_all_field_values CHANGING p_EKKO LIKE wa_EKKO.
DATA: ld_input(1000) TYPE c, ld_output(1000) TYPE C.
ENDFORM. 

*&---------------------------------------------------------------------*
*& Form process_as_string_field_values
*&---------------------------------------------------------------------*
FORM process_as_string_field_values CHANGING p_EKKO LIKE wa_EKKO.

TYPES: BEGIN OF T_LOLIS_00002102_STR, 
AUEGVP TYPE STRING,
AUEGEW TYPE STRING,
AUEVOL TYPE STRING,
AUAMNG TYPE STRING,
AUAGEO TYPE STRING,
AUAGVO TYPE STRING,
AUAGVP TYPE STRING,
AUAGEW TYPE STRING,
AUAVOL TYPE STRING,
BKGRND TYPE STRING,
BKPMNG TYPE STRING,
BKPGEO TYPE STRING,
BKPGVO TYPE STRING,
BKPGVP TYPE STRING,
BKPGEW TYPE STRING,
BKPVOL TYPE STRING,
BKMMNG TYPE STRING,
BKMGEO TYPE STRING,
BKMGVO TYPE STRING,
BKMGVP TYPE STRING,
BKMGEW TYPE STRING,
BKMVOL TYPE STRING,
KMEMNG TYPE STRING,
KMEGEO TYPE STRING,
KMEGVO TYPE STRING,
KMEGVP TYPE STRING,
KMEGEW TYPE STRING,
KMEVOL TYPE STRING,
KMAMNG TYPE STRING,
KMAGEO TYPE STRING,
KMAGVO TYPE STRING,
KMAGVP TYPE STRING,
KMAGEW TYPE STRING,
KMAVOL TYPE STRING,
PVGRND TYPE STRING,
UBPEPM TYPE STRING,
UBPGEO TYPE STRING,
UBMEPM TYPE STRING,
UBMGEO TYPE STRING,
BIWMNG TYPE STRING,
BIWGEO TYPE STRING,
BIWGVO TYPE STRING,
BIWGVP TYPE STRING,
BRELEV TYPE STRING,
ADDMNG TYPE STRING,
ADDANZ TYPE STRING,
ADDTIM TYPE STRING,
ADDKMW TYPE STRING,
ADDKAL TYPE STRING,
ADDIAPPL TYPE STRING,
ADDI1 TYPE STRING,
ADDI2 TYPE STRING,
ADDI3 TYPE STRING,
BWVORG TYPE STRING,
FILGRP TYPE STRING,
PSWAE TYPE STRING,
PLMHT TYPE STRING,
XCHAR TYPE STRING,
KZBWS TYPE STRING,
E1ICIT8 TYPE STRING,
ADDI1_LONG TYPE STRING,
ADDI2_LONG TYPE STRING,
ADDI3_LONG TYPE STRING,END OF T_EKKO_STR.
DATA: WA_LOLIS_00002102_STR type T_EKKO_STR.

DATA: ld_text TYPE string.

LOOP AT IT_EKKO INTO WA_EKKO.
  MOVE-CORRESPONDING wa_EKKO TO WA_EKKO_STR.
  CONCATENATE: sy-vline
WA_LOLIS_00002102_STR-AUEGVP sy-vline 
WA_LOLIS_00002102_STR-AUEGEW sy-vline 
WA_LOLIS_00002102_STR-AUEVOL sy-vline 
WA_LOLIS_00002102_STR-AUAMNG sy-vline 
WA_LOLIS_00002102_STR-AUAGEO sy-vline 
WA_LOLIS_00002102_STR-AUAGVO sy-vline 
WA_LOLIS_00002102_STR-AUAGVP sy-vline 
WA_LOLIS_00002102_STR-AUAGEW sy-vline 
WA_LOLIS_00002102_STR-AUAVOL sy-vline 
WA_LOLIS_00002102_STR-BKGRND sy-vline 
WA_LOLIS_00002102_STR-BKPMNG sy-vline 
WA_LOLIS_00002102_STR-BKPGEO sy-vline 
WA_LOLIS_00002102_STR-BKPGVO sy-vline 
WA_LOLIS_00002102_STR-BKPGVP sy-vline 
WA_LOLIS_00002102_STR-BKPGEW sy-vline 
WA_LOLIS_00002102_STR-BKPVOL sy-vline 
WA_LOLIS_00002102_STR-BKMMNG sy-vline 
WA_LOLIS_00002102_STR-BKMGEO sy-vline 
WA_LOLIS_00002102_STR-BKMGVO sy-vline 
WA_LOLIS_00002102_STR-BKMGVP sy-vline 
WA_LOLIS_00002102_STR-BKMGEW sy-vline 
WA_LOLIS_00002102_STR-BKMVOL sy-vline 
WA_LOLIS_00002102_STR-KMEMNG sy-vline 
WA_LOLIS_00002102_STR-KMEGEO sy-vline 
WA_LOLIS_00002102_STR-KMEGVO sy-vline 
WA_LOLIS_00002102_STR-KMEGVP sy-vline 
WA_LOLIS_00002102_STR-KMEGEW sy-vline 
WA_LOLIS_00002102_STR-KMEVOL sy-vline 
WA_LOLIS_00002102_STR-KMAMNG sy-vline 
WA_LOLIS_00002102_STR-KMAGEO sy-vline 
WA_LOLIS_00002102_STR-KMAGVO sy-vline 
WA_LOLIS_00002102_STR-KMAGVP sy-vline 
WA_LOLIS_00002102_STR-KMAGEW sy-vline 
WA_LOLIS_00002102_STR-KMAVOL sy-vline 
WA_LOLIS_00002102_STR-PVGRND sy-vline 
WA_LOLIS_00002102_STR-UBPEPM sy-vline 
WA_LOLIS_00002102_STR-UBPGEO sy-vline 
WA_LOLIS_00002102_STR-UBMEPM sy-vline 
WA_LOLIS_00002102_STR-UBMGEO sy-vline 
WA_LOLIS_00002102_STR-BIWMNG sy-vline 
WA_LOLIS_00002102_STR-BIWGEO sy-vline 
WA_LOLIS_00002102_STR-BIWGVO sy-vline 
WA_LOLIS_00002102_STR-BIWGVP sy-vline 
WA_LOLIS_00002102_STR-BRELEV sy-vline 
WA_LOLIS_00002102_STR-ADDMNG sy-vline 
WA_LOLIS_00002102_STR-ADDANZ sy-vline 
WA_LOLIS_00002102_STR-ADDTIM sy-vline 
WA_LOLIS_00002102_STR-ADDKMW sy-vline 
WA_LOLIS_00002102_STR-ADDKAL sy-vline 
WA_LOLIS_00002102_STR-ADDIAPPL sy-vline 
WA_LOLIS_00002102_STR-ADDI1 sy-vline 
WA_LOLIS_00002102_STR-ADDI2 sy-vline 
WA_LOLIS_00002102_STR-ADDI3 sy-vline 
WA_LOLIS_00002102_STR-BWVORG sy-vline 
WA_LOLIS_00002102_STR-FILGRP sy-vline 
WA_LOLIS_00002102_STR-PSWAE sy-vline 
WA_LOLIS_00002102_STR-PLMHT sy-vline 
WA_LOLIS_00002102_STR-XCHAR sy-vline 
WA_LOLIS_00002102_STR-KZBWS sy-vline 
WA_LOLIS_00002102_STR-E1ICIT8 sy-vline 
WA_LOLIS_00002102_STR-ADDI1_LONG sy-vline 
WA_LOLIS_00002102_STR-ADDI2_LONG sy-vline 
WA_LOLIS_00002102_STR-ADDI3_LONG sy-vline      INTO ld_text SEPARATED BY SPACE.

*Add any further fields from structure WA_EKKO_STR you want to CONCATENATE...
ENDLOOP.
ENDFORM.