ABAP Select data from SAP table T7UA1656 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 T7UA1656 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 T7UA1656. 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 T7UA1656 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_T7UA1656 TYPE STANDARD TABLE OF T7UA1656,
      WA_T7UA1656 TYPE T7UA1656,
      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: <T7UA1656> TYPE T7UA1656.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM T7UA1656
*  INTO TABLE @DATA(IT_T7UA16562).
*--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_T7UA1656 INDEX 1 INTO DATA(WA_T7UA16562).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<T7UA1656>-MANDT = 1.
<T7UA1656>-GPVAL = 1.
<T7UA1656>-BEGDA = 1.
<T7UA1656>-ENDDA = 1.
<T7UA1656>-LNAME = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_T7UA1656-KINDEX, sy-vline,
  WA_T7UA1656-REGION, sy-vline,
  WA_T7UA1656-CITY, sy-vline,
  WA_T7UA1656-STREET, sy-vline,
  WA_T7UA1656-HOUSE, sy-vline,
  WA_T7UA1656-BLDNG, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_T7UA1656 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_T7UA1656 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_T7UA1656 INTO WA_T7UA1656.


*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.
ENDFORM. 

*&---------------------------------------------------------------------*
*& Form process_as_string_field_values
*&---------------------------------------------------------------------*
FORM process_as_string_field_values CHANGING p_EKKO LIKE wa_EKKO.

