ABAP Select data from SAP table QABWR into internal table

Get Example source ABAP code based on a different SAP table
  

Below is a number of ABAP code snippets to demonstrate how to select data from SAP QABWR 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 QABWR. 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 QABWR 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_QABWR TYPE STANDARD TABLE OF QABWR,
      WA_QABWR TYPE QABWR,
      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: <QABWR> TYPE QABWR.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM QABWR
*  INTO TABLE @DATA(IT_QABWR2).
*--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_QABWR INDEX 1 INTO DATA(WA_QABWR2).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_QABWR ASSIGNING <QABWR>.
*To update a field value using a field symbol simply change the value via the field symbol pointer
<QABWR>-PRUEFLOS = 1.
<QABWR>-VORGLFNR = 1.
<QABWR>-PLNFL = 1.
<QABWR>-VORNR = 1.
<QABWR>-MERKNR = 1.
ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_QABWR-KURZTEXT, sy-vline,
WA_QABWR-PROBENR, sy-vline,
WA_QABWR-QRKNR, sy-vline,
WA_QABWR-STELLEN, sy-vline,
WA_QABWR-WERK, sy-vline,
WA_QABWR-MERKGEW, sy-vline.
ENDLOOP. *Add any further fields from structure WA_QABWR 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_QABWR 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_QABWR INTO WA_QABWR. *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 PRUEFLOS CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_QABWR-PRUEFLOS IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_QABWR-PRUEFLOS.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit NUMCV, internal->external for field VORNR CALL FUNCTION 'CONVERSION_EXIT_NUMCV_OUTPUT' EXPORTING input = WA_QABWR-VORNR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_QABWR-VORNR.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

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

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

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

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

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

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

