ABAP Select data from SAP table BAPI1102 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 BAPI1102 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 BAPI1102. 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 BAPI1102 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_BAPI1102 TYPE STANDARD TABLE OF BAPI1102,
      WA_BAPI1102 TYPE BAPI1102,
      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: <BAPI1102> TYPE BAPI1102.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM BAPI1102
*  INTO TABLE @DATA(IT_BAPI11022).
*--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_BAPI1102 INDEX 1 INTO DATA(WA_BAPI11022).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<BAPI1102>-TEXT = 1.
<BAPI1102>-LNDREGNO = 1.
<BAPI1102>-USAGE_LMAP = 1.
<BAPI1102>-MARKET_VAL = 1.
<BAPI1102>-PURC_PRICE = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_BAPI1102-LNDREF_VAL, sy-vline,
  WA_BAPI1102-LAND_VALUE, sy-vline,
  WA_BAPI1102-LND_VAL_DT, sy-vline,
  WA_BAPI1102-DEVEL_PLAN, sy-vline,
  WA_BAPI1102-DTE_DEV_PL, sy-vline,
  WA_BAPI1102-CURRUSA, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_BAPI1102 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_BAPI1102 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_BAPI1102 INTO WA_BAPI1102.


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

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

*Conversion exit SWENR, internal->external for field BUS_ENT
CALL FUNCTION 'CONVERSION_EXIT_SWENR_OUTPUT'
  EXPORTING
    input =                      WA_BAPI1102-BUS_ENT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BAPI1102-BUS_ENT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit SGRNR, internal->external for field PROPERTY
CALL FUNCTION 'CONVERSION_EXIT_SGRNR_OUTPUT'
  EXPORTING
    input =                      WA_BAPI1102-PROPERTY
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BAPI1102-PROPERTY.
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_BAPI1102_STR, 
TEXT TYPE STRING,
LNDREGNO TYPE STRING,
USAGE_LMAP TYPE STRING,
MARKET_VAL TYPE STRING,
PURC_PRICE TYPE STRING,
LNDREF_VAL TYPE STRING,
LAND_VALUE TYPE STRING,
LND_VAL_DT TYPE STRING,
DEVEL_PLAN TYPE STRING,
DTE_DEV_PL TYPE STRING,
CURRUSA TYPE STRING,
AMTFLRSPC TYPE STRING,
AMTSTORAR TYPE STRING,
CNSTDIMPER TYPE STRING,
AMFLRSP TYPE STRING,
AMSTOAR TYPE STRING,
CNSTDIMACT TYPE STRING,
OPTION_TYP TYPE STRING,
USAGDPLAN TYPE STRING,
FACTOR TYPE STRING,
PROPTYPE TYPE STRING,
LOCQUAL TYPE STRING,
GRNDTYP TYPE STRING,
OVERCOND TYPE STRING,
PROFIT_CTR TYPE STRING,
TR_USE_CHR TYPE STRING,
SALE TYPE STRING,
MUSAGTYP TYPE STRING,
PUSAG TYPE STRING,
SETTPRCT TYPE STRING,
CO_AREA TYPE STRING,
PLAN_SALE TYPE STRING,
BUS_AREA TYPE STRING,
TAXJURCODE TYPE STRING,
AUTHGROUP TYPE STRING,
COMP_CODE TYPE STRING,
BUS_ENT TYPE STRING,
PROPERTY TYPE STRING,
SAPID TYPE STRING,END OF T_EKKO_STR.
DATA: WA_BAPI1102_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_BAPI1102_STR-TEXT sy-vline 
WA_BAPI1102_STR-LNDREGNO sy-vline 
WA_BAPI1102_STR-USAGE_LMAP sy-vline 
WA_BAPI1102_STR-MARKET_VAL sy-vline 
WA_BAPI1102_STR-PURC_PRICE sy-vline 
WA_BAPI1102_STR-LNDREF_VAL sy-vline 
WA_BAPI1102_STR-LAND_VALUE sy-vline 
WA_BAPI1102_STR-LND_VAL_DT sy-vline 
WA_BAPI1102_STR-DEVEL_PLAN sy-vline 
WA_BAPI1102_STR-DTE_DEV_PL sy-vline 
WA_BAPI1102_STR-CURRUSA sy-vline 
WA_BAPI1102_STR-AMTFLRSPC sy-vline 
WA_BAPI1102_STR-AMTSTORAR sy-vline 
WA_BAPI1102_STR-CNSTDIMPER sy-vline 
WA_BAPI1102_STR-AMFLRSP sy-vline 
WA_BAPI1102_STR-AMSTOAR sy-vline 
WA_BAPI1102_STR-CNSTDIMACT sy-vline 
WA_BAPI1102_STR-OPTION_TYP sy-vline 
WA_BAPI1102_STR-USAGDPLAN sy-vline 
WA_BAPI1102_STR-FACTOR sy-vline 
WA_BAPI1102_STR-PROPTYPE sy-vline 
WA_BAPI1102_STR-LOCQUAL sy-vline 
WA_BAPI1102_STR-GRNDTYP sy-vline 
WA_BAPI1102_STR-OVERCOND sy-vline 
WA_BAPI1102_STR-PROFIT_CTR sy-vline 
WA_BAPI1102_STR-TR_USE_CHR sy-vline 
WA_BAPI1102_STR-SALE sy-vline 
WA_BAPI1102_STR-MUSAGTYP sy-vline 
WA_BAPI1102_STR-PUSAG sy-vline 
WA_BAPI1102_STR-SETTPRCT sy-vline 
WA_BAPI1102_STR-CO_AREA sy-vline 
WA_BAPI1102_STR-PLAN_SALE sy-vline 
WA_BAPI1102_STR-BUS_AREA sy-vline 
WA_BAPI1102_STR-TAXJURCODE sy-vline 
WA_BAPI1102_STR-AUTHGROUP sy-vline 
WA_BAPI1102_STR-COMP_CODE sy-vline 
WA_BAPI1102_STR-BUS_ENT sy-vline 
WA_BAPI1102_STR-PROPERTY sy-vline 
WA_BAPI1102_STR-SAPID sy-vline      INTO ld_text SEPARATED BY SPACE.

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