ABAP Select data from SAP table J_1UF_TITLE_DATA 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_TITLE_DATA 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_TITLE_DATA. 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_TITLE_DATA 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_TITLE_DATA TYPE STANDARD TABLE OF J_1UF_TITLE_DATA,
      WA_J_1UF_TITLE_DATA TYPE J_1UF_TITLE_DATA,
      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_TITLE_DATA> TYPE J_1UF_TITLE_DATA.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM J_1UF_TITLE_DATA
*  INTO TABLE @DATA(IT_J_1UF_TITLE_DATA2).
*--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_TITLE_DATA INDEX 1 INTO DATA(WA_J_1UF_TITLE_DATA2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<J_1UF_TITLE_DATA>-BUTXT = 1.
<J_1UF_TITLE_DATA>-BUTXT1 = 1.
<J_1UF_TITLE_DATA>-BUINN01 = 1.
<J_1UF_TITLE_DATA>-BUINN02 = 1.
<J_1UF_TITLE_DATA>-BUSTCDT = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_J_1UF_TITLE_DATA-BUREGIO, sy-vline,
  WA_J_1UF_TITLE_DATA-BUORT02, sy-vline,
  WA_J_1UF_TITLE_DATA-BUORT01, sy-vline,
  WA_J_1UF_TITLE_DATA-BUSTRAS, sy-vline,
  WA_J_1UF_TITLE_DATA-BUHOUSE, sy-vline,
  WA_J_1UF_TITLE_DATA-BUHOUS2, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_J_1UF_TITLE_DATA 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_TITLE_DATA 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_TITLE_DATA INTO WA_J_1UF_TITLE_DATA.


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

*Conversion exit GJAHR, internal->external for field DAGJAHR
CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT'
  EXPORTING
    input =                      WA_J_1UF_TITLE_DATA-DAGJAHR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_1UF_TITLE_DATA-DAGJAHR.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit GJAHR, internal->external for field REFGJAHR
CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT'
  EXPORTING
    input =                      WA_J_1UF_TITLE_DATA-REFGJAHR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_1UF_TITLE_DATA-REFGJAHR.
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_TITLE_DATA_STR, 
BUTXT TYPE STRING,
BUTXT1 TYPE STRING,
BUINN01 TYPE STRING,
BUINN02 TYPE STRING,
BUSTCDT TYPE STRING,
BUREGIO TYPE STRING,
BUORT02 TYPE STRING,
BUORT01 TYPE STRING,
BUSTRAS TYPE STRING,
BUHOUSE TYPE STRING,
BUHOUS2 TYPE STRING,
BUPSTLZ TYPE STRING,
BUTELF1 TYPE STRING,
BUADR TYPE STRING,
BUADR1 TYPE STRING,
BUADR2 TYPE STRING,
CONTR_D TYPE STRING,
CONTR_N TYPE STRING,
PAYMDIR TYPE STRING,
PAYMDIR_H TYPE STRING,
HXREF2 TYPE STRING,
DABELNR TYPE STRING,
HDBELNR TYPE STRING,
CORR_BELNR TYPE STRING,
DAGJAHR TYPE STRING,
DERLDT TYPE STRING,
TDSPRAS TYPE STRING,
TDNAME TYPE STRING,
NACLDATA TYPE STRING,
REFBEL TYPE STRING,
REFBELNR TYPE STRING,
REFDATA TYPE STRING,
BKTXT TYPE STRING,
CLNAME1 TYPE STRING,
CLNAME2 TYPE STRING,
CLNAME3 TYPE STRING,
CLINN01 TYPE STRING,
CLINN02 TYPE STRING,
CLSTCDT TYPE STRING,
CLREGIO TYPE STRING,
CLORT02 TYPE STRING,
CLORT01 TYPE STRING,
CLSTRAS TYPE STRING,
CLHOUSE TYPE STRING,
CLHOUS2 TYPE STRING,
CLPSTLZ TYPE STRING,
CLTELF1 TYPE STRING,
CLADR TYPE STRING,
CLADR1 TYPE STRING,
CLADR2 TYPE STRING,
SAVE_FORM TYPE STRING,
R_TYPE TYPE STRING,
C_ACC TYPE STRING,
HDEXEMP1 TYPE STRING,
HDEXEMP2 TYPE STRING,
HDEXEMP2ADD TYPE STRING,
ACTIVITY_CODE_TAXINV TYPE STRING,
ACTIVITY_CODE_TAXCORINV TYPE STRING,
PAYMDATE TYPE STRING,
REFGJAHR TYPE STRING,
CL_BRANCH_NUM TYPE STRING,
SUMMARY TYPE STRING,
HFREE TYPE STRING,
C_ACC_ID TYPE STRING,
HTINSEL TYPE STRING,
HTINBUY TYPE STRING,
COR_RSN_CODE_GLOBAL TYPE STRING,END OF T_EKKO_STR.
DATA: WA_J_1UF_TITLE_DATA_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_TITLE_DATA_STR-BUTXT sy-vline 
WA_J_1UF_TITLE_DATA_STR-BUTXT1 sy-vline 
WA_J_1UF_TITLE_DATA_STR-BUINN01 sy-vline 
WA_J_1UF_TITLE_DATA_STR-BUINN02 sy-vline 
WA_J_1UF_TITLE_DATA_STR-BUSTCDT sy-vline 
WA_J_1UF_TITLE_DATA_STR-BUREGIO sy-vline 
WA_J_1UF_TITLE_DATA_STR-BUORT02 sy-vline 
WA_J_1UF_TITLE_DATA_STR-BUORT01 sy-vline 
WA_J_1UF_TITLE_DATA_STR-BUSTRAS sy-vline 
WA_J_1UF_TITLE_DATA_STR-BUHOUSE sy-vline 
WA_J_1UF_TITLE_DATA_STR-BUHOUS2 sy-vline 
WA_J_1UF_TITLE_DATA_STR-BUPSTLZ sy-vline 
WA_J_1UF_TITLE_DATA_STR-BUTELF1 sy-vline 
WA_J_1UF_TITLE_DATA_STR-BUADR sy-vline 
WA_J_1UF_TITLE_DATA_STR-BUADR1 sy-vline 
WA_J_1UF_TITLE_DATA_STR-BUADR2 sy-vline 
WA_J_1UF_TITLE_DATA_STR-CONTR_D sy-vline 
WA_J_1UF_TITLE_DATA_STR-CONTR_N sy-vline 
WA_J_1UF_TITLE_DATA_STR-PAYMDIR sy-vline 
WA_J_1UF_TITLE_DATA_STR-PAYMDIR_H sy-vline 
WA_J_1UF_TITLE_DATA_STR-HXREF2 sy-vline 
WA_J_1UF_TITLE_DATA_STR-DABELNR sy-vline 
WA_J_1UF_TITLE_DATA_STR-HDBELNR sy-vline 
WA_J_1UF_TITLE_DATA_STR-CORR_BELNR sy-vline 
WA_J_1UF_TITLE_DATA_STR-DAGJAHR sy-vline 
WA_J_1UF_TITLE_DATA_STR-DERLDT sy-vline 
WA_J_1UF_TITLE_DATA_STR-TDSPRAS sy-vline 
WA_J_1UF_TITLE_DATA_STR-TDNAME sy-vline 
WA_J_1UF_TITLE_DATA_STR-NACLDATA sy-vline 
WA_J_1UF_TITLE_DATA_STR-REFBEL sy-vline 
WA_J_1UF_TITLE_DATA_STR-REFBELNR sy-vline 
WA_J_1UF_TITLE_DATA_STR-REFDATA sy-vline 
WA_J_1UF_TITLE_DATA_STR-BKTXT sy-vline 
WA_J_1UF_TITLE_DATA_STR-CLNAME1 sy-vline 
WA_J_1UF_TITLE_DATA_STR-CLNAME2 sy-vline 
WA_J_1UF_TITLE_DATA_STR-CLNAME3 sy-vline 
WA_J_1UF_TITLE_DATA_STR-CLINN01 sy-vline 
WA_J_1UF_TITLE_DATA_STR-CLINN02 sy-vline 
WA_J_1UF_TITLE_DATA_STR-CLSTCDT sy-vline 
WA_J_1UF_TITLE_DATA_STR-CLREGIO sy-vline 
WA_J_1UF_TITLE_DATA_STR-CLORT02 sy-vline 
WA_J_1UF_TITLE_DATA_STR-CLORT01 sy-vline 
WA_J_1UF_TITLE_DATA_STR-CLSTRAS sy-vline 
WA_J_1UF_TITLE_DATA_STR-CLHOUSE sy-vline 
WA_J_1UF_TITLE_DATA_STR-CLHOUS2 sy-vline 
WA_J_1UF_TITLE_DATA_STR-CLPSTLZ sy-vline 
WA_J_1UF_TITLE_DATA_STR-CLTELF1 sy-vline 
WA_J_1UF_TITLE_DATA_STR-CLADR sy-vline 
WA_J_1UF_TITLE_DATA_STR-CLADR1 sy-vline 
WA_J_1UF_TITLE_DATA_STR-CLADR2 sy-vline 
WA_J_1UF_TITLE_DATA_STR-SAVE_FORM sy-vline 
WA_J_1UF_TITLE_DATA_STR-R_TYPE sy-vline 
WA_J_1UF_TITLE_DATA_STR-C_ACC sy-vline 
WA_J_1UF_TITLE_DATA_STR-HDEXEMP1 sy-vline 
WA_J_1UF_TITLE_DATA_STR-HDEXEMP2 sy-vline 
WA_J_1UF_TITLE_DATA_STR-HDEXEMP2ADD sy-vline 
WA_J_1UF_TITLE_DATA_STR-ACTIVITY_CODE_TAXINV sy-vline 
WA_J_1UF_TITLE_DATA_STR-ACTIVITY_CODE_TAXCORINV sy-vline 
WA_J_1UF_TITLE_DATA_STR-PAYMDATE sy-vline 
WA_J_1UF_TITLE_DATA_STR-REFGJAHR sy-vline 
WA_J_1UF_TITLE_DATA_STR-CL_BRANCH_NUM sy-vline 
WA_J_1UF_TITLE_DATA_STR-SUMMARY sy-vline 
WA_J_1UF_TITLE_DATA_STR-HFREE sy-vline 
WA_J_1UF_TITLE_DATA_STR-C_ACC_ID sy-vline 
WA_J_1UF_TITLE_DATA_STR-HTINSEL sy-vline 
WA_J_1UF_TITLE_DATA_STR-HTINBUY sy-vline 
WA_J_1UF_TITLE_DATA_STR-COR_RSN_CODE_GLOBAL sy-vline      INTO ld_text SEPARATED BY SPACE.

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