ABAP Select data from SAP table BAPI_TE_FMBL_LOC into internal table
Get Example source ABAP code based on a different SAP table
Below is a number of ABAP code snippets to demonstrate how to select data from SAP BAPI_TE_FMBL_LOC 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 BAPI_TE_FMBL_LOC. 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 BAPI_TE_FMBL_LOC 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_BAPI_TE_FMBL_LOC TYPE STANDARD TABLE OF BAPI_TE_FMBL_LOC, WA_BAPI_TE_FMBL_LOC TYPE BAPI_TE_FMBL_LOC, 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: <BAPI_TE_FMBL_LOC> TYPE BAPI_TE_FMBL_LOC. *Process all fields in table header/work area as string values PERFORM process_as_string_field_values CHANGING wa_BAPI_TE_FMBL_LOC. SELECT * *restrict ABAP select to first 10 rows UP TO 10 ROWS FROM BAPI_TE_FMBL_LOC INTO TABLE IT_BAPI_TE_FMBL_LOC. *Select data and declare internal table using in-line method @DATA *SELECT * * FROM BAPI_TE_FMBL_LOC * INTO TABLE @DATA(IT_BAPI_TE_FMBL_LOC2). *--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_BAPI_TE_FMBL_LOC INDEX 1 INTO DATA(WA_BAPI_TE_FMBL_LOC2). *Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL LOOP AT IT_BAPI_TE_FMBL_LOC ASSIGNING <BAPI_TE_FMBL_LOC>.*To update a field value using a field symbol simply change the value via the field symbol pointer
<BAPI_TE_FMBL_LOC>-CLIENT = 1.
<BAPI_TE_FMBL_LOC>-FM_AREA = 1.
<BAPI_TE_FMBL_LOC>-DOC_YEAR = 1.
<BAPI_TE_FMBL_LOC>-DOCUMENT = 1.
<BAPI_TE_FMBL_LOC>-ITEM_NUM = 1.
ENDLOOP. LOOP AT IT_BAPI_TE_FMBL_LOC INTO WA_BAPI_TE_FMBL_LOC. *Write horizonal line to screen report. WRITE:/ sy-uline. *Write selected data to screen/report before conversion. WRITE:/ sy-vline, WA_BAPI_TE_FMBL_LOC-RPMAX, sy-vline,
WA_BAPI_TE_FMBL_LOC-DUMMY_EXT, sy-vline,
WA_BAPI_TE_FMBL_LOC-BGTSRC, sy-vline,
WA_BAPI_TE_FMBL_LOC-BGTDTL, sy-vline,
WA_BAPI_TE_FMBL_LOC-PAYTYP, sy-vline,
WA_BAPI_TE_FMBL_LOC-PAYKID, sy-vline.
ENDLOOP. *Add any further fields from structure WA_BAPI_TE_FMBL_LOC 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_BAPI_TE_FMBL_LOC 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_BAPI_TE_FMBL_LOC INTO WA_BAPI_TE_FMBL_LOC. *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 GJAHR, internal->external for field DOC_YEAR CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT' EXPORTING input = WA_BAPI_TE_FMBL_LOC-DOC_YEAR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_BAPI_TE_FMBL_LOC-DOC_YEAR.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field DOCUMENT CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_BAPI_TE_FMBL_LOC-DOCUMENT IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_BAPI_TE_FMBL_LOC-DOCUMENT.
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_BAPI_TE_FMBL_LOC_STR,
CLIENT TYPE STRING,
FM_AREA TYPE STRING,
DOC_YEAR TYPE STRING,
DOCUMENT TYPE STRING,
ITEM_NUM TYPE STRING,
RPMAX TYPE STRING,
DUMMY_EXT TYPE STRING,
BGTSRC TYPE STRING,
BGTDTL TYPE STRING,
PAYTYP TYPE STRING,
PAYKID TYPE STRING,
PROCNO TYPE STRING,
FUNCTIONALAREASUBDIVISIONID TYPE STRING,
FUNCTIONALAREA1SUBDIVISION TYPE STRING,
FUNCTIONALAREA2SUBDIVISION TYPE STRING,
FUNCTIONALAREA3SUBDIVISION TYPE STRING,
COMMITMENTITEMSUBDIVISIONID TYPE STRING,
COMMITMENTITEM1SUBDIVISION TYPE STRING,
COMMITMENTITEM2SUBDIVISION TYPE STRING,
COMMITMENTITEM3SUBDIVISION TYPE STRING,
COMMITMENTITEM4SUBDIVISION TYPE STRING,
COMMITMENTITEM5SUBDIVISION TYPE STRING,
FUNDSCENTERSUBDIVISIONID TYPE STRING,
FUNDSCENTER1SUBDIVISION TYPE STRING,
FUNDSCENTER2SUBDIVISION TYPE STRING,
FUNDSCENTER3SUBDIVISION TYPE STRING,
FUNDSSUBDIVISIONID TYPE STRING,
FUNDS1SUBDIVISION TYPE STRING,
FUNDS2SUBDIVISION TYPE STRING,END OF T_EKKO_STR. DATA: WA_BAPI_TE_FMBL_LOC_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_BAPI_TE_FMBL_LOC_STR-CLIENT sy-vline
WA_BAPI_TE_FMBL_LOC_STR-FM_AREA sy-vline
WA_BAPI_TE_FMBL_LOC_STR-DOC_YEAR sy-vline
WA_BAPI_TE_FMBL_LOC_STR-DOCUMENT sy-vline
WA_BAPI_TE_FMBL_LOC_STR-ITEM_NUM sy-vline
WA_BAPI_TE_FMBL_LOC_STR-RPMAX sy-vline
WA_BAPI_TE_FMBL_LOC_STR-DUMMY_EXT sy-vline
WA_BAPI_TE_FMBL_LOC_STR-BGTSRC sy-vline
WA_BAPI_TE_FMBL_LOC_STR-BGTDTL sy-vline
WA_BAPI_TE_FMBL_LOC_STR-PAYTYP sy-vline
WA_BAPI_TE_FMBL_LOC_STR-PAYKID sy-vline
WA_BAPI_TE_FMBL_LOC_STR-PROCNO sy-vline
WA_BAPI_TE_FMBL_LOC_STR-FUNCTIONALAREASUBDIVISIONID sy-vline
WA_BAPI_TE_FMBL_LOC_STR-FUNCTIONALAREA1SUBDIVISION sy-vline
WA_BAPI_TE_FMBL_LOC_STR-FUNCTIONALAREA2SUBDIVISION sy-vline
WA_BAPI_TE_FMBL_LOC_STR-FUNCTIONALAREA3SUBDIVISION sy-vline
WA_BAPI_TE_FMBL_LOC_STR-COMMITMENTITEMSUBDIVISIONID sy-vline
WA_BAPI_TE_FMBL_LOC_STR-COMMITMENTITEM1SUBDIVISION sy-vline
WA_BAPI_TE_FMBL_LOC_STR-COMMITMENTITEM2SUBDIVISION sy-vline
WA_BAPI_TE_FMBL_LOC_STR-COMMITMENTITEM3SUBDIVISION sy-vline
WA_BAPI_TE_FMBL_LOC_STR-COMMITMENTITEM4SUBDIVISION sy-vline
WA_BAPI_TE_FMBL_LOC_STR-COMMITMENTITEM5SUBDIVISION sy-vline
WA_BAPI_TE_FMBL_LOC_STR-FUNDSCENTERSUBDIVISIONID sy-vline
WA_BAPI_TE_FMBL_LOC_STR-FUNDSCENTER1SUBDIVISION sy-vline
WA_BAPI_TE_FMBL_LOC_STR-FUNDSCENTER2SUBDIVISION sy-vline
WA_BAPI_TE_FMBL_LOC_STR-FUNDSCENTER3SUBDIVISION sy-vline
WA_BAPI_TE_FMBL_LOC_STR-FUNDSSUBDIVISIONID sy-vline
WA_BAPI_TE_FMBL_LOC_STR-FUNDS1SUBDIVISION sy-vline
WA_BAPI_TE_FMBL_LOC_STR-FUNDS2SUBDIVISION sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.