ABAP Select data from SAP table J_1UF_TP_50X_ENTITY 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 J_1UF_TP_50X_ENTITY 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 J_1UF_TP_50X_ENTITY. 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 J_1UF_TP_50X_ENTITY 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_J_1UF_TP_50X_ENTITY TYPE STANDARD TABLE OF J_1UF_TP_50X_ENTITY,
      WA_J_1UF_TP_50X_ENTITY TYPE J_1UF_TP_50X_ENTITY,
      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: <J_1UF_TP_50X_ENTITY> TYPE J_1UF_TP_50X_ENTITY.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM J_1UF_TP_50X_ENTITY
*  INTO TABLE @DATA(IT_J_1UF_TP_50X_ENTITY2).
*--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_J_1UF_TP_50X_ENTITY INDEX 1 INTO DATA(WA_J_1UF_TP_50X_ENTITY2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<J_1UF_TP_50X_ENTITY>-KUNNR = 1.
<J_1UF_TP_50X_ENTITY>-LIFNR = 1.
<J_1UF_TP_50X_ENTITY>-BEGDA = 1.
<J_1UF_TP_50X_ENTITY>-SIGN500 = 1.
<J_1UF_TP_50X_ENTITY>-CNTR500 = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_J_1UF_TP_50X_ENTITY-CNTER, sy-vline,
  WA_J_1UF_TP_50X_ENTITY-REL_CLIENT, sy-vline,
  WA_J_1UF_TP_50X_ENTITY-REL_VENDOR, sy-vline,
  WA_J_1UF_TP_50X_ENTITY-NAME_PARTY, sy-vline,
  WA_J_1UF_TP_50X_ENTITY-INN, sy-vline,
  WA_J_1UF_TP_50X_ENTITY-LOCATIONS, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_J_1UF_TP_50X_ENTITY 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_J_1UF_TP_50X_ENTITY 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_J_1UF_TP_50X_ENTITY INTO WA_J_1UF_TP_50X_ENTITY.


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

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

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

*Conversion exit ALPHA, internal->external for field REL_VENDOR
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_J_1UF_TP_50X_ENTITY-REL_VENDOR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_1UF_TP_50X_ENTITY-REL_VENDOR.
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_J_1UF_TP_50X_ENTITY_STR, 
KUNNR TYPE STRING,
LIFNR TYPE STRING,
BEGDA TYPE STRING,
SIGN500 TYPE STRING,
CNTR500 TYPE STRING,
CNTER TYPE STRING,
REL_CLIENT TYPE STRING,
REL_VENDOR TYPE STRING,
NAME_PARTY TYPE STRING,
INN TYPE STRING,
LOCATIONS TYPE STRING,
COUNTRY_NAME TYPE STRING,
COUNTRY_CODE TYPE STRING,
R01G1_R01G2 TYPE STRING,
R01G3 TYPE STRING,
R01G4 TYPE STRING,
R01G5 TYPE STRING,
T1RXXXXG6S TYPE STRING,
T1RXXXXG7S TYPE STRING,
T1RXXXXG3SN TYPE STRING,
T1RXXXXG4SN TYPE STRING,
R02G1S TYPE STRING,
R02G2S TYPE STRING,
R02G3SN TYPE STRING,
R02G3 TYPE STRING,
R02G4 TYPE STRING,
R02G5 TYPE STRING,
R02G7N TYPE STRING,
R02G8N TYPE STRING,
R02G9N TYPE STRING,
T2RXXXXG6S TYPE STRING,
T2RXXXXG7S TYPE STRING,
T2RXXXXG3SN TYPE STRING,
T2RXXXXG4N TYPE STRING,
T2RXXXXG5SN TYPE STRING,
T2RXXXXG6SN TYPE STRING,
T2RXXXXG7SN TYPE STRING,
T2RXXXXG8N TYPE STRING,
R03NG1S TYPE STRING,
R03NG2S TYPE STRING,
T3RXXXXG3SN TYPE STRING,
R04NG1S TYPE STRING,
R04NG2S TYPE STRING,
T4RXXXXG3SN TYPE STRING,
T5RXXXXG1S TYPE STRING,
T5RXXXXG2S TYPE STRING,
T5RXXXXG3S TYPE STRING,
R06NG1S TYPE STRING,
R06NG2S TYPE STRING,
T6RXXXXG3SN TYPE STRING,
R06NG3_R06NG4 TYPE STRING,
R07G1_R07G2 TYPE STRING,
R08G1_R08G2 TYPE STRING,
R08G3 TYPE STRING,
R08G4 TYPE STRING,
T8RXXXXG1S TYPE STRING,
T8RXXXXG2S TYPE STRING,
T8RXXXXG3S TYPE STRING,
T9RXXXXG1S TYPE STRING,
T9RXXXXG2S TYPE STRING,
T9RXXXXG3S TYPE STRING,
R09G1 TYPE STRING,
R09G2 TYPE STRING,
R09G3 TYPE STRING,
T9RXXXXG4S TYPE STRING,
T9RXXXXG5S TYPE STRING,
R013G1 TYPE STRING,
R013G2 TYPE STRING,
KINSHIP TYPE STRING,
T11RXXXXG1S TYPE STRING,
T11RXXXXG2S TYPE STRING,
T11RXXXXG3S TYPE STRING,
T11RXXXXG4S TYPE STRING,END OF T_EKKO_STR.
DATA: WA_J_1UF_TP_50X_ENTITY_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_J_1UF_TP_50X_ENTITY_STR-KUNNR sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-LIFNR sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-BEGDA sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-SIGN500 sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-CNTR500 sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-CNTER sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-REL_CLIENT sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-REL_VENDOR sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-NAME_PARTY sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-INN sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-LOCATIONS sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-COUNTRY_NAME sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-COUNTRY_CODE sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-R01G1_R01G2 sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-R01G3 sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-R01G4 sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-R01G5 sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-T1RXXXXG6S sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-T1RXXXXG7S sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-T1RXXXXG3SN sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-T1RXXXXG4SN sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-R02G1S sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-R02G2S sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-R02G3SN sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-R02G3 sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-R02G4 sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-R02G5 sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-R02G7N sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-R02G8N sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-R02G9N sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-T2RXXXXG6S sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-T2RXXXXG7S sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-T2RXXXXG3SN sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-T2RXXXXG4N sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-T2RXXXXG5SN sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-T2RXXXXG6SN sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-T2RXXXXG7SN sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-T2RXXXXG8N sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-R03NG1S sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-R03NG2S sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-T3RXXXXG3SN sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-R04NG1S sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-R04NG2S sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-T4RXXXXG3SN sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-T5RXXXXG1S sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-T5RXXXXG2S sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-T5RXXXXG3S sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-R06NG1S sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-R06NG2S sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-T6RXXXXG3SN sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-R06NG3_R06NG4 sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-R07G1_R07G2 sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-R08G1_R08G2 sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-R08G3 sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-R08G4 sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-T8RXXXXG1S sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-T8RXXXXG2S sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-T8RXXXXG3S sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-T9RXXXXG1S sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-T9RXXXXG2S sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-T9RXXXXG3S sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-R09G1 sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-R09G2 sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-R09G3 sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-T9RXXXXG4S sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-T9RXXXXG5S sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-R013G1 sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-R013G2 sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-KINSHIP sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-T11RXXXXG1S sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-T11RXXXXG2S sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-T11RXXXXG3S sy-vline 
WA_J_1UF_TP_50X_ENTITY_STR-T11RXXXXG4S sy-vline      INTO ld_text SEPARATED BY SPACE.

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