ABAP Select data from SAP table DISERX1 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 DISERX1 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 DISERX1. 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 DISERX1 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_DISERX1 TYPE STANDARD TABLE OF DISERX1,
      WA_DISERX1 TYPE DISERX1,
      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: <DISERX1> TYPE DISERX1.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM DISERX1
*  INTO TABLE @DATA(IT_DISERX12).
*--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_DISERX1 INDEX 1 INTO DATA(WA_DISERX12).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<DISERX1>-MANDT = 1.
<DISERX1>-OBKNR = 1.
<DISERX1>-LIEF_NR = 1.
<DISERX1>-POSNR = 1.
<DISERX1>-DATUM = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_DISERX1-LETZNR, sy-vline,
  WA_DISERX1-KUNDE, sy-vline,
  WA_DISERX1-ANZSN, sy-vline,
  WA_DISERX1-VORGANG, sy-vline,
  WA_DISERX1-UZEIT, sy-vline,
  WA_DISERX1-VBTYP, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_DISERX1 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_DISERX1 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_DISERX1 INTO WA_DISERX1.


*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 LIEF_NR
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_DISERX1-LIEF_NR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_DISERX1-LIEF_NR.
WRITE:/ 'New Value:', ld_input.

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

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

*Conversion exit AUART, internal->external for field SD_AUART
CALL FUNCTION 'CONVERSION_EXIT_AUART_OUTPUT'
  EXPORTING
    input =                      WA_DISERX1-SD_AUART
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_DISERX1-SD_AUART.
WRITE:/ 'New Value:', ld_input.

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

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

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

*Conversion exit GJAHR, internal->external for field MJAHR
CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT'
  EXPORTING
    input =                      WA_DISERX1-MJAHR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_DISERX1-MJAHR.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

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

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

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

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

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

*Conversion exit MATN1, internal->external for field BAUTL
CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT'
  EXPORTING
    input =                      WA_DISERX1-BAUTL
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_DISERX1-BAUTL.
WRITE:/ 'New Value:', ld_input.

*Conversion exit GERNR, internal->external for field SERNR
CALL FUNCTION 'CONVERSION_EXIT_GERNR_OUTPUT'
  EXPORTING
    input =                      WA_DISERX1-SERNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_DISERX1-SERNR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit MATN1, internal->external for field MATNR
CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT'
  EXPORTING
    input =                      WA_DISERX1-MATNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_DISERX1-MATNR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit TPLNR, internal->external for field TPLNR
