ABAP Select data from SAP table ESSOPTIONS 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 ESSOPTIONS 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 ESSOPTIONS. 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 ESSOPTIONS 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_ESSOPTIONS TYPE STANDARD TABLE OF ESSOPTIONS,
      WA_ESSOPTIONS TYPE ESSOPTIONS,
      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: <ESSOPTIONS> TYPE ESSOPTIONS.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM ESSOPTIONS
*  INTO TABLE @DATA(IT_ESSOPTIONS2).
*--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_ESSOPTIONS INDEX 1 INTO DATA(WA_ESSOPTIONS2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<ESSOPTIONS>-SYSTMESS = 1.
<ESSOPTIONS>-UNRDMAILS = 1.
<ESSOPTIONS>-WRKITEMS = 1.
<ESSOPTIONS>-DATEDAY = 1.
<ESSOPTIONS>-WELCOME = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_ESSOPTIONS-BIRTHDAY, sy-vline,
  WA_ESSOPTIONS-PICTURE, sy-vline,
  WA_ESSOPTIONS-PERSFOTO, sy-vline,
  WA_ESSOPTIONS-TELSHRTCUT, sy-vline,
  WA_ESSOPTIONS-NAVIGATION, sy-vline,
  WA_ESSOPTIONS-LNKSEPWIN, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_ESSOPTIONS 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_ESSOPTIONS 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_ESSOPTIONS INTO WA_ESSOPTIONS.


*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.
ENDFORM. 

*&---------------------------------------------------------------------*
*& Form process_as_string_field_values
*&---------------------------------------------------------------------*
FORM process_as_string_field_values CHANGING p_EKKO LIKE wa_EKKO.

TYPES: BEGIN OF T_ESSOPTIONS_STR, 
SYSTMESS TYPE STRING,
UNRDMAILS TYPE STRING,
WRKITEMS TYPE STRING,
DATEDAY TYPE STRING,
WELCOME TYPE STRING,
BIRTHDAY TYPE STRING,
PICTURE TYPE STRING,
PERSFOTO TYPE STRING,
TELSHRTCUT TYPE STRING,
NAVIGATION TYPE STRING,
LNKSEPWIN TYPE STRING,
ESSJAVAON TYPE STRING,
APPLANIMAT TYPE STRING,
PWREMIND TYPE STRING,
ESSPORTAL TYPE STRING,
CALENDAR TYPE STRING,
ORGCHART TYPE STRING,
OWNDATACHG TYPE STRING,
OWNFOTOCHG TYPE STRING,
SYSMESUSR TYPE STRING,
WELTEXT TYPE STRING,
BIRTHTEXT TYPE STRING,
PICTUREURL TYPE STRING,
PWREFER TYPE STRING,
ESSPORTURL TYPE STRING,END OF T_EKKO_STR.
DATA: WA_ESSOPTIONS_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_ESSOPTIONS_STR-SYSTMESS sy-vline 
WA_ESSOPTIONS_STR-UNRDMAILS sy-vline 
WA_ESSOPTIONS_STR-WRKITEMS sy-vline 
WA_ESSOPTIONS_STR-DATEDAY sy-vline 
WA_ESSOPTIONS_STR-WELCOME sy-vline 
WA_ESSOPTIONS_STR-BIRTHDAY sy-vline 
WA_ESSOPTIONS_STR-PICTURE sy-vline 
WA_ESSOPTIONS_STR-PERSFOTO sy-vline 
WA_ESSOPTIONS_STR-TELSHRTCUT sy-vline 
WA_ESSOPTIONS_STR-NAVIGATION sy-vline 
WA_ESSOPTIONS_STR-LNKSEPWIN sy-vline 
WA_ESSOPTIONS_STR-ESSJAVAON sy-vline 
WA_ESSOPTIONS_STR-APPLANIMAT sy-vline 
WA_ESSOPTIONS_STR-PWREMIND sy-vline 
WA_ESSOPTIONS_STR-ESSPORTAL sy-vline 
WA_ESSOPTIONS_STR-CALENDAR sy-vline 
WA_ESSOPTIONS_STR-ORGCHART sy-vline 
WA_ESSOPTIONS_STR-OWNDATACHG sy-vline 
WA_ESSOPTIONS_STR-OWNFOTOCHG sy-vline 
WA_ESSOPTIONS_STR-SYSMESUSR sy-vline 
WA_ESSOPTIONS_STR-WELTEXT sy-vline 
WA_ESSOPTIONS_STR-BIRTHTEXT sy-vline 
WA_ESSOPTIONS_STR-PICTUREURL sy-vline 
WA_ESSOPTIONS_STR-PWREFER sy-vline 
WA_ESSOPTIONS_STR-ESSPORTURL sy-vline      INTO ld_text SEPARATED BY SPACE.

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