TYPES: BEGIN OF T_T7UA1656_STR, 
MANDT TYPE STRING,
GPVAL TYPE STRING,
BEGDA TYPE STRING,
ENDDA TYPE STRING,
LNAME TYPE STRING,
KINDEX TYPE STRING,
REGION TYPE STRING,
CITY TYPE STRING,
STREET TYPE STRING,
HOUSE TYPE STRING,
BLDNG TYPE STRING,
DPAU_N TYPE STRING,
DPAU_EDRPOU TYPE STRING,
CAREA TYPE STRING,
CADREG TYPE STRING,
CSORG TYPE STRING,
CONT01_TAX TYPE STRING,
PERN01_TAX TYPE STRING,
CONT02_TAX TYPE STRING,
PERN02_TAX TYPE STRING,
CONT03_TAX TYPE STRING,
PERN03_TAX TYPE STRING,
PFU_N TYPE STRING,
PFU_NUM TYPE STRING,
PFU_NUM_SO TYPE STRING,
PFU_REG_NUM TYPE STRING,
CONT01_PFU TYPE STRING,
PERN01_PFU TYPE STRING,
CONT02_PFU TYPE STRING,
PERN02_PFU TYPE STRING,
CONT03_PFU TYPE STRING,
PERN03_PFU TYPE STRING,
FSSU_N TYPE STRING,
FSSU_NUM TYPE STRING,
FSSU_DIR TYPE STRING,
FSSU_NUM_SO TYPE STRING,
CONT01_SIN TYPE STRING,
PERN01_SIN TYPE STRING,
CONT02_SIN TYPE STRING,
PERN02_SIN TYPE STRING,
CONT03_SIN TYPE STRING,
PERN03_SIN TYPE STRING,
DKSU_N TYPE STRING,
DKSUCODE TYPE STRING,
SUBD_N TYPE STRING,
CONT01_CST TYPE STRING,
PERN01_CST TYPE STRING,
CONT02_CST TYPE STRING,
PERN02_CST TYPE STRING,
CONT03_CST TYPE STRING,
PERN03_CST TYPE STRING,
KINDEXF TYPE STRING,
REGIONF TYPE STRING,
CITYF TYPE STRING,
STREETF TYPE STRING,
HOUSEF TYPE STRING,
BLDNGF TYPE STRING,
TELNRF TYPE STRING,
FAXNRF TYPE STRING,
EMAILF TYPE STRING,END OF T_EKKO_STR.
DATA: WA_T7UA1656_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_T7UA1656_STR-MANDT sy-vline 
WA_T7UA1656_STR-GPVAL sy-vline 
WA_T7UA1656_STR-BEGDA sy-vline 
WA_T7UA1656_STR-ENDDA sy-vline 
WA_T7UA1656_STR-LNAME sy-vline 
WA_T7UA1656_STR-KINDEX sy-vline 
WA_T7UA1656_STR-REGION sy-vline 
WA_T7UA1656_STR-CITY sy-vline 
WA_T7UA1656_STR-STREET sy-vline 
WA_T7UA1656_STR-HOUSE sy-vline 
WA_T7UA1656_STR-BLDNG sy-vline 
WA_T7UA1656_STR-DPAU_N sy-vline 
WA_T7UA1656_STR-DPAU_EDRPOU sy-vline 
WA_T7UA1656_STR-CAREA sy-vline 
WA_T7UA1656_STR-CADREG sy-vline 
WA_T7UA1656_STR-CSORG sy-vline 
WA_T7UA1656_STR-CONT01_TAX sy-vline 
WA_T7UA1656_STR-PERN01_TAX sy-vline 
WA_T7UA1656_STR-CONT02_TAX sy-vline 
WA_T7UA1656_STR-PERN02_TAX sy-vline 
WA_T7UA1656_STR-CONT03_TAX sy-vline 
WA_T7UA1656_STR-PERN03_TAX sy-vline 
WA_T7UA1656_STR-PFU_N sy-vline 
WA_T7UA1656_STR-PFU_NUM sy-vline 
WA_T7UA1656_STR-PFU_NUM_SO sy-vline 
WA_T7UA1656_STR-PFU_REG_NUM sy-vline 
WA_T7UA1656_STR-CONT01_PFU sy-vline 
WA_T7UA1656_STR-PERN01_PFU sy-vline 
WA_T7UA1656_STR-CONT02_PFU sy-vline 
WA_T7UA1656_STR-PERN02_PFU sy-vline 
WA_T7UA1656_STR-CONT03_PFU sy-vline 
WA_T7UA1656_STR-PERN03_PFU sy-vline 
WA_T7UA1656_STR-FSSU_N sy-vline 
WA_T7UA1656_STR-FSSU_NUM sy-vline 
WA_T7UA1656_STR-FSSU_DIR sy-vline 
WA_T7UA1656_STR-FSSU_NUM_SO sy-vline 
WA_T7UA1656_STR-CONT01_SIN sy-vline 
WA_T7UA1656_STR-PERN01_SIN sy-vline 
WA_T7UA1656_STR-CONT02_SIN sy-vline 
WA_T7UA1656_STR-PERN02_SIN sy-vline 
WA_T7UA1656_STR-CONT03_SIN sy-vline 
WA_T7UA1656_STR-PERN03_SIN sy-vline 
WA_T7UA1656_STR-DKSU_N sy-vline 
WA_T7UA1656_STR-DKSUCODE sy-vline 
WA_T7UA1656_STR-SUBD_N sy-vline 
WA_T7UA1656_STR-CONT01_CST sy-vline 
WA_T7UA1656_STR-PERN01_CST sy-vline 
WA_T7UA1656_STR-CONT02_CST sy-vline 
WA_T7UA1656_STR-PERN02_CST sy-vline 
WA_T7UA1656_STR-CONT03_CST sy-vline 
WA_T7UA1656_STR-PERN03_CST sy-vline 
WA_T7UA1656_STR-KINDEXF sy-vline 
WA_T7UA1656_STR-REGIONF sy-vline 
WA_T7UA1656_STR-CITYF sy-vline 
WA_T7UA1656_STR-STREETF sy-vline 
WA_T7UA1656_STR-HOUSEF sy-vline 
WA_T7UA1656_STR-BLDNGF sy-vline 
WA_T7UA1656_STR-TELNRF sy-vline 
WA_T7UA1656_STR-FAXNRF sy-vline 
WA_T7UA1656_STR-EMAILF sy-vline      INTO ld_text SEPARATED BY SPACE.

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