ABAP Select data from SAP table ITSEGEXT 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 ITSEGEXT 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 ITSEGEXT. 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 ITSEGEXT 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_ITSEGEXT TYPE STANDARD TABLE OF ITSEGEXT,
WA_ITSEGEXT TYPE ITSEGEXT,
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: <ITSEGEXT> TYPE ITSEGEXT.
*Process all fields in table header/work area as string values
PERFORM process_as_string_field_values CHANGING wa_ITSEGEXT.
SELECT *
*restrict ABAP select to first 10 rows
UP TO 10 ROWS
FROM ITSEGEXT
INTO TABLE IT_ITSEGEXT.
*Select data and declare internal table using in-line method @DATA
*SELECT *
* FROM ITSEGEXT
* INTO TABLE @DATA(IT_ITSEGEXT2).
*--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_ITSEGEXT INDEX 1 INTO DATA(WA_ITSEGEXT2).
*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_ITSEGEXT ASSIGNING <ITSEGEXT>.
*To update a field value using a field symbol simply change the value via the field symbol pointer<ITSEGEXT>-CLIENT = 1.
<ITSEGEXT>-HEAD_HDL = 1.
<ITSEGEXT>-HEAD_OBJ = 1.
<ITSEGEXT>-HEAD_TPL = 1.
<ITSEGEXT>-HEAD_FLGRE = 1.
ENDLOOP. LOOP AT IT_ITSEGEXT INTO WA_ITSEGEXT. *Write horizonal line to screen report. WRITE:/ sy-uline. *Write selected data to screen/report before conversion. WRITE:/ sy-vline, WA_ITSEGEXT-HEAD_FLGTX, sy-vline,
WA_ITSEGEXT-HEAD_FLGAD, sy-vline,
WA_ITSEGEXT-HEAD_FLGAP, sy-vline,
WA_ITSEGEXT-HEAD_UNACR, sy-vline,
WA_ITSEGEXT-HEAD_TSTCR, sy-vline,
WA_ITSEGEXT-HEAD_UNACH, sy-vline.
ENDLOOP. *Add any further fields from structure WA_ITSEGEXT 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_ITSEGEXT 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_ITSEGEXT INTO WA_ITSEGEXT. *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 OBJAA, internal->external for field HEAD_OBJ CALL FUNCTION 'CONVERSION_EXIT_OBJAA_OUTPUT' EXPORTING input = WA_ITSEGEXT-HEAD_OBJ IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_ITSEGEXT-HEAD_OBJ.
WRITE:/ 'New Value:', ld_input.
*Conversion exit TMPLA, internal->external for field HEAD_TPL CALL FUNCTION 'CONVERSION_EXIT_TMPLA_OUTPUT' EXPORTING input = WA_ITSEGEXT-HEAD_TPL IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_ITSEGEXT-HEAD_TPL.
WRITE:/ 'New Value:', ld_input.
*Conversion exit EVTYA, internal->external for field EVEN CALL FUNCTION 'CONVERSION_EXIT_EVTYA_OUTPUT' EXPORTING input = WA_ITSEGEXT-EVEN IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_ITSEGEXT-EVEN.
WRITE:/ 'New Value:', ld_input.
*Conversion exit TIMEA, internal->external for field EVEN_TIMFR CALL FUNCTION 'CONVERSION_EXIT_TIMEA_OUTPUT' EXPORTING input = WA_ITSEGEXT-EVEN_TIMFR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_ITSEGEXT-EVEN_TIMFR.
WRITE:/ 'New Value:', ld_input.
*Conversion exit LOCAA, internal->external for field EVEN_LOCFR CALL FUNCTION 'CONVERSION_EXIT_LOCAA_OUTPUT' EXPORTING input = WA_ITSEGEXT-EVEN_LOCFR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_ITSEGEXT-EVEN_LOCFR.
WRITE:/ 'New Value:', ld_input.
*Conversion exit TIMEA, internal->external for field EVEN_TIMTO CALL FUNCTION 'CONVERSION_EXIT_TIMEA_OUTPUT' EXPORTING input = WA_ITSEGEXT-EVEN_TIMTO IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_ITSEGEXT-EVEN_TIMTO.
WRITE:/ 'New Value:', ld_input.
*Conversion exit LOCAA, internal->external for field EVEN_LOCTO CALL FUNCTION 'CONVERSION_EXIT_LOCAA_OUTPUT' EXPORTING input = WA_ITSEGEXT-EVEN_LOCTO IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_ITSEGEXT-EVEN_LOCTO.
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_ITSEGEXT_STR,
CLIENT TYPE STRING,
HEAD_HDL TYPE STRING,
HEAD_OBJ TYPE STRING,
HEAD_TPL TYPE STRING,
HEAD_FLGRE TYPE STRING,
HEAD_FLGTX TYPE STRING,
HEAD_FLGAD TYPE STRING,
HEAD_FLGAP TYPE STRING,
HEAD_UNACR TYPE STRING,
HEAD_TSTCR TYPE STRING,
HEAD_UNACH TYPE STRING,
HEAD_TSTCH TYPE STRING,
EVEN TYPE STRING,
EVEN_CNT TYPE STRING,
EVEN_VERTY TYPE STRING,
EVEN_VERNU TYPE STRING,
EVEN_SOR TYPE STRING,
EVEN_TSTFR TYPE STRING,
EVEN_ZONFR TYPE STRING,
EVEN_TSTTO TYPE STRING,
EVEN_ZONTO TYPE STRING,
EVEN_FLGFF TYPE STRING,
EVEN_FLGFT TYPE STRING,
EVEN_FLGTX TYPE STRING,
EVEN_FLGAD TYPE STRING,
HEAD_SOR TYPE STRING,
EVEN_TIMFR TYPE STRING,
EVEN_LOCFR TYPE STRING,
EVEN_TIMTO TYPE STRING,
EVEN_LOCTO TYPE STRING,END OF T_EKKO_STR. DATA: WA_ITSEGEXT_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_ITSEGEXT_STR-CLIENT sy-vline
WA_ITSEGEXT_STR-HEAD_HDL sy-vline
WA_ITSEGEXT_STR-HEAD_OBJ sy-vline
WA_ITSEGEXT_STR-HEAD_TPL sy-vline
WA_ITSEGEXT_STR-HEAD_FLGRE sy-vline
WA_ITSEGEXT_STR-HEAD_FLGTX sy-vline
WA_ITSEGEXT_STR-HEAD_FLGAD sy-vline
WA_ITSEGEXT_STR-HEAD_FLGAP sy-vline
WA_ITSEGEXT_STR-HEAD_UNACR sy-vline
WA_ITSEGEXT_STR-HEAD_TSTCR sy-vline
WA_ITSEGEXT_STR-HEAD_UNACH sy-vline
WA_ITSEGEXT_STR-HEAD_TSTCH sy-vline
WA_ITSEGEXT_STR-EVEN sy-vline
WA_ITSEGEXT_STR-EVEN_CNT sy-vline
WA_ITSEGEXT_STR-EVEN_VERTY sy-vline
WA_ITSEGEXT_STR-EVEN_VERNU sy-vline
WA_ITSEGEXT_STR-EVEN_SOR sy-vline
WA_ITSEGEXT_STR-EVEN_TSTFR sy-vline
WA_ITSEGEXT_STR-EVEN_ZONFR sy-vline
WA_ITSEGEXT_STR-EVEN_TSTTO sy-vline
WA_ITSEGEXT_STR-EVEN_ZONTO sy-vline
WA_ITSEGEXT_STR-EVEN_FLGFF sy-vline
WA_ITSEGEXT_STR-EVEN_FLGFT sy-vline
WA_ITSEGEXT_STR-EVEN_FLGTX sy-vline
WA_ITSEGEXT_STR-EVEN_FLGAD sy-vline
WA_ITSEGEXT_STR-HEAD_SOR sy-vline
WA_ITSEGEXT_STR-EVEN_TIMFR sy-vline
WA_ITSEGEXT_STR-EVEN_LOCFR sy-vline
WA_ITSEGEXT_STR-EVEN_TIMTO sy-vline
WA_ITSEGEXT_STR-EVEN_LOCTO sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.
