ABAP Select data from SAP table RJG_ADDRCHECK_ALV_STREETS 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 RJG_ADDRCHECK_ALV_STREETS 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 RJG_ADDRCHECK_ALV_STREETS. 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 RJG_ADDRCHECK_ALV_STREETS 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_RJG_ADDRCHECK_ALV_STREETS TYPE STANDARD TABLE OF RJG_ADDRCHECK_ALV_STREETS,
      WA_RJG_ADDRCHECK_ALV_STREETS TYPE RJG_ADDRCHECK_ALV_STREETS,
      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: <RJG_ADDRCHECK_ALV_STREETS> TYPE RJG_ADDRCHECK_ALV_STREETS.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM RJG_ADDRCHECK_ALV_STREETS
*  INTO TABLE @DATA(IT_RJG_ADDRCHECK_ALV_STREETS2).
*--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_RJG_ADDRCHECK_ALV_STREETS INDEX 1 INTO DATA(WA_RJG_ADDRCHECK_ALV_STREETS2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<RJG_ADDRCHECK_ALV_STREETS>-LAND1 = 1.
<RJG_ADDRCHECK_ALV_STREETS>-ALORT = 1.
<RJG_ADDRCHECK_ALV_STREETS>-STRASSENNR = 1.
<RJG_ADDRCHECK_ALV_STREETS>-STRNRPTT = 1.
<RJG_ADDRCHECK_ALV_STREETS>-SUCHFELDS = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_RJG_ADDRCHECK_ALV_STREETS-STR_NAME_K, sy-vline,
  WA_RJG_ADDRCHECK_ALV_STREETS-STR_NAME_L, sy-vline,
  WA_RJG_ADDRCHECK_ALV_STREETS-STR_NAME_G, sy-vline,
  WA_RJG_ADDRCHECK_ALV_STREETS-STR_NAME_S, sy-vline,
  WA_RJG_ADDRCHECK_ALV_STREETS-OTL_KEY, sy-vline,
  WA_RJG_ADDRCHECK_ALV_STREETS-KREISG_SCH, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_RJG_ADDRCHECK_ALV_STREETS 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_RJG_ADDRCHECK_ALV_STREETS 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_RJG_ADDRCHECK_ALV_STREETS INTO WA_RJG_ADDRCHECK_ALV_STREETS.


*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 ALORT
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_RJG_ADDRCHECK_ALV_STREETS-ALORT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RJG_ADDRCHECK_ALV_STREETS-ALORT.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit JYTNF, internal->external for field STR_NAME_G
CALL FUNCTION 'CONVERSION_EXIT_JYTNF_OUTPUT'
  EXPORTING
    input =                      WA_RJG_ADDRCHECK_ALV_STREETS-STR_NAME_G
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RJG_ADDRCHECK_ALV_STREETS-STR_NAME_G.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

*Conversion exit ALPHA, internal->external for field ADDRSECNUMHIGH
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_RJG_ADDRCHECK_ALV_STREETS-ADDRSECNUMHIGH
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RJG_ADDRCHECK_ALV_STREETS-ADDRSECNUMHIGH.
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_RJG_ADDRCHECK_ALV_STREETS_STR, 
LAND1 TYPE STRING,
ALORT TYPE STRING,
STRASSENNR TYPE STRING,
STRNRPTT TYPE STRING,
SUCHFELDS TYPE STRING,
STR_NAME_K TYPE STRING,
STR_NAME_L TYPE STRING,
STR_NAME_G TYPE STRING,
STR_NAME_S TYPE STRING,
OTL_KEY TYPE STRING,
KREISG_SCH TYPE STRING,
HNRKENN TYPE STRING,
HNR1VON TYPE STRING,
HNR2VON TYPE STRING,
HNR1BIS TYPE STRING,
HNR2BIS TYPE STRING,
PLZ_ZSTR TYPE STRING,
STR_NRPOST TYPE STRING,
STRHNR1000 TYPE STRING,
STR_CODE TYPE STRING,
X_FEHLER TYPE STRING,
ERFUSER TYPE STRING,
ERFDATE TYPE STRING,
ERFTIME TYPE STRING,
AENUSER TYPE STRING,
AENDATE TYPE STRING,
AENTIME TYPE STRING,
VERSION_J TYPE STRING,
VERSION_M TYPE STRING,
VERSION_T TYPE STRING,
VERSION_NR TYPE STRING,
GUELTIGAB TYPE STRING,
GUELTIGBIS TYPE STRING,
LOESCH_VM TYPE STRING,
PREDIRECTIONAL TYPE STRING,
SUFFIXABBREV TYPE STRING,
POSTDIRECTIONAL TYPE STRING,
RECORDTYPECODE TYPE STRING,
CARRIERROUTEID TYPE STRING,
BUILDINGFIRMNAME TYPE STRING,
ADDRSECABBREV TYPE STRING,
ADDRSECNUMLOW TYPE STRING,
ADDRSECNUMHIGH TYPE STRING,
ADDRSECODDEVEN TYPE STRING,
ZIPADDONLOW TYPE STRING,
ZIPADDONHIGH TYPE STRING,
LACSSTATUSIND TYPE STRING,
GOVTBLDGIND TYPE STRING,
FINANCENO TYPE STRING,
STATEABBREV TYPE STRING,
COUNTYNO TYPE STRING,
CONGRDISTRICTNO TYPE STRING,
PREFCITYSTATEKEY TYPE STRING,
STREETNAME_NEN TYPE STRING,
STREETNAME_PTT TYPE STRING,
SERIESINDICATOR TYPE STRING,
STRART TYPE STRING,
PRAEPCODE TYPE STRING,
SPRCODE TYPE STRING,
GRUNDPLZ TYPE STRING,
ERWPLZ TYPE STRING,
STRSTAMM TYPE STRING,
OTL_NAME TYPE STRING,
ALIASNAME TYPE STRING,END OF T_EKKO_STR.
DATA: WA_RJG_ADDRCHECK_ALV_STREETS_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_RJG_ADDRCHECK_ALV_STREETS_STR-LAND1 sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-ALORT sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-STRASSENNR sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-STRNRPTT sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-SUCHFELDS sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-STR_NAME_K sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-STR_NAME_L sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-STR_NAME_G sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-STR_NAME_S sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-OTL_KEY sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-KREISG_SCH sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-HNRKENN sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-HNR1VON sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-HNR2VON sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-HNR1BIS sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-HNR2BIS sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-PLZ_ZSTR sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-STR_NRPOST sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-STRHNR1000 sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-STR_CODE sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-X_FEHLER sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-ERFUSER sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-ERFDATE sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-ERFTIME sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-AENUSER sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-AENDATE sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-AENTIME sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-VERSION_J sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-VERSION_M sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-VERSION_T sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-VERSION_NR sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-GUELTIGAB sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-GUELTIGBIS sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-LOESCH_VM sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-PREDIRECTIONAL sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-SUFFIXABBREV sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-POSTDIRECTIONAL sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-RECORDTYPECODE sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-CARRIERROUTEID sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-BUILDINGFIRMNAME sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-ADDRSECABBREV sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-ADDRSECNUMLOW sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-ADDRSECNUMHIGH sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-ADDRSECODDEVEN sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-ZIPADDONLOW sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-ZIPADDONHIGH sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-LACSSTATUSIND sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-GOVTBLDGIND sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-FINANCENO sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-STATEABBREV sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-COUNTYNO sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-CONGRDISTRICTNO sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-PREFCITYSTATEKEY sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-STREETNAME_NEN sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-STREETNAME_PTT sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-SERIESINDICATOR sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-STRART sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-PRAEPCODE sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-SPRCODE sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-GRUNDPLZ sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-ERWPLZ sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-STRSTAMM sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-OTL_NAME sy-vline 
WA_RJG_ADDRCHECK_ALV_STREETS_STR-ALIASNAME sy-vline      INTO ld_text SEPARATED BY SPACE.

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