ABAP Select data from SAP table LESHP_ADD_DATA 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 LESHP_ADD_DATA 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 LESHP_ADD_DATA. 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 LESHP_ADD_DATA 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_LESHP_ADD_DATA TYPE STANDARD TABLE OF LESHP_ADD_DATA,
      WA_LESHP_ADD_DATA TYPE LESHP_ADD_DATA,
      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: <LESHP_ADD_DATA> TYPE LESHP_ADD_DATA.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM LESHP_ADD_DATA
*  INTO TABLE @DATA(IT_LESHP_ADD_DATA2).
*--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_LESHP_ADD_DATA INDEX 1 INTO DATA(WA_LESHP_ADD_DATA2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<LESHP_ADD_DATA>-SD_ORDER = 1.
<LESHP_ADD_DATA>-VEPVG = 1.
<LESHP_ADD_DATA>-VBAK = 1.
<LESHP_ADD_DATA>-VBAP = 1.
<LESHP_ADD_DATA>-VBEP = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_LESHP_ADD_DATA-VBUK, sy-vline,
  WA_LESHP_ADD_DATA-VBUP, sy-vline,
  WA_LESHP_ADD_DATA-VBKD, sy-vline,
  WA_LESHP_ADD_DATA-VBFA, sy-vline,
  WA_LESHP_ADD_DATA-VBPA, sy-vline,
  WA_LESHP_ADD_DATA-VBADR, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_LESHP_ADD_DATA 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_LESHP_ADD_DATA 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_LESHP_ADD_DATA INTO WA_LESHP_ADD_DATA.


*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.

*Conversion exit ALPHA, internal->external for field NJIT_JINUM
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_LESHP_ADD_DATA-NJIT_JINUM
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_LESHP_ADD_DATA-NJIT_JINUM.
WRITE:/ 'New Value:', ld_input.
ENDFORM. 

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

TYPES: BEGIN OF T_LESHP_ADD_DATA_STR, 
SD_ORDER TYPE STRING,
VEPVG TYPE STRING,
VBAK TYPE STRING,
VBAP TYPE STRING,
VBEP TYPE STRING,
VBUK TYPE STRING,
VBUP TYPE STRING,
VBKD TYPE STRING,
VBFA TYPE STRING,
VBPA TYPE STRING,
VBADR TYPE STRING,
NJIT_JINUM TYPE STRING,
NJIT_POSID TYPE STRING,
NJIT_ABTYP TYPE STRING,
NJIT_PRODN TYPE STRING,
NJIT_VETYP TYPE STRING,
DELG TYPE STRING,
HUDATA TYPE STRING,
JIT_VL10 TYPE STRING,
MM_ORDER TYPE STRING,
VETVG TYPE STRING,
EKKO TYPE STRING,
XKOPF TYPE STRING,
EKPO TYPE STRING,
EKET TYPE STRING,
EKPV TYPE STRING,
XKONT TYPE STRING,
EKKN TYPE STRING,
EKBE TYPE STRING,
EXTHU TYPE STRING,
EKETHU TYPE STRING,
EKPOHU TYPE STRING,
HUDATA TYPE STRING,END OF T_EKKO_STR.
DATA: WA_LESHP_ADD_DATA_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_LESHP_ADD_DATA_STR-SD_ORDER sy-vline 
WA_LESHP_ADD_DATA_STR-VEPVG sy-vline 
WA_LESHP_ADD_DATA_STR-VBAK sy-vline 
WA_LESHP_ADD_DATA_STR-VBAP sy-vline 
WA_LESHP_ADD_DATA_STR-VBEP sy-vline 
WA_LESHP_ADD_DATA_STR-VBUK sy-vline 
WA_LESHP_ADD_DATA_STR-VBUP sy-vline 
WA_LESHP_ADD_DATA_STR-VBKD sy-vline 
WA_LESHP_ADD_DATA_STR-VBFA sy-vline 
WA_LESHP_ADD_DATA_STR-VBPA sy-vline 
WA_LESHP_ADD_DATA_STR-VBADR sy-vline 
WA_LESHP_ADD_DATA_STR-NJIT_JINUM sy-vline 
WA_LESHP_ADD_DATA_STR-NJIT_POSID sy-vline 
WA_LESHP_ADD_DATA_STR-NJIT_ABTYP sy-vline 
WA_LESHP_ADD_DATA_STR-NJIT_PRODN sy-vline 
WA_LESHP_ADD_DATA_STR-NJIT_VETYP sy-vline 
WA_LESHP_ADD_DATA_STR-DELG sy-vline 
WA_LESHP_ADD_DATA_STR-HUDATA sy-vline 
WA_LESHP_ADD_DATA_STR-JIT_VL10 sy-vline 
WA_LESHP_ADD_DATA_STR-MM_ORDER sy-vline 
WA_LESHP_ADD_DATA_STR-VETVG sy-vline 
WA_LESHP_ADD_DATA_STR-EKKO sy-vline 
WA_LESHP_ADD_DATA_STR-XKOPF sy-vline 
WA_LESHP_ADD_DATA_STR-EKPO sy-vline 
WA_LESHP_ADD_DATA_STR-EKET sy-vline 
WA_LESHP_ADD_DATA_STR-EKPV sy-vline 
WA_LESHP_ADD_DATA_STR-XKONT sy-vline 
WA_LESHP_ADD_DATA_STR-EKKN sy-vline 
WA_LESHP_ADD_DATA_STR-EKBE sy-vline 
WA_LESHP_ADD_DATA_STR-EXTHU sy-vline 
WA_LESHP_ADD_DATA_STR-EKETHU sy-vline 
WA_LESHP_ADD_DATA_STR-EKPOHU sy-vline 
WA_LESHP_ADD_DATA_STR-HUDATA sy-vline      INTO ld_text SEPARATED BY SPACE.

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