ABAP Select data from SAP table EPROFSEL_BLKNO_APPL02 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 EPROFSEL_BLKNO_APPL02 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 EPROFSEL_BLKNO_APPL02. 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 EPROFSEL_BLKNO_APPL02 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_EPROFSEL_BLKNO_APPL02 TYPE STANDARD TABLE OF EPROFSEL_BLKNO_APPL02,
      WA_EPROFSEL_BLKNO_APPL02 TYPE EPROFSEL_BLKNO_APPL02,
      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: <EPROFSEL_BLKNO_APPL02> TYPE EPROFSEL_BLKNO_APPL02.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM EPROFSEL_BLKNO_APPL02
*  INTO TABLE @DATA(IT_EPROFSEL_BLKNO_APPL022).
*--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_EPROFSEL_BLKNO_APPL02 INDEX 1 INTO DATA(WA_EPROFSEL_BLKNO_APPL022).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<EPROFSEL_BLKNO_APPL02>-INT_UITRA = 1.
<EPROFSEL_BLKNO_APPL02>-DATETOTRA = 1.
<EPROFSEL_BLKNO_APPL02>-TIMETOTRA = 1.
<EPROFSEL_BLKNO_APPL02>-DATEFROMTRA = 1.
<EPROFSEL_BLKNO_APPL02>-TIMEFROMTRA = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_EPROFSEL_BLKNO_APPL02-EXT_UITRA, sy-vline,
  WA_EPROFSEL_BLKNO_APPL02-ANLAGEINS, sy-vline,
  WA_EPROFSEL_BLKNO_APPL02-DATETOINS, sy-vline,
  WA_EPROFSEL_BLKNO_APPL02-TIMETOINS, sy-vline,
  WA_EPROFSEL_BLKNO_APPL02-DATEFROMINS, sy-vline,
  WA_EPROFSEL_BLKNO_APPL02-TIMEFROMINS, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_EPROFSEL_BLKNO_APPL02 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_EPROFSEL_BLKNO_APPL02 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_EPROFSEL_BLKNO_APPL02 INTO WA_EPROFSEL_BLKNO_APPL02.


