ABAP Select data from SAP table ANEPI 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 ANEPI 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 ANEPI. 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 ANEPI 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_ANEPI TYPE STANDARD TABLE OF ANEPI,
WA_ANEPI TYPE ANEPI,
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: <ANEPI> TYPE ANEPI.
*Process all fields in table header/work area as string values
PERFORM process_as_string_field_values CHANGING wa_ANEPI.
SELECT *
*restrict ABAP select to first 10 rows
UP TO 10 ROWS
FROM ANEPI
INTO TABLE IT_ANEPI.
*Select data and declare internal table using in-line method @DATA
*SELECT *
* FROM ANEPI
* INTO TABLE @DATA(IT_ANEPI2).
*--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_ANEPI INDEX 1 INTO DATA(WA_ANEPI2).
*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_ANEPI ASSIGNING <ANEPI>.
*To update a field value using a field symbol simply change the value via the field symbol pointer<ANEPI>-LFDNR = 1.
<ANEPI>-MANDT = 1.
<ANEPI>-BUKRS = 1.
<ANEPI>-ANLN1 = 1.
<ANEPI>-ANLN2 = 1.
ENDLOOP. LOOP AT IT_ANEPI INTO WA_ANEPI. *Write horizonal line to screen report. WRITE:/ sy-uline. *Write selected data to screen/report before conversion. WRITE:/ sy-vline, WA_ANEPI-GJAHR, sy-vline,
WA_ANEPI-LNRAN, sy-vline,
WA_ANEPI-AFABE, sy-vline,
WA_ANEPI-ZUJHR, sy-vline,
WA_ANEPI-ZUCOD, sy-vline,
WA_ANEPI-PERAF, sy-vline.
ENDLOOP. *Add any further fields from structure WA_ANEPI 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_ANEPI 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_ANEPI INTO WA_ANEPI. *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 ANLN1 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_ANEPI-ANLN1 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_ANEPI-ANLN1.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field ANLN2 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_ANEPI-ANLN2 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_ANEPI-ANLN2.
WRITE:/ 'New Value:', ld_input.
*Conversion exit GJAHR, internal->external for field GJAHR CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT' EXPORTING input = WA_ANEPI-GJAHR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_ANEPI-GJAHR.
WRITE:/ 'New Value:', ld_input.
*Conversion exit GJAHR, internal->external for field ZUJHR CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT' EXPORTING input = WA_ANEPI-ZUJHR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_ANEPI-ZUJHR.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field BELNR CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_ANEPI-BELNR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_ANEPI-BELNR.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC132, internal->external for field ANBTR CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT' EXPORTING input = WA_ANEPI-ANBTR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_ANEPI-ANBTR.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC132, internal->external for field NAFAB CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT' EXPORTING input = WA_ANEPI-NAFAB IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_ANEPI-NAFAB.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC132, internal->external for field SAFAB CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT' EXPORTING input = WA_ANEPI-SAFAB IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_ANEPI-SAFAB.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC132, internal->external for field ZINSB CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT' EXPORTING input = WA_ANEPI-ZINSB IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_ANEPI-ZINSB.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC132, internal->external for field NAFAV CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT' EXPORTING input = WA_ANEPI-NAFAV IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_ANEPI-NAFAV.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC132, internal->external for field SAFAV CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT' EXPORTING input = WA_ANEPI-SAFAV IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_ANEPI-SAFAV.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC132, internal->external for field AAFAV CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT' EXPORTING input = WA_ANEPI-AAFAV IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_ANEPI-AAFAV.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC132, internal->external for field MAFAV CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT' EXPORTING input = WA_ANEPI-MAFAV IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_ANEPI-MAFAV.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC132, internal->external for field AUFNV CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT' EXPORTING input = WA_ANEPI-AUFNV IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_ANEPI-AUFNV.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC132, internal->external for field AUFWV CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT' EXPORTING input = WA_ANEPI-AUFWV IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_ANEPI-AUFWV.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC132, internal->external for field INVZV CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT' EXPORTING input = WA_ANEPI-INVZV IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_ANEPI-INVZV.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC132, internal->external for field AUFWL CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT' EXPORTING input = WA_ANEPI-AUFWL IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_ANEPI-AUFWL.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC132, internal->external for field INVZL CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT' EXPORTING input = WA_ANEPI-INVZL IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_ANEPI-INVZL.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC132, internal->external for field NAFAL CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT' EXPORTING input = WA_ANEPI-NAFAL IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_ANEPI-NAFAL.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC132, internal->external for field SAFAL CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT' EXPORTING input = WA_ANEPI-SAFAL IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_ANEPI-SAFAL.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC132, internal->external for field AAFAL CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT' EXPORTING input = WA_ANEPI-AAFAL IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_ANEPI-AAFAL.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC132, internal->external for field MAFAL CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT' EXPORTING input = WA_ANEPI-MAFAL IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_ANEPI-MAFAL.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC132, internal->external for field AUFNL CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT' EXPORTING input = WA_ANEPI-AUFNL IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_ANEPI-AUFNL.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC132, internal->external for field ERLBT CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT' EXPORTING input = WA_ANEPI-ERLBT IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_ANEPI-ERLBT.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC132, internal->external for field VERKO CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT' EXPORTING input = WA_ANEPI-VERKO IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_ANEPI-VERKO.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC132, internal->external for field SANWV CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT' EXPORTING input = WA_ANEPI-SANWV IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_ANEPI-SANWV.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC132, internal->external for field MINERL CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT' EXPORTING input = WA_ANEPI-MINERL IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_ANEPI-MINERL.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC132, internal->external for field MEHERL CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT' EXPORTING input = WA_ANEPI-MEHERL IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_ANEPI-MEHERL.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field GAFABER CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_ANEPI-GAFABER IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_ANEPI-GAFABER.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field TMETH CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_ANEPI-TMETH IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_ANEPI-TMETH.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC132, internal->external for field RBWRT CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT' EXPORTING input = WA_ANEPI-RBWRT IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_ANEPI-RBWRT.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC132, internal->external for field RZBTR CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT' EXPORTING input = WA_ANEPI-RZBTR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_ANEPI-RZBTR.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC132, internal->external for field ACQ_DIFF CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT' EXPORTING input = WA_ANEPI-ACQ_DIFF IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_ANEPI-ACQ_DIFF.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC132, internal->external for field BBTRV CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT' EXPORTING input = WA_ANEPI-BBTRV IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_ANEPI-BBTRV.
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_ANEPI_STR,
LFDNR TYPE STRING,
MANDT TYPE STRING,
BUKRS TYPE STRING,
ANLN1 TYPE STRING,
ANLN2 TYPE STRING,
GJAHR TYPE STRING,
LNRAN TYPE STRING,
AFABE TYPE STRING,
ZUJHR TYPE STRING,
ZUCOD TYPE STRING,
PERAF TYPE STRING,
BELNR TYPE STRING,
BUZEI TYPE STRING,
BZDAT TYPE STRING,
BWASL TYPE STRING,
XAFAR TYPE STRING,
ANBTR TYPE STRING,
NAFAB TYPE STRING,
SAFAB TYPE STRING,
ZINSB TYPE STRING,
XANTW TYPE STRING,
XAWBT TYPE STRING,
LNSAN TYPE STRING,
AUGLN TYPE STRING,
NAFAV TYPE STRING,
SAFAV TYPE STRING,
AAFAV TYPE STRING,
MAFAV TYPE STRING,
AUFNV TYPE STRING,
AUFWV TYPE STRING,
INVZV TYPE STRING,
AUFWL TYPE STRING,
INVZL TYPE STRING,
NAFAL TYPE STRING,
SAFAL TYPE STRING,
AAFAL TYPE STRING,
MAFAL TYPE STRING,
AUFNL TYPE STRING,
ERLBT TYPE STRING,
VERKO TYPE STRING,
SANWV TYPE STRING,
MINERL TYPE STRING,
MEHERL TYPE STRING,
GAFABER TYPE STRING,
TMETH TYPE STRING,
RBWRT TYPE STRING,
RZBTR TYPE STRING,
ACQ_DIFF TYPE STRING,
XAKZU TYPE STRING,
XIFREL TYPE STRING,
XERBW TYPE STRING,
BBTRV TYPE STRING,
PROZ_ERLBT TYPE STRING,
PROZ_VERKO TYPE STRING,
PROZ_ABGWE TYPE STRING,
WAERS TYPE STRING,
CURTP TYPE STRING,
AFABG TYPE STRING,
SAFBG TYPE STRING,
AFASL TYPE STRING,
NDJAR TYPE STRING,
NDPER TYPE STRING,
NDABJ TYPE STRING,
NDABP TYPE STRING,
ANDSJ TYPE STRING,
ANDSP TYPE STRING,
INVSL TYPE STRING,END OF T_EKKO_STR. DATA: WA_ANEPI_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_ANEPI_STR-LFDNR sy-vline
WA_ANEPI_STR-MANDT sy-vline
WA_ANEPI_STR-BUKRS sy-vline
WA_ANEPI_STR-ANLN1 sy-vline
WA_ANEPI_STR-ANLN2 sy-vline
WA_ANEPI_STR-GJAHR sy-vline
WA_ANEPI_STR-LNRAN sy-vline
WA_ANEPI_STR-AFABE sy-vline
WA_ANEPI_STR-ZUJHR sy-vline
WA_ANEPI_STR-ZUCOD sy-vline
WA_ANEPI_STR-PERAF sy-vline
WA_ANEPI_STR-BELNR sy-vline
WA_ANEPI_STR-BUZEI sy-vline
WA_ANEPI_STR-BZDAT sy-vline
WA_ANEPI_STR-BWASL sy-vline
WA_ANEPI_STR-XAFAR sy-vline
WA_ANEPI_STR-ANBTR sy-vline
WA_ANEPI_STR-NAFAB sy-vline
WA_ANEPI_STR-SAFAB sy-vline
WA_ANEPI_STR-ZINSB sy-vline
WA_ANEPI_STR-XANTW sy-vline
WA_ANEPI_STR-XAWBT sy-vline
WA_ANEPI_STR-LNSAN sy-vline
WA_ANEPI_STR-AUGLN sy-vline
WA_ANEPI_STR-NAFAV sy-vline
WA_ANEPI_STR-SAFAV sy-vline
WA_ANEPI_STR-AAFAV sy-vline
WA_ANEPI_STR-MAFAV sy-vline
WA_ANEPI_STR-AUFNV sy-vline
WA_ANEPI_STR-AUFWV sy-vline
WA_ANEPI_STR-INVZV sy-vline
WA_ANEPI_STR-AUFWL sy-vline
WA_ANEPI_STR-INVZL sy-vline
WA_ANEPI_STR-NAFAL sy-vline
WA_ANEPI_STR-SAFAL sy-vline
WA_ANEPI_STR-AAFAL sy-vline
WA_ANEPI_STR-MAFAL sy-vline
WA_ANEPI_STR-AUFNL sy-vline
WA_ANEPI_STR-ERLBT sy-vline
WA_ANEPI_STR-VERKO sy-vline
WA_ANEPI_STR-SANWV sy-vline
WA_ANEPI_STR-MINERL sy-vline
WA_ANEPI_STR-MEHERL sy-vline
WA_ANEPI_STR-GAFABER sy-vline
WA_ANEPI_STR-TMETH sy-vline
WA_ANEPI_STR-RBWRT sy-vline
WA_ANEPI_STR-RZBTR sy-vline
WA_ANEPI_STR-ACQ_DIFF sy-vline
WA_ANEPI_STR-XAKZU sy-vline
WA_ANEPI_STR-XIFREL sy-vline
WA_ANEPI_STR-XERBW sy-vline
WA_ANEPI_STR-BBTRV sy-vline
WA_ANEPI_STR-PROZ_ERLBT sy-vline
WA_ANEPI_STR-PROZ_VERKO sy-vline
WA_ANEPI_STR-PROZ_ABGWE sy-vline
WA_ANEPI_STR-WAERS sy-vline
WA_ANEPI_STR-CURTP sy-vline
WA_ANEPI_STR-AFABG sy-vline
WA_ANEPI_STR-SAFBG sy-vline
WA_ANEPI_STR-AFASL sy-vline
WA_ANEPI_STR-NDJAR sy-vline
WA_ANEPI_STR-NDPER sy-vline
WA_ANEPI_STR-NDABJ sy-vline
WA_ANEPI_STR-NDABP sy-vline
WA_ANEPI_STR-ANDSJ sy-vline
WA_ANEPI_STR-ANDSP sy-vline
WA_ANEPI_STR-INVSL sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.
