ABAP Select data from SAP table ACPVAL 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 ACPVAL 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 ACPVAL. 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 ACPVAL 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_ACPVAL TYPE STANDARD TABLE OF ACPVAL,
      WA_ACPVAL TYPE ACPVAL,
      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: <ACPVAL> TYPE ACPVAL.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM ACPVAL
*  INTO TABLE @DATA(IT_ACPVAL2).
*--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_ACPVAL INDEX 1 INTO DATA(WA_ACPVAL2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<ACPVAL>-VALIDX = 1.
<ACPVAL>-LST001 = 1.
<ACPVAL>-LST002 = 1.
<ACPVAL>-LST003 = 1.
<ACPVAL>-LST004 = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_ACPVAL-LST005, sy-vline,
  WA_ACPVAL-LST006, sy-vline,
  WA_ACPVAL-LST007, sy-vline,
  WA_ACPVAL-LST008, sy-vline,
  WA_ACPVAL-LST009, sy-vline,
  WA_ACPVAL-LST010, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_ACPVAL 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_ACPVAL 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_ACPVAL INTO WA_ACPVAL.


*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 AC112, internal->external for field TKF001
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_ACPVAL-TKF001
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ACPVAL-TKF001.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TKF002
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_ACPVAL-TKF002
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ACPVAL-TKF002.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TKF003
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_ACPVAL-TKF003
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ACPVAL-TKF003.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TKF004
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_ACPVAL-TKF004
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ACPVAL-TKF004.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TKF005
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_ACPVAL-TKF005
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ACPVAL-TKF005.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TKF006
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_ACPVAL-TKF006
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ACPVAL-TKF006.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TKF007
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_ACPVAL-TKF007
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ACPVAL-TKF007.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TKF008
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_ACPVAL-TKF008
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ACPVAL-TKF008.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TKF009
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_ACPVAL-TKF009
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ACPVAL-TKF009.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TKF010
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_ACPVAL-TKF010
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ACPVAL-TKF010.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TKF011
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_ACPVAL-TKF011
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ACPVAL-TKF011.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TKF012
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_ACPVAL-TKF012
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ACPVAL-TKF012.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TKF013
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_ACPVAL-TKF013
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ACPVAL-TKF013.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TKF014
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_ACPVAL-TKF014
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ACPVAL-TKF014.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TKF015
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_ACPVAL-TKF015
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ACPVAL-TKF015.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TKF016
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_ACPVAL-TKF016
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ACPVAL-TKF016.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TKV001
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_ACPVAL-TKV001
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ACPVAL-TKV001.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TKV002
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_ACPVAL-TKV002
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ACPVAL-TKV002.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TKV003
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_ACPVAL-TKV003
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ACPVAL-TKV003.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TKV004
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_ACPVAL-TKV004
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ACPVAL-TKV004.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TKV005
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_ACPVAL-TKV005
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ACPVAL-TKV005.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TKV006
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_ACPVAL-TKV006
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ACPVAL-TKV006.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TKV007
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_ACPVAL-TKV007
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ACPVAL-TKV007.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TKV008
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_ACPVAL-TKV008
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ACPVAL-TKV008.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TKV009
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_ACPVAL-TKV009
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ACPVAL-TKV009.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TKV010
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_ACPVAL-TKV010
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ACPVAL-TKV010.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TKV011
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_ACPVAL-TKV011
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ACPVAL-TKV011.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TKV012
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_ACPVAL-TKV012
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ACPVAL-TKV012.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TKV013
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_ACPVAL-TKV013
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ACPVAL-TKV013.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TKV014
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_ACPVAL-TKV014
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ACPVAL-TKV014.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TKV015
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_ACPVAL-TKV015
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ACPVAL-TKV015.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TKV016
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_ACPVAL-TKV016
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ACPVAL-TKV016.
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_ACPVAL_STR, 
VALIDX TYPE STRING,
LST001 TYPE STRING,
LST002 TYPE STRING,
LST003 TYPE STRING,
LST004 TYPE STRING,
LST005 TYPE STRING,
LST006 TYPE STRING,
LST007 TYPE STRING,
LST008 TYPE STRING,
LST009 TYPE STRING,
LST010 TYPE STRING,
LST011 TYPE STRING,
LST012 TYPE STRING,
LST013 TYPE STRING,
LST014 TYPE STRING,
LST015 TYPE STRING,
LST016 TYPE STRING,
KAP001 TYPE STRING,
KAP002 TYPE STRING,
KAP003 TYPE STRING,
KAP004 TYPE STRING,
KAP005 TYPE STRING,
KAP006 TYPE STRING,
KAP007 TYPE STRING,
KAP008 TYPE STRING,
KAP009 TYPE STRING,
KAP010 TYPE STRING,
KAP011 TYPE STRING,
KAP012 TYPE STRING,
KAP013 TYPE STRING,
KAP014 TYPE STRING,
KAP015 TYPE STRING,
KAP016 TYPE STRING,
TKF001 TYPE STRING,
TKF002 TYPE STRING,
TKF003 TYPE STRING,
TKF004 TYPE STRING,
TKF005 TYPE STRING,
TKF006 TYPE STRING,
TKF007 TYPE STRING,
TKF008 TYPE STRING,
TKF009 TYPE STRING,
TKF010 TYPE STRING,
TKF011 TYPE STRING,
TKF012 TYPE STRING,
TKF013 TYPE STRING,
TKF014 TYPE STRING,
TKF015 TYPE STRING,
TKF016 TYPE STRING,
TKV001 TYPE STRING,
TKV002 TYPE STRING,
TKV003 TYPE STRING,
TKV004 TYPE STRING,
TKV005 TYPE STRING,
TKV006 TYPE STRING,
TKV007 TYPE STRING,
TKV008 TYPE STRING,
TKV009 TYPE STRING,
TKV010 TYPE STRING,
TKV011 TYPE STRING,
TKV012 TYPE STRING,
TKV013 TYPE STRING,
TKV014 TYPE STRING,
TKV015 TYPE STRING,
TKV016 TYPE STRING,
AEQ001 TYPE STRING,
AEQ002 TYPE STRING,
AEQ003 TYPE STRING,
AEQ004 TYPE STRING,
AEQ005 TYPE STRING,
AEQ006 TYPE STRING,
AEQ007 TYPE STRING,
AEQ008 TYPE STRING,
AEQ009 TYPE STRING,
AEQ010 TYPE STRING,
AEQ011 TYPE STRING,
AEQ012 TYPE STRING,
AEQ013 TYPE STRING,
AEQ014 TYPE STRING,
AEQ015 TYPE STRING,
AEQ016 TYPE STRING,END OF T_EKKO_STR.
DATA: WA_ACPVAL_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_ACPVAL_STR-VALIDX sy-vline 
WA_ACPVAL_STR-LST001 sy-vline 
WA_ACPVAL_STR-LST002 sy-vline 
WA_ACPVAL_STR-LST003 sy-vline 
WA_ACPVAL_STR-LST004 sy-vline 
WA_ACPVAL_STR-LST005 sy-vline 
WA_ACPVAL_STR-LST006 sy-vline 
WA_ACPVAL_STR-LST007 sy-vline 
WA_ACPVAL_STR-LST008 sy-vline 
WA_ACPVAL_STR-LST009 sy-vline 
WA_ACPVAL_STR-LST010 sy-vline 
WA_ACPVAL_STR-LST011 sy-vline 
WA_ACPVAL_STR-LST012 sy-vline 
WA_ACPVAL_STR-LST013 sy-vline 
WA_ACPVAL_STR-LST014 sy-vline 
WA_ACPVAL_STR-LST015 sy-vline 
WA_ACPVAL_STR-LST016 sy-vline 
WA_ACPVAL_STR-KAP001 sy-vline 
WA_ACPVAL_STR-KAP002 sy-vline 
WA_ACPVAL_STR-KAP003 sy-vline 
WA_ACPVAL_STR-KAP004 sy-vline 
WA_ACPVAL_STR-KAP005 sy-vline 
WA_ACPVAL_STR-KAP006 sy-vline 
WA_ACPVAL_STR-KAP007 sy-vline 
WA_ACPVAL_STR-KAP008 sy-vline 
WA_ACPVAL_STR-KAP009 sy-vline 
WA_ACPVAL_STR-KAP010 sy-vline 
WA_ACPVAL_STR-KAP011 sy-vline 
WA_ACPVAL_STR-KAP012 sy-vline 
WA_ACPVAL_STR-KAP013 sy-vline 
WA_ACPVAL_STR-KAP014 sy-vline 
WA_ACPVAL_STR-KAP015 sy-vline 
WA_ACPVAL_STR-KAP016 sy-vline 
WA_ACPVAL_STR-TKF001 sy-vline 
WA_ACPVAL_STR-TKF002 sy-vline 
WA_ACPVAL_STR-TKF003 sy-vline 
WA_ACPVAL_STR-TKF004 sy-vline 
WA_ACPVAL_STR-TKF005 sy-vline 
WA_ACPVAL_STR-TKF006 sy-vline 
WA_ACPVAL_STR-TKF007 sy-vline 
WA_ACPVAL_STR-TKF008 sy-vline 
WA_ACPVAL_STR-TKF009 sy-vline 
WA_ACPVAL_STR-TKF010 sy-vline 
WA_ACPVAL_STR-TKF011 sy-vline 
WA_ACPVAL_STR-TKF012 sy-vline 
WA_ACPVAL_STR-TKF013 sy-vline 
WA_ACPVAL_STR-TKF014 sy-vline 
WA_ACPVAL_STR-TKF015 sy-vline 
WA_ACPVAL_STR-TKF016 sy-vline 
WA_ACPVAL_STR-TKV001 sy-vline 
WA_ACPVAL_STR-TKV002 sy-vline 
WA_ACPVAL_STR-TKV003 sy-vline 
WA_ACPVAL_STR-TKV004 sy-vline 
WA_ACPVAL_STR-TKV005 sy-vline 
WA_ACPVAL_STR-TKV006 sy-vline 
WA_ACPVAL_STR-TKV007 sy-vline 
WA_ACPVAL_STR-TKV008 sy-vline 
WA_ACPVAL_STR-TKV009 sy-vline 
WA_ACPVAL_STR-TKV010 sy-vline 
WA_ACPVAL_STR-TKV011 sy-vline 
WA_ACPVAL_STR-TKV012 sy-vline 
WA_ACPVAL_STR-TKV013 sy-vline 
WA_ACPVAL_STR-TKV014 sy-vline 
WA_ACPVAL_STR-TKV015 sy-vline 
WA_ACPVAL_STR-TKV016 sy-vline 
WA_ACPVAL_STR-AEQ001 sy-vline 
WA_ACPVAL_STR-AEQ002 sy-vline 
WA_ACPVAL_STR-AEQ003 sy-vline 
WA_ACPVAL_STR-AEQ004 sy-vline 
WA_ACPVAL_STR-AEQ005 sy-vline 
WA_ACPVAL_STR-AEQ006 sy-vline 
WA_ACPVAL_STR-AEQ007 sy-vline 
WA_ACPVAL_STR-AEQ008 sy-vline 
WA_ACPVAL_STR-AEQ009 sy-vline 
WA_ACPVAL_STR-AEQ010 sy-vline 
WA_ACPVAL_STR-AEQ011 sy-vline 
WA_ACPVAL_STR-AEQ012 sy-vline 
WA_ACPVAL_STR-AEQ013 sy-vline 
WA_ACPVAL_STR-AEQ014 sy-vline 
WA_ACPVAL_STR-AEQ015 sy-vline 
WA_ACPVAL_STR-AEQ016 sy-vline      INTO ld_text SEPARATED BY SPACE.

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