*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 ANLAGEINS
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_EPROFSEL_BLKNO_APPL02-ANLAGEINS
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_EPROFSEL_BLKNO_APPL02-ANLAGEINS.
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_EPROFSEL_BLKNO_APPL02_STR, 
INT_UITRA TYPE STRING,
DATETOTRA TYPE STRING,
TIMETOTRA TYPE STRING,
DATEFROMTRA TYPE STRING,
TIMEFROMTRA TYPE STRING,
EXT_UITRA TYPE STRING,
ANLAGEINS TYPE STRING,
DATETOINS TYPE STRING,
TIMETOINS TYPE STRING,
DATEFROMINS TYPE STRING,
TIMEFROMINS TYPE STRING,
LOGIKZWEAS TYPE STRING,
DATETOEAS TYPE STRING,
TIMETOEAS TYPE STRING,
DATEFROMEAS TYPE STRING,
TIMEFROMEAS TYPE STRING,
DATETOETD TYPE STRING,
TIMETOETD TYPE STRING,
DATEFROMETD TYPE STRING,
TIMEFROMETD TYPE STRING,
KENNZIFFETD TYPE STRING,
PROFROLEPRO TYPE STRING,
DATETOPRO TYPE STRING,
TIMETOPRO TYPE STRING,
ROLENOPRO TYPE STRING,
DATEFROMPRO TYPE STRING,
TIMEFROMPRO TYPE STRING,
PROFILEPRO TYPE STRING,
ROLETYPEPRO TYPE STRING,
IND_PROFILE_NOT_ASSIGNED TYPE STRING,
FROM_MAX_FROM_SELECT TYPE STRING,
DATE TYPE STRING,
TIME TYPE STRING,
TO_MIN_FROM_SELECT TYPE STRING,
DATE TYPE STRING,
TIME TYPE STRING,
FROM_MAX_PER_TASK TYPE STRING,
DATE TYPE STRING,
TIME TYPE STRING,
TO_MIN_PER_TASK TYPE STRING,
DATE TYPE STRING,
TIME TYPE STRING,
FROM_MIN_PER_PROF TYPE STRING,
DATE TYPE STRING,
TIME TYPE STRING,
TO_MAX_PER_PROF TYPE STRING,
DATE TYPE STRING,
TIME TYPE STRING,END OF T_EKKO_STR.
DATA: WA_EPROFSEL_BLKNO_APPL02_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_EPROFSEL_BLKNO_APPL02_STR-INT_UITRA sy-vline 
WA_EPROFSEL_BLKNO_APPL02_STR-DATETOTRA sy-vline 
WA_EPROFSEL_BLKNO_APPL02_STR-TIMETOTRA sy-vline 
WA_EPROFSEL_BLKNO_APPL02_STR-DATEFROMTRA sy-vline 
WA_EPROFSEL_BLKNO_APPL02_STR-TIMEFROMTRA sy-vline 
WA_EPROFSEL_BLKNO_APPL02_STR-EXT_UITRA sy-vline 
WA_EPROFSEL_BLKNO_APPL02_STR-ANLAGEINS sy-vline 
WA_EPROFSEL_BLKNO_APPL02_STR-DATETOINS sy-vline 
WA_EPROFSEL_BLKNO_APPL02_STR-TIMETOINS sy-vline 
WA_EPROFSEL_BLKNO_APPL02_STR-DATEFROMINS sy-vline 
WA_EPROFSEL_BLKNO_APPL02_STR-TIMEFROMINS sy-vline 
WA_EPROFSEL_BLKNO_APPL02_STR-LOGIKZWEAS sy-vline 
WA_EPROFSEL_BLKNO_APPL02_STR-DATETOEAS sy-vline 
WA_EPROFSEL_BLKNO_APPL02_STR-TIMETOEAS sy-vline 
WA_EPROFSEL_BLKNO_APPL02_STR-DATEFROMEAS sy-vline 
WA_EPROFSEL_BLKNO_APPL02_STR-TIMEFROMEAS sy-vline 
WA_EPROFSEL_BLKNO_APPL02_STR-DATETOETD sy-vline 
WA_EPROFSEL_BLKNO_APPL02_STR-TIMETOETD sy-vline 
WA_EPROFSEL_BLKNO_APPL02_STR-DATEFROMETD sy-vline 
WA_EPROFSEL_BLKNO_APPL02_STR-TIMEFROMETD sy-vline 
WA_EPROFSEL_BLKNO_APPL02_STR-KENNZIFFETD sy-vline 
WA_EPROFSEL_BLKNO_APPL02_STR-PROFROLEPRO sy-vline 
WA_EPROFSEL_BLKNO_APPL02_STR-DATETOPRO sy-vline 
WA_EPROFSEL_BLKNO_APPL02_STR-TIMETOPRO sy-vline 
WA_EPROFSEL_BLKNO_APPL02_STR-ROLENOPRO sy-vline 
WA_EPROFSEL_BLKNO_APPL02_STR-DATEFROMPRO sy-vline 
WA_EPROFSEL_BLKNO_APPL02_STR-TIMEFROMPRO sy-vline 
WA_EPROFSEL_BLKNO_APPL02_STR-PROFILEPRO sy-vline 
WA_EPROFSEL_BLKNO_APPL02_STR-ROLETYPEPRO sy-vline 
WA_EPROFSEL_BLKNO_APPL02_STR-IND_PROFILE_NOT_ASSIGNED sy-vline 
WA_EPROFSEL_BLKNO_APPL02_STR-FROM_MAX_FROM_SELECT sy-vline 
WA_EPROFSEL_BLKNO_APPL02_STR-DATE sy-vline 
WA_EPROFSEL_BLKNO_APPL02_STR-TIME sy-vline 
WA_EPROFSEL_BLKNO_APPL02_STR-TO_MIN_FROM_SELECT sy-vline 
WA_EPROFSEL_BLKNO_APPL02_STR-DATE sy-vline 
WA_EPROFSEL_BLKNO_APPL02_STR-TIME sy-vline 
WA_EPROFSEL_BLKNO_APPL02_STR-FROM_MAX_PER_TASK sy-vline 
WA_EPROFSEL_BLKNO_APPL02_STR-DATE sy-vline 
WA_EPROFSEL_BLKNO_APPL02_STR-TIME sy-vline 
WA_EPROFSEL_BLKNO_APPL02_STR-TO_MIN_PER_TASK sy-vline 
WA_EPROFSEL_BLKNO_APPL02_STR-DATE sy-vline 
WA_EPROFSEL_BLKNO_APPL02_STR-TIME sy-vline 
WA_EPROFSEL_BLKNO_APPL02_STR-FROM_MIN_PER_PROF sy-vline 
WA_EPROFSEL_BLKNO_APPL02_STR-DATE sy-vline 
WA_EPROFSEL_BLKNO_APPL02_STR-TIME sy-vline 
WA_EPROFSEL_BLKNO_APPL02_STR-TO_MAX_PER_PROF sy-vline 
WA_EPROFSEL_BLKNO_APPL02_STR-DATE sy-vline 
WA_EPROFSEL_BLKNO_APPL02_STR-TIME sy-vline      INTO ld_text SEPARATED BY SPACE.

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