ABAP Select data from SAP table HRPAD50 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 HRPAD50 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 HRPAD50. 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 HRPAD50 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_HRPAD50 TYPE STANDARD TABLE OF HRPAD50,
      WA_HRPAD50 TYPE HRPAD50,
      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: <HRPAD50> TYPE HRPAD50.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM HRPAD50
*  INTO TABLE @DATA(IT_HRPAD502).
*--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_HRPAD50 INDEX 1 INTO DATA(WA_HRPAD502).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<HRPAD50>-MANDT = 1.
<HRPAD50>-ADATANR = 1.
<HRPAD50>-EVATY = 1.
<HRPAD50>-CRT00 = 1.
<HRPAD50>-CRT01 = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_HRPAD50-CRT02, sy-vline,
  WA_HRPAD50-CRT03, sy-vline,
  WA_HRPAD50-CRT04, sy-vline,
  WA_HRPAD50-CRT05, sy-vline,
  WA_HRPAD50-CRT06, sy-vline,
  WA_HRPAD50-CRT07, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_HRPAD50 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_HRPAD50 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_HRPAD50 INTO WA_HRPAD50.


*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_HRPAD50_STR, 
MANDT TYPE STRING,
ADATANR TYPE STRING,
EVATY TYPE STRING,
CRT00 TYPE STRING,
CRT01 TYPE STRING,
CRT02 TYPE STRING,
CRT03 TYPE STRING,
CRT04 TYPE STRING,
CRT05 TYPE STRING,
CRT06 TYPE STRING,
CRT07 TYPE STRING,
CRT08 TYPE STRING,
CRT09 TYPE STRING,
CRT10 TYPE STRING,
CRT11 TYPE STRING,
CRT12 TYPE STRING,
CRT13 TYPE STRING,
CRT14 TYPE STRING,
CRT15 TYPE STRING,
CRT16 TYPE STRING,
CRT17 TYPE STRING,
CRT18 TYPE STRING,
CRT19 TYPE STRING,
CRT20 TYPE STRING,
CRT21 TYPE STRING,
CRT22 TYPE STRING,
CRT23 TYPE STRING,
CRT24 TYPE STRING,
CRT25 TYPE STRING,
CRT26 TYPE STRING,
CRT27 TYPE STRING,
CRT28 TYPE STRING,
CRT29 TYPE STRING,
CRT30 TYPE STRING,
CRT31 TYPE STRING,
CRT32 TYPE STRING,
CRT33 TYPE STRING,
CRT34 TYPE STRING,
CRT35 TYPE STRING,
CRT36 TYPE STRING,
CRT37 TYPE STRING,
CRT38 TYPE STRING,
CRT39 TYPE STRING,
CRT40 TYPE STRING,
CRT41 TYPE STRING,
CRT42 TYPE STRING,
CRT43 TYPE STRING,
CRT44 TYPE STRING,
CRT45 TYPE STRING,
CRT46 TYPE STRING,
CRT47 TYPE STRING,
CRT48 TYPE STRING,
CRT49 TYPE STRING,
CRT50 TYPE STRING,
CRT51 TYPE STRING,
CRT52 TYPE STRING,
CRT53 TYPE STRING,
CRT54 TYPE STRING,
CRT55 TYPE STRING,
CRT56 TYPE STRING,
CRT57 TYPE STRING,
CRT58 TYPE STRING,
CRT59 TYPE STRING,
CRT60 TYPE STRING,
CRT61 TYPE STRING,
CRT62 TYPE STRING,
CRT63 TYPE STRING,
CRT64 TYPE STRING,
CRT65 TYPE STRING,
CRT66 TYPE STRING,
CRT67 TYPE STRING,
CRT68 TYPE STRING,
CRT69 TYPE STRING,
CRT70 TYPE STRING,
CRT71 TYPE STRING,
CRT72 TYPE STRING,
CRT73 TYPE STRING,
CRT74 TYPE STRING,
CRT75 TYPE STRING,END OF T_EKKO_STR.
DATA: WA_HRPAD50_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_HRPAD50_STR-MANDT sy-vline 
WA_HRPAD50_STR-ADATANR sy-vline 
WA_HRPAD50_STR-EVATY sy-vline 
WA_HRPAD50_STR-CRT00 sy-vline 
WA_HRPAD50_STR-CRT01 sy-vline 
WA_HRPAD50_STR-CRT02 sy-vline 
WA_HRPAD50_STR-CRT03 sy-vline 
WA_HRPAD50_STR-CRT04 sy-vline 
WA_HRPAD50_STR-CRT05 sy-vline 
WA_HRPAD50_STR-CRT06 sy-vline 
WA_HRPAD50_STR-CRT07 sy-vline 
WA_HRPAD50_STR-CRT08 sy-vline 
WA_HRPAD50_STR-CRT09 sy-vline 
WA_HRPAD50_STR-CRT10 sy-vline 
WA_HRPAD50_STR-CRT11 sy-vline 
WA_HRPAD50_STR-CRT12 sy-vline 
WA_HRPAD50_STR-CRT13 sy-vline 
WA_HRPAD50_STR-CRT14 sy-vline 
WA_HRPAD50_STR-CRT15 sy-vline 
WA_HRPAD50_STR-CRT16 sy-vline 
WA_HRPAD50_STR-CRT17 sy-vline 
WA_HRPAD50_STR-CRT18 sy-vline 
WA_HRPAD50_STR-CRT19 sy-vline 
WA_HRPAD50_STR-CRT20 sy-vline 
WA_HRPAD50_STR-CRT21 sy-vline 
WA_HRPAD50_STR-CRT22 sy-vline 
WA_HRPAD50_STR-CRT23 sy-vline 
WA_HRPAD50_STR-CRT24 sy-vline 
WA_HRPAD50_STR-CRT25 sy-vline 
WA_HRPAD50_STR-CRT26 sy-vline 
WA_HRPAD50_STR-CRT27 sy-vline 
WA_HRPAD50_STR-CRT28 sy-vline 
WA_HRPAD50_STR-CRT29 sy-vline 
WA_HRPAD50_STR-CRT30 sy-vline 
WA_HRPAD50_STR-CRT31 sy-vline 
WA_HRPAD50_STR-CRT32 sy-vline 
WA_HRPAD50_STR-CRT33 sy-vline 
WA_HRPAD50_STR-CRT34 sy-vline 
WA_HRPAD50_STR-CRT35 sy-vline 
WA_HRPAD50_STR-CRT36 sy-vline 
WA_HRPAD50_STR-CRT37 sy-vline 
WA_HRPAD50_STR-CRT38 sy-vline 
WA_HRPAD50_STR-CRT39 sy-vline 
WA_HRPAD50_STR-CRT40 sy-vline 
WA_HRPAD50_STR-CRT41 sy-vline 
WA_HRPAD50_STR-CRT42 sy-vline 
WA_HRPAD50_STR-CRT43 sy-vline 
WA_HRPAD50_STR-CRT44 sy-vline 
WA_HRPAD50_STR-CRT45 sy-vline 
WA_HRPAD50_STR-CRT46 sy-vline 
WA_HRPAD50_STR-CRT47 sy-vline 
WA_HRPAD50_STR-CRT48 sy-vline 
WA_HRPAD50_STR-CRT49 sy-vline 
WA_HRPAD50_STR-CRT50 sy-vline 
WA_HRPAD50_STR-CRT51 sy-vline 
WA_HRPAD50_STR-CRT52 sy-vline 
WA_HRPAD50_STR-CRT53 sy-vline 
WA_HRPAD50_STR-CRT54 sy-vline 
WA_HRPAD50_STR-CRT55 sy-vline 
WA_HRPAD50_STR-CRT56 sy-vline 
WA_HRPAD50_STR-CRT57 sy-vline 
WA_HRPAD50_STR-CRT58 sy-vline 
WA_HRPAD50_STR-CRT59 sy-vline 
WA_HRPAD50_STR-CRT60 sy-vline 
WA_HRPAD50_STR-CRT61 sy-vline 
WA_HRPAD50_STR-CRT62 sy-vline 
WA_HRPAD50_STR-CRT63 sy-vline 
WA_HRPAD50_STR-CRT64 sy-vline 
WA_HRPAD50_STR-CRT65 sy-vline 
WA_HRPAD50_STR-CRT66 sy-vline 
WA_HRPAD50_STR-CRT67 sy-vline 
WA_HRPAD50_STR-CRT68 sy-vline 
WA_HRPAD50_STR-CRT69 sy-vline 
WA_HRPAD50_STR-CRT70 sy-vline 
WA_HRPAD50_STR-CRT71 sy-vline 
WA_HRPAD50_STR-CRT72 sy-vline 
WA_HRPAD50_STR-CRT73 sy-vline 
WA_HRPAD50_STR-CRT74 sy-vline 
WA_HRPAD50_STR-CRT75 sy-vline      INTO ld_text SEPARATED BY SPACE.

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