CALL FUNCTION 'CONVERSION_EXIT_TPLNR_OUTPUT'
  EXPORTING
    input =                      WA_DISERX1-TPLNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_DISERX1-TPLNR.
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_DISERX1_STR, 
MANDT TYPE STRING,
OBKNR TYPE STRING,
LIEF_NR TYPE STRING,
POSNR TYPE STRING,
DATUM TYPE STRING,
LETZNR TYPE STRING,
KUNDE TYPE STRING,
ANZSN TYPE STRING,
VORGANG TYPE STRING,
UZEIT TYPE STRING,
VBTYP TYPE STRING,
BWART TYPE STRING,
LOKNZ TYPE STRING,
DBKNZ TYPE STRING,
SDAUFNR TYPE STRING,
SD_AUART TYPE STRING,
SD_POSTYP TYPE STRING,
MSEGZN TYPE STRING,
PRUEFLOS TYPE STRING,
LIEFERANT TYPE STRING,
MBLNR TYPE STRING,
MJAHR TYPE STRING,
ZEILE TYPE STRING,
BLART TYPE STRING,
SHKZG TYPE STRING,
WERK TYPE STRING,
LAGERORT TYPE STRING,
CHARGE TYPE STRING,
WAPOS TYPE STRING,
PMAUFNR TYPE STRING,
XAUTO TYPE STRING,
PREFETCH TYPE STRING,
PPAUFNR TYPE STRING,
PPPOSNR TYPE STRING,
PPAUTYP TYPE STRING,
PPAUFART TYPE STRING,
PPWERK TYPE STRING,
PMRSORD TYPE STRING,
VENUM TYPE STRING,
VEPOS TYPE STRING,
EXIDV TYPE STRING,
IBLNR TYPE STRING,
ZEILI TYPE STRING,
OLTPI TYPE STRING,
BSTAR TYPE STRING,
EBELN TYPE STRING,
EBELP TYPE STRING,
ETENR TYPE STRING,
BSTYP TYPE STRING,
BSART TYPE STRING,
PSTYP TYPE STRING,
BANFN TYPE STRING,
BNFPO TYPE STRING,
INTERNALJITCALLNUMBER TYPE STRING,
COMPGRPNUMBER TYPE STRING,
JITCALLITEMNUMBER TYPE STRING,
VEHICLEIDENTIFICATIONNUMBER TYPE STRING,
SHIPTOPARTY TYPE STRING,
JITSCENARIO TYPE STRING,
LOEKZ TYPE STRING,
STAPO TYPE STRING,
SERRU TYPE STRING,
UEBPO TYPE STRING,
UPTYP TYPE STRING,
EQUNR TYPE STRING,
IHNUM TYPE STRING,
BAUTL TYPE STRING,
ILOAN TYPE STRING,
SORTF TYPE STRING,
BEARB TYPE STRING,
OBJVW TYPE STRING,
SERNR TYPE STRING,
MATNR TYPE STRING,
EQSNR TYPE STRING,
TASER TYPE STRING,
TPLNR TYPE STRING,
INST_DISM TYPE STRING,
UII TYPE STRING,
IUID_TYPE TYPE STRING,
UII_PLANT TYPE STRING,END OF T_EKKO_STR.
DATA: WA_DISERX1_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_DISERX1_STR-MANDT sy-vline 
WA_DISERX1_STR-OBKNR sy-vline 
WA_DISERX1_STR-LIEF_NR sy-vline 
WA_DISERX1_STR-POSNR sy-vline 
WA_DISERX1_STR-DATUM sy-vline 
WA_DISERX1_STR-LETZNR sy-vline 
WA_DISERX1_STR-KUNDE sy-vline 
WA_DISERX1_STR-ANZSN sy-vline 
WA_DISERX1_STR-VORGANG sy-vline 
WA_DISERX1_STR-UZEIT sy-vline 
WA_DISERX1_STR-VBTYP sy-vline 
WA_DISERX1_STR-BWART sy-vline 
WA_DISERX1_STR-LOKNZ sy-vline 
WA_DISERX1_STR-DBKNZ sy-vline 
WA_DISERX1_STR-SDAUFNR sy-vline 
WA_DISERX1_STR-SD_AUART sy-vline 
WA_DISERX1_STR-SD_POSTYP sy-vline 
WA_DISERX1_STR-MSEGZN sy-vline 
WA_DISERX1_STR-PRUEFLOS sy-vline 
WA_DISERX1_STR-LIEFERANT sy-vline 
WA_DISERX1_STR-MBLNR sy-vline 
WA_DISERX1_STR-MJAHR sy-vline 
WA_DISERX1_STR-ZEILE sy-vline 
WA_DISERX1_STR-BLART sy-vline 
WA_DISERX1_STR-SHKZG sy-vline 
WA_DISERX1_STR-WERK sy-vline 
WA_DISERX1_STR-LAGERORT sy-vline 
WA_DISERX1_STR-CHARGE sy-vline 
WA_DISERX1_STR-WAPOS sy-vline 
WA_DISERX1_STR-PMAUFNR sy-vline 
WA_DISERX1_STR-XAUTO sy-vline 
WA_DISERX1_STR-PREFETCH sy-vline 
WA_DISERX1_STR-PPAUFNR sy-vline 
WA_DISERX1_STR-PPPOSNR sy-vline 
WA_DISERX1_STR-PPAUTYP sy-vline 
WA_DISERX1_STR-PPAUFART sy-vline 
WA_DISERX1_STR-PPWERK sy-vline 
WA_DISERX1_STR-PMRSORD sy-vline 
WA_DISERX1_STR-VENUM sy-vline 
WA_DISERX1_STR-VEPOS sy-vline 
WA_DISERX1_STR-EXIDV sy-vline 
WA_DISERX1_STR-IBLNR sy-vline 
WA_DISERX1_STR-ZEILI sy-vline 
WA_DISERX1_STR-OLTPI sy-vline 
WA_DISERX1_STR-BSTAR sy-vline 
WA_DISERX1_STR-EBELN sy-vline 
WA_DISERX1_STR-EBELP sy-vline 
WA_DISERX1_STR-ETENR sy-vline 
WA_DISERX1_STR-BSTYP sy-vline 
WA_DISERX1_STR-BSART sy-vline 
WA_DISERX1_STR-PSTYP sy-vline 
WA_DISERX1_STR-BANFN sy-vline 
WA_DISERX1_STR-BNFPO sy-vline 
WA_DISERX1_STR-INTERNALJITCALLNUMBER sy-vline 
WA_DISERX1_STR-COMPGRPNUMBER sy-vline 
WA_DISERX1_STR-JITCALLITEMNUMBER sy-vline 
WA_DISERX1_STR-VEHICLEIDENTIFICATIONNUMBER sy-vline 
WA_DISERX1_STR-SHIPTOPARTY sy-vline 
WA_DISERX1_STR-JITSCENARIO sy-vline 
WA_DISERX1_STR-LOEKZ sy-vline 
WA_DISERX1_STR-STAPO sy-vline 
WA_DISERX1_STR-SERRU sy-vline 
WA_DISERX1_STR-UEBPO sy-vline 
WA_DISERX1_STR-UPTYP sy-vline 
WA_DISERX1_STR-EQUNR sy-vline 
WA_DISERX1_STR-IHNUM sy-vline 
WA_DISERX1_STR-BAUTL sy-vline 
WA_DISERX1_STR-ILOAN sy-vline 
WA_DISERX1_STR-SORTF sy-vline 
WA_DISERX1_STR-BEARB sy-vline 
WA_DISERX1_STR-OBJVW sy-vline 
WA_DISERX1_STR-SERNR sy-vline 
WA_DISERX1_STR-MATNR sy-vline 
WA_DISERX1_STR-EQSNR sy-vline 
WA_DISERX1_STR-TASER sy-vline 
WA_DISERX1_STR-TPLNR sy-vline 
WA_DISERX1_STR-INST_DISM sy-vline 
WA_DISERX1_STR-UII sy-vline 
WA_DISERX1_STR-IUID_TYPE sy-vline 
WA_DISERX1_STR-UII_PLANT sy-vline      INTO ld_text SEPARATED BY SPACE.

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