ABAP Select data from SAP table IBRNFSITEMDET 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 IBRNFSITEMDET 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 IBRNFSITEMDET. 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 IBRNFSITEMDET 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_IBRNFSITEMDET TYPE STANDARD TABLE OF IBRNFSITEMDET,
      WA_IBRNFSITEMDET TYPE IBRNFSITEMDET,
      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: <IBRNFSITEMDET> TYPE IBRNFSITEMDET.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM IBRNFSITEMDET
*  INTO TABLE @DATA(IT_IBRNFSITEMDET2).
*--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_IBRNFSITEMDET INDEX 1 INTO DATA(WA_IBRNFSITEMDET2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<IBRNFSITEMDET>-MANDT = 1.
<IBRNFSITEMDET>-BR_NOTAFISCAL = 1.
<IBRNFSITEMDET>-BR_NOTAFISCALITEM = 1.
<IBRNFSITEMDET>-BR_NFAPPROXIMATETOTALTAXAMOUNT = 1.
<IBRNFSITEMDET>-BR_NBSCODE = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_IBRNFSITEMDET-BR_EFDREINFSERVICECODE, sy-vline,
  WA_IBRNFSITEMDET-BR_LC116SERVICECODE, sy-vline,
  WA_IBRNFSITEMDET-BR_ISSBENEFITCODE, sy-vline,
  WA_IBRNFSITEMDET-BR_CSTISSCODE, sy-vline,
  WA_IBRNFSITEMDET-BR_CPRBISRELEVANT, sy-vline,
  WA_IBRNFSITEMDET-MATERIAL, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_IBRNFSITEMDET 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_IBRNFSITEMDET 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_IBRNFSITEMDET INTO WA_IBRNFSITEMDET.


*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 MATN1, internal->external for field MATERIAL
CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT'
  EXPORTING
    input =                      WA_IBRNFSITEMDET-MATERIAL
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IBRNFSITEMDET-MATERIAL.
WRITE:/ 'New Value:', ld_input.

*Conversion exit CUNIT, internal->external for field BASEUNIT
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_IBRNFSITEMDET-BASEUNIT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IBRNFSITEMDET-BASEUNIT.
WRITE:/ 'New Value:', ld_input.

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

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

*Conversion exit ALPHA, internal->external for field BR_ISSTAXLAW
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_IBRNFSITEMDET-BR_ISSTAXLAW
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IBRNFSITEMDET-BR_ISSTAXLAW.
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_IBRNFSITEMDET_STR, 
MANDT TYPE STRING,
BR_NOTAFISCAL TYPE STRING,
BR_NOTAFISCALITEM TYPE STRING,
BR_NFAPPROXIMATETOTALTAXAMOUNT TYPE STRING,
BR_NBSCODE TYPE STRING,
BR_EFDREINFSERVICECODE TYPE STRING,
BR_LC116SERVICECODE TYPE STRING,
BR_ISSBENEFITCODE TYPE STRING,
BR_CSTISSCODE TYPE STRING,
BR_CPRBISRELEVANT TYPE STRING,
MATERIAL TYPE STRING,
MATERIALNAME TYPE STRING,
BASEUNIT TYPE STRING,
QUANTITYINBASEUNIT TYPE STRING,
MATERIALGROUP TYPE STRING,
PLANT TYPE STRING,
NCMCODE TYPE STRING,
NETPRICEAMOUNT TYPE STRING,
NETVALUEAMOUNT TYPE STRING,
BR_NFNETDISCOUNTAMOUNT TYPE STRING,
BR_NFNETOTHEREXPENSESAMOUNT TYPE STRING,
BR_NFTOTALAMOUNT TYPE STRING,
BR_NFPRICEAMOUNTWITHTAXES TYPE STRING,
BR_NFVALUEAMOUNTWITHTAXES TYPE STRING,
BR_NFDISCOUNTAMOUNTWITHTAXES TYPE STRING,
BR_NFEXPENSESAMOUNTWITHTAXES TYPE STRING,
BR_NFTOTALAMOUNTWITHTAXES TYPE STRING,
BR_ISSTAXSITUATION TYPE STRING,
BR_ISSTAXSITUATIONDESC TYPE STRING,
BR_COFINSTAXSITUATION TYPE STRING,
BR_COFINSTAXSITUATIONDESC TYPE STRING,
BR_PISTAXSITUATION TYPE STRING,
BR_PISTAXSITUATIONDESC TYPE STRING,
BR_COFINSTAXLAW TYPE STRING,
BR_COFINSTAXLAWDESC TYPE STRING,
BR_PISTAXLAW TYPE STRING,
BR_PISTAXLAWDESC TYPE STRING,
BR_ISSTAXLAW TYPE STRING,
BR_ISSTAXLAWDESC TYPE STRING,
BR_NFPARTNERCNAE TYPE STRING,
BR_BUSINESSPLACECNAE TYPE STRING,
SALESDOCUMENTCURRENCY TYPE STRING,END OF T_EKKO_STR.
DATA: WA_IBRNFSITEMDET_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_IBRNFSITEMDET_STR-MANDT sy-vline 
WA_IBRNFSITEMDET_STR-BR_NOTAFISCAL sy-vline 
WA_IBRNFSITEMDET_STR-BR_NOTAFISCALITEM sy-vline 
WA_IBRNFSITEMDET_STR-BR_NFAPPROXIMATETOTALTAXAMOUNT sy-vline 
WA_IBRNFSITEMDET_STR-BR_NBSCODE sy-vline 
WA_IBRNFSITEMDET_STR-BR_EFDREINFSERVICECODE sy-vline 
WA_IBRNFSITEMDET_STR-BR_LC116SERVICECODE sy-vline 
WA_IBRNFSITEMDET_STR-BR_ISSBENEFITCODE sy-vline 
WA_IBRNFSITEMDET_STR-BR_CSTISSCODE sy-vline 
WA_IBRNFSITEMDET_STR-BR_CPRBISRELEVANT sy-vline 
WA_IBRNFSITEMDET_STR-MATERIAL sy-vline 
WA_IBRNFSITEMDET_STR-MATERIALNAME sy-vline 
WA_IBRNFSITEMDET_STR-BASEUNIT sy-vline 
WA_IBRNFSITEMDET_STR-QUANTITYINBASEUNIT sy-vline 
WA_IBRNFSITEMDET_STR-MATERIALGROUP sy-vline 
WA_IBRNFSITEMDET_STR-PLANT sy-vline 
WA_IBRNFSITEMDET_STR-NCMCODE sy-vline 
WA_IBRNFSITEMDET_STR-NETPRICEAMOUNT sy-vline 
WA_IBRNFSITEMDET_STR-NETVALUEAMOUNT sy-vline 
WA_IBRNFSITEMDET_STR-BR_NFNETDISCOUNTAMOUNT sy-vline 
WA_IBRNFSITEMDET_STR-BR_NFNETOTHEREXPENSESAMOUNT sy-vline 
WA_IBRNFSITEMDET_STR-BR_NFTOTALAMOUNT sy-vline 
WA_IBRNFSITEMDET_STR-BR_NFPRICEAMOUNTWITHTAXES sy-vline 
WA_IBRNFSITEMDET_STR-BR_NFVALUEAMOUNTWITHTAXES sy-vline 
WA_IBRNFSITEMDET_STR-BR_NFDISCOUNTAMOUNTWITHTAXES sy-vline 
WA_IBRNFSITEMDET_STR-BR_NFEXPENSESAMOUNTWITHTAXES sy-vline 
WA_IBRNFSITEMDET_STR-BR_NFTOTALAMOUNTWITHTAXES sy-vline 
WA_IBRNFSITEMDET_STR-BR_ISSTAXSITUATION sy-vline 
WA_IBRNFSITEMDET_STR-BR_ISSTAXSITUATIONDESC sy-vline 
WA_IBRNFSITEMDET_STR-BR_COFINSTAXSITUATION sy-vline 
WA_IBRNFSITEMDET_STR-BR_COFINSTAXSITUATIONDESC sy-vline 
WA_IBRNFSITEMDET_STR-BR_PISTAXSITUATION sy-vline 
WA_IBRNFSITEMDET_STR-BR_PISTAXSITUATIONDESC sy-vline 
WA_IBRNFSITEMDET_STR-BR_COFINSTAXLAW sy-vline 
WA_IBRNFSITEMDET_STR-BR_COFINSTAXLAWDESC sy-vline 
WA_IBRNFSITEMDET_STR-BR_PISTAXLAW sy-vline 
WA_IBRNFSITEMDET_STR-BR_PISTAXLAWDESC sy-vline 
WA_IBRNFSITEMDET_STR-BR_ISSTAXLAW sy-vline 
WA_IBRNFSITEMDET_STR-BR_ISSTAXLAWDESC sy-vline 
WA_IBRNFSITEMDET_STR-BR_NFPARTNERCNAE sy-vline 
WA_IBRNFSITEMDET_STR-BR_BUSINESSPLACECNAE sy-vline 
WA_IBRNFSITEMDET_STR-SALESDOCUMENTCURRENCY sy-vline      INTO ld_text SEPARATED BY SPACE.

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