ABAP Select data from SAP table TF560 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 TF560 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 TF560. 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 TF560 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_TF560 TYPE STANDARD TABLE OF TF560,
      WA_TF560 TYPE TF560,
      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: <TF560> TYPE TF560.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM TF560
*  INTO TABLE @DATA(IT_TF5602).
*--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_TF560 INDEX 1 INTO DATA(WA_TF5602).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<TF560>-MANDT = 1.
<TF560>-DIMEN = 1.
<TF560>-ITCLG = 1.
<TF560>-CMETH = 1.
<TF560>-SEQNO = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_TF560-CONGR, sy-vline,
  WA_TF560-IITEM, sy-vline,
  WA_TF560-IITSET, sy-vline,
  WA_TF560-ISITYP, sy-vline,
  WA_TF560-ISITEM, sy-vline,
  WA_TF560-ISISET, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_TF560 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_TF560 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_TF560 INTO WA_TF560.


*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 AFIMC, internal->external for field CONGR
CALL FUNCTION 'CONVERSION_EXIT_AFIMC_OUTPUT'
  EXPORTING
    input =                      WA_TF560-CONGR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_TF560-CONGR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit BFIMC, internal->external for field IITEM
CALL FUNCTION 'CONVERSION_EXIT_BFIMC_OUTPUT'
  EXPORTING
    input =                      WA_TF560-IITEM
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_TF560-IITEM.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AFIMC, internal->external for field IBUPTR
CALL FUNCTION 'CONVERSION_EXIT_AFIMC_OUTPUT'
  EXPORTING
    input =                      WA_TF560-IBUPTR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_TF560-IBUPTR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit BFIMC, internal->external for field FITEM
CALL FUNCTION 'CONVERSION_EXIT_BFIMC_OUTPUT'
  EXPORTING
    input =                      WA_TF560-FITEM
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_TF560-FITEM.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AFIMC, internal->external for field FBUPTR
CALL FUNCTION 'CONVERSION_EXIT_AFIMC_OUTPUT'
  EXPORTING
    input =                      WA_TF560-FBUPTR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_TF560-FBUPTR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit BFIMC, internal->external for field TITEM
CALL FUNCTION 'CONVERSION_EXIT_BFIMC_OUTPUT'
  EXPORTING
    input =                      WA_TF560-TITEM
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_TF560-TITEM.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AFIMC, internal->external for field TBUPTR
CALL FUNCTION 'CONVERSION_EXIT_AFIMC_OUTPUT'
  EXPORTING
    input =                      WA_TF560-TBUPTR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_TF560-TBUPTR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit BFIMC, internal->external for field PITEM
