ABAP Select data from SAP table HRP1670 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 HRP1670 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 HRP1670. 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 HRP1670 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_HRP1670 TYPE STANDARD TABLE OF HRP1670,
      WA_HRP1670 TYPE HRP1670,
      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: <HRP1670> TYPE HRP1670.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM HRP1670
*  INTO TABLE @DATA(IT_HRP16702).
*--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_HRP1670 INDEX 1 INTO DATA(WA_HRP16702).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<HRP1670>-MANDT = 1.
<HRP1670>-PLVAR = 1.
<HRP1670>-OTYPE = 1.
<HRP1670>-OBJID = 1.
<HRP1670>-SUBTY = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_HRP1670-ISTAT, sy-vline,
  WA_HRP1670-BEGDA, sy-vline,
  WA_HRP1670-ENDDA, sy-vline,
  WA_HRP1670-VARYF, sy-vline,
  WA_HRP1670-SEQNR, sy-vline,
  WA_HRP1670-INFTY, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_HRP1670 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_HRP1670 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_HRP1670 INTO WA_HRP1670.


*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 ISOLA, internal->external for field JAZYK
CALL FUNCTION 'CONVERSION_EXIT_ISOLA_OUTPUT'
  EXPORTING
    input =                      WA_HRP1670-JAZYK
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_HRP1670-JAZYK.
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_HRP1670_STR, 
MANDT TYPE STRING,
PLVAR TYPE STRING,
OTYPE TYPE STRING,
OBJID TYPE STRING,
SUBTY TYPE STRING,
ISTAT TYPE STRING,
BEGDA TYPE STRING,
ENDDA TYPE STRING,
VARYF TYPE STRING,
SEQNR TYPE STRING,
INFTY TYPE STRING,
OTJID TYPE STRING,
AEDTM TYPE STRING,
UNAME TYPE STRING,
REASN TYPE STRING,
HISTO TYPE STRING,
ITXNR TYPE STRING,
TYPPLM TYPE STRING,
STUUTA TYPE STRING,
KAPKTLG TYPE STRING,
PLATRI TYPE STRING,
DOCSN TYPE STRING,
VYJPT TYPE STRING,
PLATRIDS TYPE STRING,
NAPCIN TYPE STRING,
RIDFUN TYPE STRING,
UVAZEK TYPE STRING,
PLAHOD TYPE STRING,
KPV TYPE STRING,
SMEVYKPRA TYPE STRING,
ZARLIN TYPE STRING,
SKZVLPRI TYPE STRING,
JAZZK TYPE STRING,
JAZYK TYPE STRING,
SKOEU TYPE STRING,
VYJPLST TYPE STRING,
VYJVZD TYPE STRING,
PRIZPR TYPE STRING,
UCELZRI TYPE STRING,
ZAMSS TYPE STRING,
CIVSERS TYPE STRING,
DIVSER1 TYPE STRING,
DIVSER2 TYPE STRING,
DIVSER3 TYPE STRING,
DIVSER4 TYPE STRING,
DIVSER5 TYPE STRING,
SERVICE_POS_ID TYPE STRING,
COMPET_BAN_EE TYPE STRING,
SERPO_WP TYPE STRING,
SERPO_WPB TYPE STRING,
SPEC_WP TYPE STRING,END OF T_EKKO_STR.
DATA: WA_HRP1670_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_HRP1670_STR-MANDT sy-vline 
WA_HRP1670_STR-PLVAR sy-vline 
WA_HRP1670_STR-OTYPE sy-vline 
WA_HRP1670_STR-OBJID sy-vline 
WA_HRP1670_STR-SUBTY sy-vline 
WA_HRP1670_STR-ISTAT sy-vline 
WA_HRP1670_STR-BEGDA sy-vline 
WA_HRP1670_STR-ENDDA sy-vline 
WA_HRP1670_STR-VARYF sy-vline 
WA_HRP1670_STR-SEQNR sy-vline 
WA_HRP1670_STR-INFTY sy-vline 
WA_HRP1670_STR-OTJID sy-vline 
WA_HRP1670_STR-AEDTM sy-vline 
WA_HRP1670_STR-UNAME sy-vline 
WA_HRP1670_STR-REASN sy-vline 
WA_HRP1670_STR-HISTO sy-vline 
WA_HRP1670_STR-ITXNR sy-vline 
WA_HRP1670_STR-TYPPLM sy-vline 
WA_HRP1670_STR-STUUTA sy-vline 
WA_HRP1670_STR-KAPKTLG sy-vline 
WA_HRP1670_STR-PLATRI sy-vline 
WA_HRP1670_STR-DOCSN sy-vline 
WA_HRP1670_STR-VYJPT sy-vline 
WA_HRP1670_STR-PLATRIDS sy-vline 
WA_HRP1670_STR-NAPCIN sy-vline 
WA_HRP1670_STR-RIDFUN sy-vline 
WA_HRP1670_STR-UVAZEK sy-vline 
WA_HRP1670_STR-PLAHOD sy-vline 
WA_HRP1670_STR-KPV sy-vline 
WA_HRP1670_STR-SMEVYKPRA sy-vline 
WA_HRP1670_STR-ZARLIN sy-vline 
WA_HRP1670_STR-SKZVLPRI sy-vline 
WA_HRP1670_STR-JAZZK sy-vline 
WA_HRP1670_STR-JAZYK sy-vline 
WA_HRP1670_STR-SKOEU sy-vline 
WA_HRP1670_STR-VYJPLST sy-vline 
WA_HRP1670_STR-VYJVZD sy-vline 
WA_HRP1670_STR-PRIZPR sy-vline 
WA_HRP1670_STR-UCELZRI sy-vline 
WA_HRP1670_STR-ZAMSS sy-vline 
WA_HRP1670_STR-CIVSERS sy-vline 
WA_HRP1670_STR-DIVSER1 sy-vline 
WA_HRP1670_STR-DIVSER2 sy-vline 
WA_HRP1670_STR-DIVSER3 sy-vline 
WA_HRP1670_STR-DIVSER4 sy-vline 
WA_HRP1670_STR-DIVSER5 sy-vline 
WA_HRP1670_STR-SERVICE_POS_ID sy-vline 
WA_HRP1670_STR-COMPET_BAN_EE sy-vline 
WA_HRP1670_STR-SERPO_WP sy-vline 
WA_HRP1670_STR-SERPO_WPB sy-vline 
WA_HRP1670_STR-SPEC_WP sy-vline      INTO ld_text SEPARATED BY SPACE.

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