ABAP Select data from SAP table HRDEPBSVASENS_LOG_P85A1 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 HRDEPBSVASENS_LOG_P85A1 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 HRDEPBSVASENS_LOG_P85A1. 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 HRDEPBSVASENS_LOG_P85A1 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_HRDEPBSVASENS_LOG_P85A1 TYPE STANDARD TABLE OF HRDEPBSVASENS_LOG_P85A1,
      WA_HRDEPBSVASENS_LOG_P85A1 TYPE HRDEPBSVASENS_LOG_P85A1,
      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: <HRDEPBSVASENS_LOG_P85A1> TYPE HRDEPBSVASENS_LOG_P85A1.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM HRDEPBSVASENS_LOG_P85A1
*  INTO TABLE @DATA(IT_HRDEPBSVASENS_LOG_P85A12).
*--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_HRDEPBSVASENS_LOG_P85A1 INDEX 1 INTO DATA(WA_HRDEPBSVASENS_LOG_P85A12).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<HRDEPBSVASENS_LOG_P85A1>-CALYYDURIVU = 1.
<HRDEPBSVASENS_LOG_P85A1>-CALMMDURIVU = 1.
<HRDEPBSVASENS_LOG_P85A1>-CALDDDURIVU = 1.
<HRDEPBSVASENS_LOG_P85A1>-CVYDYCVDIVU = 1.
<HRDEPBSVASENS_LOG_P85A1>-VHSVBIVU = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_HRDEPBSVASENS_LOG_P85A1-CVYDY_DECIVD, sy-vline,
  WA_HRDEPBSVASENS_LOG_P85A1-CALYYINOINU, sy-vline,
  WA_HRDEPBSVASENS_LOG_P85A1-CALMMINOINU, sy-vline,
  WA_HRDEPBSVASENS_LOG_P85A1-CALDDINOINU, sy-vline,
  WA_HRDEPBSVASENS_LOG_P85A1-EINVFZ55INU, sy-vline,
  WA_HRDEPBSVASENS_LOG_P85A1-GRDVFZ55INU, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_HRDEPBSVASENS_LOG_P85A1 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_HRDEPBSVASENS_LOG_P85A1 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_HRDEPBSVASENS_LOG_P85A1 INTO WA_HRDEPBSVASENS_LOG_P85A1.