CALL FUNCTION 'CONVERSION_EXIT_BFIMC_OUTPUT'
  EXPORTING
    input =                      WA_TF560-PITEM
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_TF560-PITEM.
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_TF560_STR, 
MANDT TYPE STRING,
DIMEN TYPE STRING,
ITCLG TYPE STRING,
CMETH TYPE STRING,
SEQNO TYPE STRING,
CONGR TYPE STRING,
IITEM TYPE STRING,
IITSET TYPE STRING,
ISITYP TYPE STRING,
ISITEM TYPE STRING,
ISISET TYPE STRING,
IBUPTR TYPE STRING,
IBPSET TYPE STRING,
ISELNM TYPE STRING,
FITEM TYPE STRING,
FSITYP TYPE STRING,
FSITEM TYPE STRING,
FBUPTR TYPE STRING,
TITEM TYPE STRING,
TSITYP TYPE STRING,
TSITEM TYPE STRING,
TBUPTR TYPE STRING,
PITEM TYPE STRING,
PSITYP TYPE STRING,
PSITEM TYPE STRING,
PSISET TYPE STRING,
PSELNM TYPE STRING,
BSIGN TYPE STRING,
PERCT TYPE STRING,
PBIND TYPE STRING,
PERIND TYPE STRING,
FSCAT TYPE STRING,
DOCIND TYPE STRING,
BAL_SUBIT TYPE STRING,
BAL_BUPTR TYPE STRING,
RCL_MO TYPE STRING,
RCLDIV TYPE STRING,
RCLCGREST TYPE STRING,
RCLCGBUPTR TYPE STRING,
PERCT_PERIOD TYPE STRING,
PERCT_COMPLEMENTARY TYPE STRING,
COIAC TYPE STRING,
COITP TYPE STRING,
AC_TP_PARTNER TYPE STRING,
AC_TP_PAIR TYPE STRING,
ROLE_ID_RECL_SOURCE TYPE STRING,
ROLE_VAL_ID_RECL_SOURCE TYPE STRING,
ROLE_ID_RECL_DESTINATION TYPE STRING,
ROLE_VAL_ID_RECL_DEST TYPE STRING,
AC_TP_SEQUENCE TYPE STRING,
TARGET_ATTRIBUTE_SOURCE TYPE STRING,
TARGET_SOURCE_INHERITED_DEST TYPE STRING,
TARGET_ATTRIBUTE_DESTINATION TYPE STRING,
TARGET_DEST_INHERITED_SOURCE TYPE STRING,
CURR_SIGN_DECISION TYPE STRING,
READ_FROM_PARTNER TYPE STRING,
KEEP_ZERO_PERCT TYPE STRING,END OF T_EKKO_STR.
DATA: WA_TF560_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_TF560_STR-MANDT sy-vline 
WA_TF560_STR-DIMEN sy-vline 
WA_TF560_STR-ITCLG sy-vline 
WA_TF560_STR-CMETH sy-vline 
WA_TF560_STR-SEQNO sy-vline 
WA_TF560_STR-CONGR sy-vline 
WA_TF560_STR-IITEM sy-vline 
WA_TF560_STR-IITSET sy-vline 
WA_TF560_STR-ISITYP sy-vline 
WA_TF560_STR-ISITEM sy-vline 
WA_TF560_STR-ISISET sy-vline 
WA_TF560_STR-IBUPTR sy-vline 
WA_TF560_STR-IBPSET sy-vline 
WA_TF560_STR-ISELNM sy-vline 
WA_TF560_STR-FITEM sy-vline 
WA_TF560_STR-FSITYP sy-vline 
WA_TF560_STR-FSITEM sy-vline 
WA_TF560_STR-FBUPTR sy-vline 
WA_TF560_STR-TITEM sy-vline 
WA_TF560_STR-TSITYP sy-vline 
WA_TF560_STR-TSITEM sy-vline 
WA_TF560_STR-TBUPTR sy-vline 
WA_TF560_STR-PITEM sy-vline 
WA_TF560_STR-PSITYP sy-vline 
WA_TF560_STR-PSITEM sy-vline 
WA_TF560_STR-PSISET sy-vline 
WA_TF560_STR-PSELNM sy-vline 
WA_TF560_STR-BSIGN sy-vline 
WA_TF560_STR-PERCT sy-vline 
WA_TF560_STR-PBIND sy-vline 
WA_TF560_STR-PERIND sy-vline 
WA_TF560_STR-FSCAT sy-vline 
WA_TF560_STR-DOCIND sy-vline 
WA_TF560_STR-BAL_SUBIT sy-vline 
WA_TF560_STR-BAL_BUPTR sy-vline 
WA_TF560_STR-RCL_MO sy-vline 
WA_TF560_STR-RCLDIV sy-vline 
WA_TF560_STR-RCLCGREST sy-vline 
WA_TF560_STR-RCLCGBUPTR sy-vline 
WA_TF560_STR-PERCT_PERIOD sy-vline 
WA_TF560_STR-PERCT_COMPLEMENTARY sy-vline 
WA_TF560_STR-COIAC sy-vline 
WA_TF560_STR-COITP sy-vline 
WA_TF560_STR-AC_TP_PARTNER sy-vline 
WA_TF560_STR-AC_TP_PAIR sy-vline 
WA_TF560_STR-ROLE_ID_RECL_SOURCE sy-vline 
WA_TF560_STR-ROLE_VAL_ID_RECL_SOURCE sy-vline 
WA_TF560_STR-ROLE_ID_RECL_DESTINATION sy-vline 
WA_TF560_STR-ROLE_VAL_ID_RECL_DEST sy-vline 
WA_TF560_STR-AC_TP_SEQUENCE sy-vline 
WA_TF560_STR-TARGET_ATTRIBUTE_SOURCE sy-vline 
WA_TF560_STR-TARGET_SOURCE_INHERITED_DEST sy-vline 
WA_TF560_STR-TARGET_ATTRIBUTE_DESTINATION sy-vline 
WA_TF560_STR-TARGET_DEST_INHERITED_SOURCE sy-vline 
WA_TF560_STR-CURR_SIGN_DECISION sy-vline 
WA_TF560_STR-READ_FROM_PARTNER sy-vline 
WA_TF560_STR-KEEP_ZERO_PERCT sy-vline      INTO ld_text SEPARATED BY SPACE.

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