*Conversion exit CUNIT, internal->external for field MENGENEINH CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT' EXPORTING input = WA_QABWR-MENGENEINH IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_QABWR-MENGENEINH.
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_QABWR_STR,
PRUEFLOS TYPE STRING,
VORGLFNR TYPE STRING,
PLNFL TYPE STRING,
VORNR TYPE STRING,
MERKNR TYPE STRING,
KURZTEXT TYPE STRING,
PROBENR TYPE STRING,
QRKNR TYPE STRING,
STELLEN TYPE STRING,
WERK TYPE STRING,
MERKGEW TYPE STRING,
FEHLKLAS TYPE STRING,
DYNPCALL TYPE STRING,
SOLLSTPUMF TYPE STRING,
ANNAHMEZ TYPE STRING,
RUECKWEZ TYPE STRING,
KFAKTORNI TYPE STRING,
KFAKTOR TYPE STRING,
TOLUNNI TYPE STRING,
TOLERANZUN TYPE STRING,
TOLOBNI TYPE STRING,
TOLERANZOB TYPE STRING,
ANZWERTO TYPE STRING,
ANZWERTU TYPE STRING,
ANZWERTG TYPE STRING,
ANZFEHLEH TYPE STRING,
ANZFEHLER TYPE STRING,
MITTELWNI TYPE STRING,
STDABWNI TYPE STRING,
MOMENT3NI TYPE STRING,
MOMENT4NI TYPE STRING,
ANTEILONI TYPE STRING,
ANTEILUNI TYPE STRING,
MAXWERTNI TYPE STRING,
MINWERTNI TYPE STRING,
MITTELWERT TYPE STRING,
STDABW TYPE STRING,
MOMENT3 TYPE STRING,
MOMENT4 TYPE STRING,
ANTEILO TYPE STRING,
ANTEILU TYPE STRING,
MAXWERT TYPE STRING,
MINWERT TYPE STRING,
KATALGART TYPE STRING,
AUSWMENGE TYPE STRING,
AUSWMGWRK TYPE STRING,
AUSWVERS TYPE STRING,
GRUPPE TYPE STRING,
CODE TYPE STRING,
VERSION TYPE STRING,
MBEWERTG TYPE STRING,
DBEWERTG TYPE STRING,
DUMMY10 TYPE STRING,
DUMMY20 TYPE STRING,
DUMMY40 TYPE STRING,
CODEGR9U TYPE STRING,
CODE9U TYPE STRING,
CODEVR9U TYPE STRING,
CODEGR9O TYPE STRING,
CODE9O TYPE STRING,
CODEVR9O TYPE STRING,
CODEGRQUAL TYPE STRING,
CODEQUAL TYPE STRING,
QUANTITAT TYPE STRING,
MESSWERTE TYPE STRING,
PRUEFKAT TYPE STRING,
BEWFHLZHL TYPE STRING,
ESTUKZ TYPE STRING,
SOLLWERT TYPE STRING,
SOLLWNI TYPE STRING,
SOLLSTPANZ TYPE STRING,
ISTSTPANZ TYPE STRING,
GUELSTPANZ TYPE STRING,
STEUERKZ TYPE STRING,
GRENZEOB1 TYPE STRING,
GRENZOB1NI TYPE STRING,
GRENZEUN1 TYPE STRING,
GRENZUN1NI TYPE STRING,
GRENZEOB2 TYPE STRING,
GRENZOB2NI TYPE STRING,
GRENZEUN2 TYPE STRING,
GRENZUN2NI TYPE STRING,
SCHLCODE TYPE STRING,
PRUEFQUALI TYPE STRING,
FORMEL1 TYPE STRING,
FORMEL2 TYPE STRING,
FORMELSL TYPE STRING,
PZLFH TYPE STRING,
KATAB2 TYPE STRING,
KATALGART2 TYPE STRING,
AUSWMENGE2 TYPE STRING,
AUSWMGWRK2 TYPE STRING,
AUSWVERS2 TYPE STRING,
AUSWDAT2 TYPE STRING,
KATAB3 TYPE STRING,
KATALGART3 TYPE STRING,
AUSWMENGE3 TYPE STRING,
AUSWMGWRK3 TYPE STRING,
AUSWVERS3 TYPE STRING,
AUSWDAT3 TYPE STRING,
KATAB4 TYPE STRING,
KATALGART4 TYPE STRING,
AUSWMENGE4 TYPE STRING,
AUSWMGWRK4 TYPE STRING,
AUSWVERS4 TYPE STRING,
AUSWDAT4 TYPE STRING,
KATAB5 TYPE STRING,
KATALGART5 TYPE STRING,
AUSWMENGE5 TYPE STRING,
AUSWMGWRK5 TYPE STRING,
AUSWVERS5 TYPE STRING,
AUSWDAT5 TYPE STRING,
GRUPPE2 TYPE STRING,
CODE2 TYPE STRING,
VERSION2 TYPE STRING,
GRUPPE3 TYPE STRING,
CODE3 TYPE STRING,
VERSION3 TYPE STRING,
GRUPPE4 TYPE STRING,
CODE4 TYPE STRING,
VERSION4 TYPE STRING,
GRUPPE5 TYPE STRING,
CODE5 TYPE STRING,
VERSION5 TYPE STRING,
STICHPRVER TYPE STRING,
BEWREGELPR TYPE STRING,
KZMFSAB TYPE STRING,
LOSMENGE TYPE STRING,
MENGENEINH TYPE STRING,
FAKPLANME TYPE STRING,
FAKPROBME TYPE STRING,
PROBMGFAK TYPE STRING,
PRSCHAERFE TYPE STRING,
UPSLV TYPE STRING,
ATTRIBUT TYPE STRING,
IDICALL TYPE STRING,END OF T_EKKO_STR. DATA: WA_QABWR_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_QABWR_STR-PRUEFLOS sy-vline
WA_QABWR_STR-VORGLFNR sy-vline
WA_QABWR_STR-PLNFL sy-vline
WA_QABWR_STR-VORNR sy-vline
WA_QABWR_STR-MERKNR sy-vline
WA_QABWR_STR-KURZTEXT sy-vline
WA_QABWR_STR-PROBENR sy-vline
WA_QABWR_STR-QRKNR sy-vline
WA_QABWR_STR-STELLEN sy-vline
WA_QABWR_STR-WERK sy-vline
WA_QABWR_STR-MERKGEW sy-vline
WA_QABWR_STR-FEHLKLAS sy-vline
WA_QABWR_STR-DYNPCALL sy-vline
WA_QABWR_STR-SOLLSTPUMF sy-vline
WA_QABWR_STR-ANNAHMEZ sy-vline
WA_QABWR_STR-RUECKWEZ sy-vline
WA_QABWR_STR-KFAKTORNI sy-vline
WA_QABWR_STR-KFAKTOR sy-vline
WA_QABWR_STR-TOLUNNI sy-vline
WA_QABWR_STR-TOLERANZUN sy-vline
WA_QABWR_STR-TOLOBNI sy-vline
WA_QABWR_STR-TOLERANZOB sy-vline
WA_QABWR_STR-ANZWERTO sy-vline
WA_QABWR_STR-ANZWERTU sy-vline
WA_QABWR_STR-ANZWERTG sy-vline
WA_QABWR_STR-ANZFEHLEH sy-vline
WA_QABWR_STR-ANZFEHLER sy-vline
WA_QABWR_STR-MITTELWNI sy-vline
WA_QABWR_STR-STDABWNI sy-vline
WA_QABWR_STR-MOMENT3NI sy-vline
WA_QABWR_STR-MOMENT4NI sy-vline
WA_QABWR_STR-ANTEILONI sy-vline
WA_QABWR_STR-ANTEILUNI sy-vline
WA_QABWR_STR-MAXWERTNI sy-vline
WA_QABWR_STR-MINWERTNI sy-vline
WA_QABWR_STR-MITTELWERT sy-vline
WA_QABWR_STR-STDABW sy-vline
WA_QABWR_STR-MOMENT3 sy-vline
WA_QABWR_STR-MOMENT4 sy-vline
WA_QABWR_STR-ANTEILO sy-vline
WA_QABWR_STR-ANTEILU sy-vline
WA_QABWR_STR-MAXWERT sy-vline
WA_QABWR_STR-MINWERT sy-vline
WA_QABWR_STR-KATALGART sy-vline
WA_QABWR_STR-AUSWMENGE sy-vline
WA_QABWR_STR-AUSWMGWRK sy-vline
WA_QABWR_STR-AUSWVERS sy-vline
WA_QABWR_STR-GRUPPE sy-vline
WA_QABWR_STR-CODE sy-vline
WA_QABWR_STR-VERSION sy-vline
WA_QABWR_STR-MBEWERTG sy-vline
WA_QABWR_STR-DBEWERTG sy-vline
WA_QABWR_STR-DUMMY10 sy-vline
WA_QABWR_STR-DUMMY20 sy-vline
WA_QABWR_STR-DUMMY40 sy-vline
WA_QABWR_STR-CODEGR9U sy-vline
WA_QABWR_STR-CODE9U sy-vline
WA_QABWR_STR-CODEVR9U sy-vline
WA_QABWR_STR-CODEGR9O sy-vline
WA_QABWR_STR-CODE9O sy-vline
WA_QABWR_STR-CODEVR9O sy-vline
WA_QABWR_STR-CODEGRQUAL sy-vline
WA_QABWR_STR-CODEQUAL sy-vline
WA_QABWR_STR-QUANTITAT sy-vline
WA_QABWR_STR-MESSWERTE sy-vline
WA_QABWR_STR-PRUEFKAT sy-vline
WA_QABWR_STR-BEWFHLZHL sy-vline
WA_QABWR_STR-ESTUKZ sy-vline
WA_QABWR_STR-SOLLWERT sy-vline
WA_QABWR_STR-SOLLWNI sy-vline
WA_QABWR_STR-SOLLSTPANZ sy-vline
WA_QABWR_STR-ISTSTPANZ sy-vline
WA_QABWR_STR-GUELSTPANZ sy-vline
WA_QABWR_STR-STEUERKZ sy-vline
WA_QABWR_STR-GRENZEOB1 sy-vline
WA_QABWR_STR-GRENZOB1NI sy-vline
WA_QABWR_STR-GRENZEUN1 sy-vline
WA_QABWR_STR-GRENZUN1NI sy-vline
WA_QABWR_STR-GRENZEOB2 sy-vline
WA_QABWR_STR-GRENZOB2NI sy-vline
WA_QABWR_STR-GRENZEUN2 sy-vline
WA_QABWR_STR-GRENZUN2NI sy-vline
WA_QABWR_STR-SCHLCODE sy-vline
WA_QABWR_STR-PRUEFQUALI sy-vline
WA_QABWR_STR-FORMEL1 sy-vline
WA_QABWR_STR-FORMEL2 sy-vline
WA_QABWR_STR-FORMELSL sy-vline
WA_QABWR_STR-PZLFH sy-vline
WA_QABWR_STR-KATAB2 sy-vline
WA_QABWR_STR-KATALGART2 sy-vline
WA_QABWR_STR-AUSWMENGE2 sy-vline
WA_QABWR_STR-AUSWMGWRK2 sy-vline
WA_QABWR_STR-AUSWVERS2 sy-vline
WA_QABWR_STR-AUSWDAT2 sy-vline
WA_QABWR_STR-KATAB3 sy-vline
WA_QABWR_STR-KATALGART3 sy-vline
WA_QABWR_STR-AUSWMENGE3 sy-vline
WA_QABWR_STR-AUSWMGWRK3 sy-vline
WA_QABWR_STR-AUSWVERS3 sy-vline
WA_QABWR_STR-AUSWDAT3 sy-vline
WA_QABWR_STR-KATAB4 sy-vline
WA_QABWR_STR-KATALGART4 sy-vline
WA_QABWR_STR-AUSWMENGE4 sy-vline
WA_QABWR_STR-AUSWMGWRK4 sy-vline
WA_QABWR_STR-AUSWVERS4 sy-vline
WA_QABWR_STR-AUSWDAT4 sy-vline
WA_QABWR_STR-KATAB5 sy-vline
WA_QABWR_STR-KATALGART5 sy-vline
WA_QABWR_STR-AUSWMENGE5 sy-vline
WA_QABWR_STR-AUSWMGWRK5 sy-vline
WA_QABWR_STR-AUSWVERS5 sy-vline
WA_QABWR_STR-AUSWDAT5 sy-vline
WA_QABWR_STR-GRUPPE2 sy-vline
WA_QABWR_STR-CODE2 sy-vline
WA_QABWR_STR-VERSION2 sy-vline
WA_QABWR_STR-GRUPPE3 sy-vline
WA_QABWR_STR-CODE3 sy-vline
WA_QABWR_STR-VERSION3 sy-vline
WA_QABWR_STR-GRUPPE4 sy-vline
WA_QABWR_STR-CODE4 sy-vline
WA_QABWR_STR-VERSION4 sy-vline
WA_QABWR_STR-GRUPPE5 sy-vline
WA_QABWR_STR-CODE5 sy-vline
WA_QABWR_STR-VERSION5 sy-vline
WA_QABWR_STR-STICHPRVER sy-vline
WA_QABWR_STR-BEWREGELPR sy-vline
WA_QABWR_STR-KZMFSAB sy-vline
WA_QABWR_STR-LOSMENGE sy-vline
WA_QABWR_STR-MENGENEINH sy-vline
WA_QABWR_STR-FAKPLANME sy-vline
WA_QABWR_STR-FAKPROBME sy-vline
WA_QABWR_STR-PROBMGFAK sy-vline
WA_QABWR_STR-PRSCHAERFE sy-vline
WA_QABWR_STR-UPSLV sy-vline
WA_QABWR_STR-ATTRIBUT sy-vline
WA_QABWR_STR-IDICALL sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.