*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_HRDEPBSVASENS_LOG_P85A1_STR, 
CALYYDURIVU TYPE STRING,
CALMMDURIVU TYPE STRING,
CALDDDURIVU TYPE STRING,
CVYDYCVDIVU TYPE STRING,
VHSVBIVU TYPE STRING,
CVYDY_DECIVD TYPE STRING,
CALYYINOINU TYPE STRING,
CALMMINOINU TYPE STRING,
CALDDINOINU TYPE STRING,
EINVFZ55INU TYPE STRING,
GRDVFZ55INU TYPE STRING,
IST_DIENSTUNFAEHIGZ55INU TYPE STRING,
IST_DIENSTUNFALLZ55INU TYPE STRING,
GRD_KP13A1Z55INU TYPE STRING,
NUMERZ55INU TYPE STRING,
DENOMZ55INU TYPE STRING,
CALYYZ5DINU TYPE STRING,
CALMMZ5DINU TYPE STRING,
CALDDZ5DINU TYPE STRING,
CALYYDURINU TYPE STRING,
CALMMDURINU TYPE STRING,
CALDDDURINU TYPE STRING,
CALYYFS1RKD TYPE STRING,
CALMMFS1RKD TYPE STRING,
CALDDFS1RKD TYPE STRING,
CALYYFS2RKD TYPE STRING,
CALMMFS2RKD TYPE STRING,
CALDDFS2RKD TYPE STRING,
CALYYRKR TYPE STRING,
CALMMRKR TYPE STRING,
CALDDRKR TYPE STRING,
CALYYISR TYPE STRING,
CALMMISR TYPE STRING,
CALDDISR TYPE STRING,
CALYYI9R TYPE STRING,
CALMMI9R TYPE STRING,
CALDDI9R TYPE STRING,
CALYYSZV TYPE STRING,
CALMMSZV TYPE STRING,
CALDDSZV TYPE STRING,
CALYYINR TYPE STRING,
CALMMINR TYPE STRING,
CALDDINR TYPE STRING,
JAHRERYDCVD TYPE STRING,
TAGERYDCVD TYPE STRING,
CVDDYCVD TYPE STRING,
CVYDYCVD TYPE STRING,
RGYDCVD TYPE STRING,
FARGSCVD TYPE STRING,
VHSVB_N92 TYPE STRING,
VHSVB_VOR69E TYPE STRING,
ANP69E TYPE STRING,
VHSVB_NACH69E TYPE STRING,
VHSVB_NACH69E_UNG TYPE STRING,
RGVH_VOR_ERH TYPE STRING,
ERHOEHUNG TYPE STRING,
RGVH_NACH_ERH TYPE STRING,
RGVH_OHNE_SOCKEL TYPE STRING,
SOCKEL TYPE STRING,
RGVH_GESAMT TYPE STRING,END OF T_EKKO_STR.
DATA: WA_HRDEPBSVASENS_LOG_P85A1_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_HRDEPBSVASENS_LOG_P85A1_STR-CALYYDURIVU sy-vline 
WA_HRDEPBSVASENS_LOG_P85A1_STR-CALMMDURIVU sy-vline 
WA_HRDEPBSVASENS_LOG_P85A1_STR-CALDDDURIVU sy-vline 
WA_HRDEPBSVASENS_LOG_P85A1_STR-CVYDYCVDIVU sy-vline 
WA_HRDEPBSVASENS_LOG_P85A1_STR-VHSVBIVU sy-vline 
WA_HRDEPBSVASENS_LOG_P85A1_STR-CVYDY_DECIVD sy-vline 
WA_HRDEPBSVASENS_LOG_P85A1_STR-CALYYINOINU sy-vline 
WA_HRDEPBSVASENS_LOG_P85A1_STR-CALMMINOINU sy-vline 
WA_HRDEPBSVASENS_LOG_P85A1_STR-CALDDINOINU sy-vline 
WA_HRDEPBSVASENS_LOG_P85A1_STR-EINVFZ55INU sy-vline 
WA_HRDEPBSVASENS_LOG_P85A1_STR-GRDVFZ55INU sy-vline 
WA_HRDEPBSVASENS_LOG_P85A1_STR-IST_DIENSTUNFAEHIGZ55INU sy-vline 
WA_HRDEPBSVASENS_LOG_P85A1_STR-IST_DIENSTUNFALLZ55INU sy-vline 
WA_HRDEPBSVASENS_LOG_P85A1_STR-GRD_KP13A1Z55INU sy-vline 
WA_HRDEPBSVASENS_LOG_P85A1_STR-NUMERZ55INU sy-vline 
WA_HRDEPBSVASENS_LOG_P85A1_STR-DENOMZ55INU sy-vline 
WA_HRDEPBSVASENS_LOG_P85A1_STR-CALYYZ5DINU sy-vline 
WA_HRDEPBSVASENS_LOG_P85A1_STR-CALMMZ5DINU sy-vline 
WA_HRDEPBSVASENS_LOG_P85A1_STR-CALDDZ5DINU sy-vline 
WA_HRDEPBSVASENS_LOG_P85A1_STR-CALYYDURINU sy-vline 
WA_HRDEPBSVASENS_LOG_P85A1_STR-CALMMDURINU sy-vline 
WA_HRDEPBSVASENS_LOG_P85A1_STR-CALDDDURINU sy-vline 
WA_HRDEPBSVASENS_LOG_P85A1_STR-CALYYFS1RKD sy-vline 
WA_HRDEPBSVASENS_LOG_P85A1_STR-CALMMFS1RKD sy-vline 
WA_HRDEPBSVASENS_LOG_P85A1_STR-CALDDFS1RKD sy-vline 
WA_HRDEPBSVASENS_LOG_P85A1_STR-CALYYFS2RKD sy-vline 
WA_HRDEPBSVASENS_LOG_P85A1_STR-CALMMFS2RKD sy-vline 
WA_HRDEPBSVASENS_LOG_P85A1_STR-CALDDFS2RKD sy-vline 
WA_HRDEPBSVASENS_LOG_P85A1_STR-CALYYRKR sy-vline 
WA_HRDEPBSVASENS_LOG_P85A1_STR-CALMMRKR sy-vline 
WA_HRDEPBSVASENS_LOG_P85A1_STR-CALDDRKR sy-vline 
WA_HRDEPBSVASENS_LOG_P85A1_STR-CALYYISR sy-vline 
WA_HRDEPBSVASENS_LOG_P85A1_STR-CALMMISR sy-vline 
WA_HRDEPBSVASENS_LOG_P85A1_STR-CALDDISR sy-vline 
WA_HRDEPBSVASENS_LOG_P85A1_STR-CALYYI9R sy-vline 
WA_HRDEPBSVASENS_LOG_P85A1_STR-CALMMI9R sy-vline 
WA_HRDEPBSVASENS_LOG_P85A1_STR-CALDDI9R sy-vline 
WA_HRDEPBSVASENS_LOG_P85A1_STR-CALYYSZV sy-vline 
WA_HRDEPBSVASENS_LOG_P85A1_STR-CALMMSZV sy-vline 
WA_HRDEPBSVASENS_LOG_P85A1_STR-CALDDSZV sy-vline 
WA_HRDEPBSVASENS_LOG_P85A1_STR-CALYYINR sy-vline 
WA_HRDEPBSVASENS_LOG_P85A1_STR-CALMMINR sy-vline 
WA_HRDEPBSVASENS_LOG_P85A1_STR-CALDDINR sy-vline 
WA_HRDEPBSVASENS_LOG_P85A1_STR-JAHRERYDCVD sy-vline 
WA_HRDEPBSVASENS_LOG_P85A1_STR-TAGERYDCVD sy-vline 
WA_HRDEPBSVASENS_LOG_P85A1_STR-CVDDYCVD sy-vline 
WA_HRDEPBSVASENS_LOG_P85A1_STR-CVYDYCVD sy-vline 
WA_HRDEPBSVASENS_LOG_P85A1_STR-RGYDCVD sy-vline 
WA_HRDEPBSVASENS_LOG_P85A1_STR-FARGSCVD sy-vline 
WA_HRDEPBSVASENS_LOG_P85A1_STR-VHSVB_N92 sy-vline 
WA_HRDEPBSVASENS_LOG_P85A1_STR-VHSVB_VOR69E sy-vline 
WA_HRDEPBSVASENS_LOG_P85A1_STR-ANP69E sy-vline 
WA_HRDEPBSVASENS_LOG_P85A1_STR-VHSVB_NACH69E sy-vline 
WA_HRDEPBSVASENS_LOG_P85A1_STR-VHSVB_NACH69E_UNG sy-vline 
WA_HRDEPBSVASENS_LOG_P85A1_STR-RGVH_VOR_ERH sy-vline 
WA_HRDEPBSVASENS_LOG_P85A1_STR-ERHOEHUNG sy-vline 
WA_HRDEPBSVASENS_LOG_P85A1_STR-RGVH_NACH_ERH sy-vline 
WA_HRDEPBSVASENS_LOG_P85A1_STR-RGVH_OHNE_SOCKEL sy-vline 
WA_HRDEPBSVASENS_LOG_P85A1_STR-SOCKEL sy-vline 
WA_HRDEPBSVASENS_LOG_P85A1_STR-RGVH_GESAMT sy-vline      INTO ld_text SEPARATED BY SPACE.

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