ABAP Select data from SAP table HR3PRNA_EVAL_PAYEE_ITEM 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 HR3PRNA_EVAL_PAYEE_ITEM 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 HR3PRNA_EVAL_PAYEE_ITEM. 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 HR3PRNA_EVAL_PAYEE_ITEM 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_HR3PRNA_EVAL_PAYEE_ITEM TYPE STANDARD TABLE OF HR3PRNA_EVAL_PAYEE_ITEM,
      WA_HR3PRNA_EVAL_PAYEE_ITEM TYPE HR3PRNA_EVAL_PAYEE_ITEM,
      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: <HR3PRNA_EVAL_PAYEE_ITEM> TYPE HR3PRNA_EVAL_PAYEE_ITEM.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM HR3PRNA_EVAL_PAYEE_ITEM
*  INTO TABLE @DATA(IT_HR3PRNA_EVAL_PAYEE_ITEM2).
*--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_HR3PRNA_EVAL_PAYEE_ITEM INDEX 1 INTO DATA(WA_HR3PRNA_EVAL_PAYEE_ITEM2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<HR3PRNA_EVAL_PAYEE_ITEM>-PERIOD_INFO = 1.
<HR3PRNA_EVAL_PAYEE_ITEM>-BUKRS = 1.
<HR3PRNA_EVAL_PAYEE_ITEM>-BUTXT = 1.
<HR3PRNA_EVAL_PAYEE_ITEM>-LIFNR = 1.
<HR3PRNA_EVAL_PAYEE_ITEM>-NAME = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_HR3PRNA_EVAL_PAYEE_ITEM-XBLNR, sy-vline,
  WA_HR3PRNA_EVAL_PAYEE_ITEM-GSBER, sy-vline,
  WA_HR3PRNA_EVAL_PAYEE_ITEM-LIFSG, sy-vline,
  WA_HR3PRNA_EVAL_PAYEE_ITEM-CRETY, sy-vline,
  WA_HR3PRNA_EVAL_PAYEE_ITEM-CRENR, sy-vline,
  WA_HR3PRNA_EVAL_PAYEE_ITEM-CRETX, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_HR3PRNA_EVAL_PAYEE_ITEM 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_HR3PRNA_EVAL_PAYEE_ITEM 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_HR3PRNA_EVAL_PAYEE_ITEM INTO WA_HR3PRNA_EVAL_PAYEE_ITEM.


*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 LIFNR
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_HR3PRNA_EVAL_PAYEE_ITEM-LIFNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_HR3PRNA_EVAL_PAYEE_ITEM-LIFNR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field S_KOSTL
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_HR3PRNA_EVAL_PAYEE_ITEM-S_KOSTL
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_HR3PRNA_EVAL_PAYEE_ITEM-S_KOSTL.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field S_GRANT_NBR
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_HR3PRNA_EVAL_PAYEE_ITEM-S_GRANT_NBR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_HR3PRNA_EVAL_PAYEE_ITEM-S_GRANT_NBR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field S_SGMNT
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_HR3PRNA_EVAL_PAYEE_ITEM-S_SGMNT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_HR3PRNA_EVAL_PAYEE_ITEM-S_SGMNT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field S_AUFNR
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_HR3PRNA_EVAL_PAYEE_ITEM-S_AUFNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_HR3PRNA_EVAL_PAYEE_ITEM-S_AUFNR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ABPSP, internal->external for field S_PSPNN
CALL FUNCTION 'CONVERSION_EXIT_ABPSP_OUTPUT'
  EXPORTING
    input =                      WA_HR3PRNA_EVAL_PAYEE_ITEM-S_PSPNN
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_HR3PRNA_EVAL_PAYEE_ITEM-S_PSPNN.
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_HR3PRNA_EVAL_PAYEE_ITEM_STR, 
PERIOD_INFO TYPE STRING,
BUKRS TYPE STRING,
BUTXT TYPE STRING,
LIFNR TYPE STRING,
NAME TYPE STRING,
XBLNR TYPE STRING,
GSBER TYPE STRING,
LIFSG TYPE STRING,
CRETY TYPE STRING,
CRENR TYPE STRING,
CRETX TYPE STRING,
RDATN TYPE STRING,
BETRG TYPE STRING,
WAERS TYPE STRING,
RULNR TYPE STRING,
DUEDT TYPE STRING,
STATUS TYPE STRING,
DDTEXT TYPE STRING,
STOPG TYPE STRING,
ERROR TYPE STRING,
CDATE TYPE STRING,
REMSD TYPE STRING,
REMPD TYPE STRING,
LAUFD TYPE STRING,
REMKY TYPE STRING,
REMSN TYPE STRING,
REMPN TYPE STRING,
RUNID TYPE STRING,
LINUM TYPE STRING,
LAUFI TYPE STRING,
RDATE TYPE STRING,
RTIME TYPE STRING,
REMST TYPE STRING,
REMPT TYPE STRING,
P_MOLGA TYPE STRING,
P_SNAME TYPE STRING,
P_PERNR TYPE STRING,
P_SEQNO TYPE STRING,
P_PERID TYPE STRING,
P_BETRG TYPE STRING,
P_WAERS TYPE STRING,
P_NAME TYPE STRING,
S_SEQNR TYPE STRING,
S_KOSTL TYPE STRING,
S_FISTL TYPE STRING,
S_GEBER TYPE STRING,
S_BUDGET_PD TYPE STRING,
S_GRANT_NBR TYPE STRING,
S_SGMNT TYPE STRING,
S_DART TYPE STRING,
S_UDART TYPE STRING,
S_PERNR_RC TYPE STRING,
S_KTTYP TYPE STRING,
S_SYMKO TYPE STRING,
S_MOMAG TYPE STRING,
S_MOFIX TYPE STRING,
S_LGART TYPE STRING,
S_LGTXT TYPE STRING,
S_TEXT TYPE STRING,
S_BETRG TYPE STRING,
S_WAERS TYPE STRING,
S_AUFNR TYPE STRING,
S_PSPNN TYPE STRING,
S_FKBER TYPE STRING,
SEQNR TYPE STRING,
ABKRS TYPE STRING,
FPPER TYPE STRING,
FPBEG TYPE STRING,
FPEND TYPE STRING,
IABKRS TYPE STRING,
IPERM TYPE STRING,
INPER TYPE STRING,
IPEND TYPE STRING,
JUPER TYPE STRING,
SRTZA TYPE STRING,
PAYTY TYPE STRING,
PAYID TYPE STRING,
VOID TYPE STRING,
BONDT TYPE STRING,
RUNDT TYPE STRING,
RUNTM TYPE STRING,
PERMO TYPE STRING,
VOIDD TYPE STRING,
VOIDT TYPE STRING,
VOIDR TYPE STRING,
PAYDT TYPE STRING,
DUMMY TYPE STRING,
INPTY TYPE STRING,
INPID TYPE STRING,
OCRSN TYPE STRING,
INOCR TYPE STRING,
OCCAT TYPE STRING,
INOCC TYPE STRING,
REVERSAL TYPE STRING,
OUTOFSEQ TYPE STRING,
OOSDATE TYPE STRING,
ARC_GROUP TYPE STRING,
CALCD TYPE STRING,
PERSON TYPE STRING,
PERSDATA TYPE STRING,
BRACKET TYPE STRING,END OF T_EKKO_STR.
DATA: WA_HR3PRNA_EVAL_PAYEE_ITEM_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_HR3PRNA_EVAL_PAYEE_ITEM_STR-PERIOD_INFO sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-BUKRS sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-BUTXT sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-LIFNR sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-NAME sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-XBLNR sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-GSBER sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-LIFSG sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-CRETY sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-CRENR sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-CRETX sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-RDATN sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-BETRG sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-WAERS sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-RULNR sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-DUEDT sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-STATUS sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-DDTEXT sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-STOPG sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-ERROR sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-CDATE sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-REMSD sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-REMPD sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-LAUFD sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-REMKY sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-REMSN sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-REMPN sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-RUNID sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-LINUM sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-LAUFI sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-RDATE sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-RTIME sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-REMST sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-REMPT sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-P_MOLGA sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-P_SNAME sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-P_PERNR sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-P_SEQNO sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-P_PERID sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-P_BETRG sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-P_WAERS sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-P_NAME sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-S_SEQNR sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-S_KOSTL sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-S_FISTL sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-S_GEBER sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-S_BUDGET_PD sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-S_GRANT_NBR sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-S_SGMNT sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-S_DART sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-S_UDART sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-S_PERNR_RC sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-S_KTTYP sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-S_SYMKO sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-S_MOMAG sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-S_MOFIX sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-S_LGART sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-S_LGTXT sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-S_TEXT sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-S_BETRG sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-S_WAERS sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-S_AUFNR sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-S_PSPNN sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-S_FKBER sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-SEQNR sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-ABKRS sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-FPPER sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-FPBEG sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-FPEND sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-IABKRS sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-IPERM sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-INPER sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-IPEND sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-JUPER sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-SRTZA sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-PAYTY sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-PAYID sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-VOID sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-BONDT sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-RUNDT sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-RUNTM sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-PERMO sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-VOIDD sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-VOIDT sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-VOIDR sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-PAYDT sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-DUMMY sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-INPTY sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-INPID sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-OCRSN sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-INOCR sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-OCCAT sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-INOCC sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-REVERSAL sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-OUTOFSEQ sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-OOSDATE sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-ARC_GROUP sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-CALCD sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-PERSON sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-PERSDATA sy-vline 
WA_HR3PRNA_EVAL_PAYEE_ITEM_STR-BRACKET sy-vline      INTO ld_text SEPARATED BY SPACE.

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