ABAP Select data from SAP table ROXXD90190 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 ROXXD90190 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 ROXXD90190. 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 ROXXD90190 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_ROXXD90190 TYPE STANDARD TABLE OF ROXXD90190,
      WA_ROXXD90190 TYPE ROXXD90190,
      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: <ROXXD90190> TYPE ROXXD90190.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM ROXXD90190
*  INTO TABLE @DATA(IT_ROXXD901902).
*--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_ROXXD90190 INDEX 1 INTO DATA(WA_ROXXD901902).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_ROXXD90190 ASSIGNING <ROXXD90190>.
*To update a field value using a field symbol simply change the value via the field symbol pointer
<ROXXD90190>-MANDT = 1.
<ROXXD90190>-PROFIDPROJ = 1.
<ROXXD90190>-WERKS = 1.
<ROXXD90190>-KALID = 1.
<ROXXD90190>-VGPLF = 1.
ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_ROXXD90190-EWPLF, sy-vline,
WA_ROXXD90190-PLNAW, sy-vline,
WA_ROXXD90190-VPROF, sy-vline,
WA_ROXXD90190-NZANZ, sy-vline,
WA_ROXXD90190-IDENT, sy-vline,
WA_ROXXD90190-ABGSL, sy-vline.
ENDLOOP. *Add any further fields from structure WA_ROXXD90190 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_ROXXD90190 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_ROXXD90190 INTO WA_ROXXD90190. *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 APROF CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_ROXXD90190-APROF IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_ROXXD90190-APROF.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit CUNIT, internal->external for field ZTEHT CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT' EXPORTING input = WA_ROXXD90190-ZTEHT IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_ROXXD90190-ZTEHT.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit SCOPE, internal->external for field SCOPE CALL FUNCTION 'CONVERSION_EXIT_SCOPE_OUTPUT' EXPORTING input = WA_ROXXD90190-SCOPE IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_ROXXD90190-SCOPE.
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_ROXXD90190_STR,
MANDT TYPE STRING,
PROFIDPROJ TYPE STRING,
WERKS TYPE STRING,
KALID TYPE STRING,
VGPLF TYPE STRING,
EWPLF TYPE STRING,
PLNAW TYPE STRING,
VPROF TYPE STRING,
NZANZ TYPE STRING,
IDENT TYPE STRING,
ABGSL TYPE STRING,
LEVELS TYPE STRING,
ZUORD TYPE STRING,
TRMEQ TYPE STRING,
STSPD TYPE STRING,
STSPR TYPE STRING,
KVEWE TYPE STRING,
KAPPL TYPE STRING,
KALSM TYPE STRING,
ZSCHL TYPE STRING,
APROF TYPE STRING,
APRFE TYPE STRING,
GRPGS TYPE STRING,
GRPFS TYPE STRING,
GRPGT TYPE STRING,
GRPFT TYPE STRING,
GRPGB TYPE STRING,
GRPFB TYPE STRING,
BERST TYPE STRING,
BERTR TYPE STRING,
BERKO TYPE STRING,
BERBU TYPE STRING,
SLWID TYPE STRING,
AUTOD TYPE STRING,
BPROF TYPE STRING,
ZTEHT TYPE STRING,
ALL_ACC TYPE STRING,
ALL_ACT TYPE STRING,
BUKRS TYPE STRING,
GSBER TYPE STRING,
KOKRS TYPE STRING,
PRCTR TYPE STRING,
WAERS TYPE STRING,
CHGKZ TYPE STRING,
BESTA TYPE STRING,
SCOPE TYPE STRING,
XSTAT TYPE STRING,
AEBLG TYPE STRING,
PRART TYPE STRING,
BPPROFL TYPE STRING,
ZSCHM TYPE STRING,
EINGR TYPE STRING,
EINTB TYPE STRING,
IMPRF TYPE STRING,
THPROFILE TYPE STRING,
SCPRF TYPE STRING,
CLALL TYPE STRING,
CLFAK TYPE STRING,
CLKNT TYPE STRING,
VSPRF TYPE STRING,
FMPRF TYPE STRING,
LSTKP TYPE STRING,
EINGE TYPE STRING,
EINTE TYPE STRING,
PPROF TYPE STRING,
PLINT TYPE STRING,
RESZ1 TYPE STRING,
RESZ2 TYPE STRING,
GRVST TYPE STRING,
XROOT TYPE STRING,
VALID TYPE STRING,
VALID_PSP TYPE STRING,
AUTOVAL TYPE STRING,
SUBST TYPE STRING,
SUBST_PSP TYPE STRING,
AUTOSUB TYPE STRING,
KZBWS TYPE STRING,
SMPRF TYPE STRING,
HY_SEARCH1 TYPE STRING,
HY_SEARCH2 TYPE STRING,
HY_SEARCH3 TYPE STRING,
FLGVRG TYPE STRING,
GRTOP TYPE STRING,
PGPRF TYPE STRING,
KZERB TYPE STRING,
STRAT TYPE STRING,
PARGR TYPE STRING,
SCHTYP TYPE STRING,
FUNC_AREA TYPE STRING,
VKORG TYPE STRING,
VTWEG TYPE STRING,
SPART TYPE STRING,
DPPPROF TYPE STRING,
VPKSTU TYPE STRING,
EXEC_PROFILE TYPE STRING,
IPPS TYPE STRING,END OF T_EKKO_STR. DATA: WA_ROXXD90190_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_ROXXD90190_STR-MANDT sy-vline
WA_ROXXD90190_STR-PROFIDPROJ sy-vline
WA_ROXXD90190_STR-WERKS sy-vline
WA_ROXXD90190_STR-KALID sy-vline
WA_ROXXD90190_STR-VGPLF sy-vline
WA_ROXXD90190_STR-EWPLF sy-vline
WA_ROXXD90190_STR-PLNAW sy-vline
WA_ROXXD90190_STR-VPROF sy-vline
WA_ROXXD90190_STR-NZANZ sy-vline
WA_ROXXD90190_STR-IDENT sy-vline
WA_ROXXD90190_STR-ABGSL sy-vline
WA_ROXXD90190_STR-LEVELS sy-vline
WA_ROXXD90190_STR-ZUORD sy-vline
WA_ROXXD90190_STR-TRMEQ sy-vline
WA_ROXXD90190_STR-STSPD sy-vline
WA_ROXXD90190_STR-STSPR sy-vline
WA_ROXXD90190_STR-KVEWE sy-vline
WA_ROXXD90190_STR-KAPPL sy-vline
WA_ROXXD90190_STR-KALSM sy-vline
WA_ROXXD90190_STR-ZSCHL sy-vline
WA_ROXXD90190_STR-APROF sy-vline
WA_ROXXD90190_STR-APRFE sy-vline
WA_ROXXD90190_STR-GRPGS sy-vline
WA_ROXXD90190_STR-GRPFS sy-vline
WA_ROXXD90190_STR-GRPGT sy-vline
WA_ROXXD90190_STR-GRPFT sy-vline
WA_ROXXD90190_STR-GRPGB sy-vline
WA_ROXXD90190_STR-GRPFB sy-vline
WA_ROXXD90190_STR-BERST sy-vline
WA_ROXXD90190_STR-BERTR sy-vline
WA_ROXXD90190_STR-BERKO sy-vline
WA_ROXXD90190_STR-BERBU sy-vline
WA_ROXXD90190_STR-SLWID sy-vline
WA_ROXXD90190_STR-AUTOD sy-vline
WA_ROXXD90190_STR-BPROF sy-vline
WA_ROXXD90190_STR-ZTEHT sy-vline
WA_ROXXD90190_STR-ALL_ACC sy-vline
WA_ROXXD90190_STR-ALL_ACT sy-vline
WA_ROXXD90190_STR-BUKRS sy-vline
WA_ROXXD90190_STR-GSBER sy-vline
WA_ROXXD90190_STR-KOKRS sy-vline
WA_ROXXD90190_STR-PRCTR sy-vline
WA_ROXXD90190_STR-WAERS sy-vline
WA_ROXXD90190_STR-CHGKZ sy-vline
WA_ROXXD90190_STR-BESTA sy-vline
WA_ROXXD90190_STR-SCOPE sy-vline
WA_ROXXD90190_STR-XSTAT sy-vline
WA_ROXXD90190_STR-AEBLG sy-vline
WA_ROXXD90190_STR-PRART sy-vline
WA_ROXXD90190_STR-BPPROFL sy-vline
WA_ROXXD90190_STR-ZSCHM sy-vline
WA_ROXXD90190_STR-EINGR sy-vline
WA_ROXXD90190_STR-EINTB sy-vline
WA_ROXXD90190_STR-IMPRF sy-vline
WA_ROXXD90190_STR-THPROFILE sy-vline
WA_ROXXD90190_STR-SCPRF sy-vline
WA_ROXXD90190_STR-CLALL sy-vline
WA_ROXXD90190_STR-CLFAK sy-vline
WA_ROXXD90190_STR-CLKNT sy-vline
WA_ROXXD90190_STR-VSPRF sy-vline
WA_ROXXD90190_STR-FMPRF sy-vline
WA_ROXXD90190_STR-LSTKP sy-vline
WA_ROXXD90190_STR-EINGE sy-vline
WA_ROXXD90190_STR-EINTE sy-vline
WA_ROXXD90190_STR-PPROF sy-vline
WA_ROXXD90190_STR-PLINT sy-vline
WA_ROXXD90190_STR-RESZ1 sy-vline
WA_ROXXD90190_STR-RESZ2 sy-vline
WA_ROXXD90190_STR-GRVST sy-vline
WA_ROXXD90190_STR-XROOT sy-vline
WA_ROXXD90190_STR-VALID sy-vline
WA_ROXXD90190_STR-VALID_PSP sy-vline
WA_ROXXD90190_STR-AUTOVAL sy-vline
WA_ROXXD90190_STR-SUBST sy-vline
WA_ROXXD90190_STR-SUBST_PSP sy-vline
WA_ROXXD90190_STR-AUTOSUB sy-vline
WA_ROXXD90190_STR-KZBWS sy-vline
WA_ROXXD90190_STR-SMPRF sy-vline
WA_ROXXD90190_STR-HY_SEARCH1 sy-vline
WA_ROXXD90190_STR-HY_SEARCH2 sy-vline
WA_ROXXD90190_STR-HY_SEARCH3 sy-vline
WA_ROXXD90190_STR-FLGVRG sy-vline
WA_ROXXD90190_STR-GRTOP sy-vline
WA_ROXXD90190_STR-PGPRF sy-vline
WA_ROXXD90190_STR-KZERB sy-vline
WA_ROXXD90190_STR-STRAT sy-vline
WA_ROXXD90190_STR-PARGR sy-vline
WA_ROXXD90190_STR-SCHTYP sy-vline
WA_ROXXD90190_STR-FUNC_AREA sy-vline
WA_ROXXD90190_STR-VKORG sy-vline
WA_ROXXD90190_STR-VTWEG sy-vline
WA_ROXXD90190_STR-SPART sy-vline
WA_ROXXD90190_STR-DPPPROF sy-vline
WA_ROXXD90190_STR-VPKSTU sy-vline
WA_ROXXD90190_STR-EXEC_PROFILE sy-vline
WA_ROXXD90190_STR-IPPS sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.