ABAP Select data from SAP table MIG_BUS_EI_BUPA_ADDRESS_DATA 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 MIG_BUS_EI_BUPA_ADDRESS_DATA 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 MIG_BUS_EI_BUPA_ADDRESS_DATA. 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 MIG_BUS_EI_BUPA_ADDRESS_DATA 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_MIG_BUS_EI_BUPA_ADDRESS_DATA TYPE STANDARD TABLE OF MIG_BUS_EI_BUPA_ADDRESS_DATA,
      WA_MIG_BUS_EI_BUPA_ADDRESS_DATA TYPE MIG_BUS_EI_BUPA_ADDRESS_DATA,
      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: <MIG_BUS_EI_BUPA_ADDRESS_DATA> TYPE MIG_BUS_EI_BUPA_ADDRESS_DATA.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM MIG_BUS_EI_BUPA_ADDRESS_DATA
*  INTO TABLE @DATA(IT_MIG_BUS_EI_BUPA_ADDRESS_DATA2).
*--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_MIG_BUS_EI_BUPA_ADDRESS_DATA INDEX 1 INTO DATA(WA_MIG_BUS_EI_BUPA_ADDRESS_DATA2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<MIG_BUS_EI_BUPA_ADDRESS_DATA>-STANDARDADDRESSPTL = 1.
<MIG_BUS_EI_BUPA_ADDRESS_DATA>-C_O_NAMEPTL = 1.
<MIG_BUS_EI_BUPA_ADDRESS_DATA>-CITYPTL = 1.
<MIG_BUS_EI_BUPA_ADDRESS_DATA>-DISTRICTPTL = 1.
<MIG_BUS_EI_BUPA_ADDRESS_DATA>-REGIOGROUPPTL = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_MIG_BUS_EI_BUPA_ADDRESS_DATA-POSTL_COD1PTL, sy-vline,
  WA_MIG_BUS_EI_BUPA_ADDRESS_DATA-POSTL_COD2PTL, sy-vline,
  WA_MIG_BUS_EI_BUPA_ADDRESS_DATA-POSTL_COD3PTL, sy-vline,
  WA_MIG_BUS_EI_BUPA_ADDRESS_DATA-PCODE1_EXTPTL, sy-vline,
  WA_MIG_BUS_EI_BUPA_ADDRESS_DATA-PCODE2_EXTPTL, sy-vline,
  WA_MIG_BUS_EI_BUPA_ADDRESS_DATA-PCODE3_EXTPTL, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_MIG_BUS_EI_BUPA_ADDRESS_DATA 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_MIG_BUS_EI_BUPA_ADDRESS_DATA 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_MIG_BUS_EI_BUPA_ADDRESS_DATA INTO WA_MIG_BUS_EI_BUPA_ADDRESS_DATA.


*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 ISOLA, internal->external for field LANGUPTL
CALL FUNCTION 'CONVERSION_EXIT_ISOLA_OUTPUT'
  EXPORTING
    input =                      WA_MIG_BUS_EI_BUPA_ADDRESS_DATA-LANGUPTL
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_MIG_BUS_EI_BUPA_ADDRESS_DATA-LANGUPTL.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

*Conversion exit ALPHA, internal->external for field TOWNSHIP_NOPTL
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_MIG_BUS_EI_BUPA_ADDRESS_DATA-TOWNSHIP_NOPTL
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_MIG_BUS_EI_BUPA_ADDRESS_DATA-TOWNSHIP_NOPTL.
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_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR, 
STANDARDADDRESSPTL TYPE STRING,
C_O_NAMEPTL TYPE STRING,
CITYPTL TYPE STRING,
DISTRICTPTL TYPE STRING,
REGIOGROUPPTL TYPE STRING,
POSTL_COD1PTL TYPE STRING,
POSTL_COD2PTL TYPE STRING,
POSTL_COD3PTL TYPE STRING,
PCODE1_EXTPTL TYPE STRING,
PCODE2_EXTPTL TYPE STRING,
PCODE3_EXTPTL TYPE STRING,
PO_BOXPTL TYPE STRING,
PO_W_O_NOPTL TYPE STRING,
PO_BOX_CITPTL TYPE STRING,
PO_BOX_REGPTL TYPE STRING,
POBOX_CTRYPTL TYPE STRING,
PO_CTRYISOPTL TYPE STRING,
STREETPTL TYPE STRING,
STR_ABBRPTL TYPE STRING,
HOUSE_NOPTL TYPE STRING,
HOUSE_NO2PTL TYPE STRING,
HOUSE_NO3PTL TYPE STRING,
STR_SUPPL1PTL TYPE STRING,
STR_SUPPL2PTL TYPE STRING,
STR_SUPPL3PTL TYPE STRING,
LOCATIONPTL TYPE STRING,
BUILDINGPTL TYPE STRING,
FLOORPTL TYPE STRING,
ROOM_NOPTL TYPE STRING,
COUNTRYPTL TYPE STRING,
COUNTRYISOPTL TYPE STRING,
REGIONPTL TYPE STRING,
TIME_ZONEPTL TYPE STRING,
TAXJURCODEPTL TYPE STRING,
HOME_CITYPTL TYPE STRING,
TRANSPZONEPTL TYPE STRING,
LANGUPTL TYPE STRING,
LANGUISOPTL TYPE STRING,
COMM_TYPEPTL TYPE STRING,
EXTADDRESSNUMBERPTL TYPE STRING,
DONT_USE_PPTL TYPE STRING,
DONT_USE_SPTL TYPE STRING,
MOVE_DATEPTL TYPE STRING,
MOVE_ADDRESSPTL TYPE STRING,
VALIDFROMDATEPTL TYPE STRING,
VALIDTODATEPTL TYPE STRING,
MOVE_ADDR_GUIDPTL TYPE STRING,
CITY_NOPTL TYPE STRING,
DISTRCT_NOPTL TYPE STRING,
CHCKSTATUSPTL TYPE STRING,
PBOXCIT_NOPTL TYPE STRING,
STREET_NOPTL TYPE STRING,
HOMECITYNOPTL TYPE STRING,
PO_BOX_LOBBYPTL TYPE STRING,
DELI_SERV_TYPEPTL TYPE STRING,
DELI_SERV_NUMBERPTL TYPE STRING,
COUNTYPTL TYPE STRING,
COUNTY_NOPTL TYPE STRING,
TOWNSHIPPTL TYPE STRING,
TOWNSHIP_NOPTL TYPE STRING,
REMARKS TYPE STRING,
PHONECOM TYPE STRING,
FAXCOM TYPE STRING,
TTXCOM TYPE STRING,
TLXCOM TYPE STRING,
SMTPCOM TYPE STRING,
RMLCOM TYPE STRING,
X400COM TYPE STRING,
RFCCOM TYPE STRING,
PRTCOM TYPE STRING,
SSFCOM TYPE STRING,
URICOM TYPE STRING,
PAGERCOM TYPE STRING,
TIME_DEPENDENTCOM TYPE STRING,
ADDR_USAGES TYPE STRING,
VERSIONS TYPE STRING,
CURRENTLY_VALID TYPE STRING,END OF T_EKKO_STR.
DATA: WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_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_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-STANDARDADDRESSPTL sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-C_O_NAMEPTL sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-CITYPTL sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-DISTRICTPTL sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-REGIOGROUPPTL sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-POSTL_COD1PTL sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-POSTL_COD2PTL sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-POSTL_COD3PTL sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-PCODE1_EXTPTL sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-PCODE2_EXTPTL sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-PCODE3_EXTPTL sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-PO_BOXPTL sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-PO_W_O_NOPTL sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-PO_BOX_CITPTL sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-PO_BOX_REGPTL sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-POBOX_CTRYPTL sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-PO_CTRYISOPTL sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-STREETPTL sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-STR_ABBRPTL sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-HOUSE_NOPTL sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-HOUSE_NO2PTL sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-HOUSE_NO3PTL sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-STR_SUPPL1PTL sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-STR_SUPPL2PTL sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-STR_SUPPL3PTL sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-LOCATIONPTL sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-BUILDINGPTL sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-FLOORPTL sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-ROOM_NOPTL sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-COUNTRYPTL sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-COUNTRYISOPTL sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-REGIONPTL sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-TIME_ZONEPTL sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-TAXJURCODEPTL sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-HOME_CITYPTL sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-TRANSPZONEPTL sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-LANGUPTL sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-LANGUISOPTL sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-COMM_TYPEPTL sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-EXTADDRESSNUMBERPTL sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-DONT_USE_PPTL sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-DONT_USE_SPTL sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-MOVE_DATEPTL sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-MOVE_ADDRESSPTL sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-VALIDFROMDATEPTL sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-VALIDTODATEPTL sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-MOVE_ADDR_GUIDPTL sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-CITY_NOPTL sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-DISTRCT_NOPTL sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-CHCKSTATUSPTL sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-PBOXCIT_NOPTL sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-STREET_NOPTL sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-HOMECITYNOPTL sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-PO_BOX_LOBBYPTL sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-DELI_SERV_TYPEPTL sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-DELI_SERV_NUMBERPTL sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-COUNTYPTL sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-COUNTY_NOPTL sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-TOWNSHIPPTL sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-TOWNSHIP_NOPTL sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-REMARKS sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-PHONECOM sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-FAXCOM sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-TTXCOM sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-TLXCOM sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-SMTPCOM sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-RMLCOM sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-X400COM sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-RFCCOM sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-PRTCOM sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-SSFCOM sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-URICOM sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-PAGERCOM sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-TIME_DEPENDENTCOM sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-ADDR_USAGES sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-VERSIONS sy-vline 
WA_MIG_BUS_EI_BUPA_ADDRESS_DATA_STR-CURRENTLY_VALID sy-vline      INTO ld_text SEPARATED BY SPACE.

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