ABAP Select data from SAP table PKR_YEAR_DEPENDANT 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 PKR_YEAR_DEPENDANT 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 PKR_YEAR_DEPENDANT. 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 PKR_YEAR_DEPENDANT 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_PKR_YEAR_DEPENDANT TYPE STANDARD TABLE OF PKR_YEAR_DEPENDANT,
      WA_PKR_YEAR_DEPENDANT TYPE PKR_YEAR_DEPENDANT,
      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: <PKR_YEAR_DEPENDANT> TYPE PKR_YEAR_DEPENDANT.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM PKR_YEAR_DEPENDANT
*  INTO TABLE @DATA(IT_PKR_YEAR_DEPENDANT2).
*--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_PKR_YEAR_DEPENDANT INDEX 1 INTO DATA(WA_PKR_YEAR_DEPENDANT2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<PKR_YEAR_DEPENDANT>-DL_ITE = 1.
<PKR_YEAR_DEPENDANT>-RELAT = 1.
<PKR_YEAR_DEPENDANT>-FOREI = 1.
<PKR_YEAR_DEPENDANT>-FNAME = 1.
<PKR_YEAR_DEPENDANT>-REGNO = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_PKR_YEAR_DEPENDANT-DPTID, sy-vline,
  WA_PKR_YEAR_DEPENDANT-HNDID, sy-vline,
  WA_PKR_YEAR_DEPENDANT-CHDID, sy-vline,
  WA_PKR_YEAR_DEPENDANT-INSID, sy-vline,
  WA_PKR_YEAR_DEPENDANT-MEDID, sy-vline,
  WA_PKR_YEAR_DEPENDANT-EDUID, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_PKR_YEAR_DEPENDANT 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_PKR_YEAR_DEPENDANT 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_PKR_YEAR_DEPENDANT INTO WA_PKR_YEAR_DEPENDANT.


*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 REGNO, internal->external for field REGNO
CALL FUNCTION 'CONVERSION_EXIT_REGNO_OUTPUT'
  EXPORTING
    input =                      WA_PKR_YEAR_DEPENDANT-REGNO
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PKR_YEAR_DEPENDANT-REGNO.
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_PKR_YEAR_DEPENDANT_STR, 
DL_ITE TYPE STRING,
RELAT TYPE STRING,
FOREI TYPE STRING,
FNAME TYPE STRING,
REGNO TYPE STRING,
DPTID TYPE STRING,
HNDID TYPE STRING,
CHDID TYPE STRING,
INSID TYPE STRING,
MEDID TYPE STRING,
EDUID TYPE STRING,
CREID TYPE STRING,
WOMEE TYPE STRING,
AGEID TYPE STRING,
MULID TYPE STRING,
DL_ADO TYPE STRING,
BACHD TYPE STRING,
SIGPR TYPE STRING,
INSNA TYPE STRING,
INSOT TYPE STRING,
MEDNA TYPE STRING,
MEDOT TYPE STRING,
EDUNA TYPE STRING,
EDUOT TYPE STRING,
CRENA TYPE STRING,
CREOT TYPE STRING,
CASNA TYPE STRING,
CASOT TYPE STRING,
DONNA TYPE STRING,
DONOT TYPE STRING,
DEBNA TYPE STRING,
DEBOT TYPE STRING,
GIRNA TYPE STRING,
GIROT TYPE STRING,
TRDNA TYPE STRING,
TRDOT TYPE STRING,
TRANA TYPE STRING,
TRAOT TYPE STRING,
SINNA TYPE STRING,
SINOT TYPE STRING,
SIHNA TYPE STRING,
SIHOT TYPE STRING,
IEINA TYPE STRING,
IEIOT TYPE STRING,
MFSNA TYPE STRING,
MFSOT TYPE STRING,
MHDNA TYPE STRING,
MHDOT TYPE STRING,
EHDNA TYPE STRING,
EHDOT TYPE STRING,
BPFNA TYPE STRING,
BPFOT TYPE STRING,
MPINA TYPE STRING,
MPIOT TYPE STRING,
ERONA TYPE STRING,
EROOT TYPE STRING,END OF T_EKKO_STR.
DATA: WA_PKR_YEAR_DEPENDANT_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_PKR_YEAR_DEPENDANT_STR-DL_ITE sy-vline 
WA_PKR_YEAR_DEPENDANT_STR-RELAT sy-vline 
WA_PKR_YEAR_DEPENDANT_STR-FOREI sy-vline 
WA_PKR_YEAR_DEPENDANT_STR-FNAME sy-vline 
WA_PKR_YEAR_DEPENDANT_STR-REGNO sy-vline 
WA_PKR_YEAR_DEPENDANT_STR-DPTID sy-vline 
WA_PKR_YEAR_DEPENDANT_STR-HNDID sy-vline 
WA_PKR_YEAR_DEPENDANT_STR-CHDID sy-vline 
WA_PKR_YEAR_DEPENDANT_STR-INSID sy-vline 
WA_PKR_YEAR_DEPENDANT_STR-MEDID sy-vline 
WA_PKR_YEAR_DEPENDANT_STR-EDUID sy-vline 
WA_PKR_YEAR_DEPENDANT_STR-CREID sy-vline 
WA_PKR_YEAR_DEPENDANT_STR-WOMEE sy-vline 
WA_PKR_YEAR_DEPENDANT_STR-AGEID sy-vline 
WA_PKR_YEAR_DEPENDANT_STR-MULID sy-vline 
WA_PKR_YEAR_DEPENDANT_STR-DL_ADO sy-vline 
WA_PKR_YEAR_DEPENDANT_STR-BACHD sy-vline 
WA_PKR_YEAR_DEPENDANT_STR-SIGPR sy-vline 
WA_PKR_YEAR_DEPENDANT_STR-INSNA sy-vline 
WA_PKR_YEAR_DEPENDANT_STR-INSOT sy-vline 
WA_PKR_YEAR_DEPENDANT_STR-MEDNA sy-vline 
WA_PKR_YEAR_DEPENDANT_STR-MEDOT sy-vline 
WA_PKR_YEAR_DEPENDANT_STR-EDUNA sy-vline 
WA_PKR_YEAR_DEPENDANT_STR-EDUOT sy-vline 
WA_PKR_YEAR_DEPENDANT_STR-CRENA sy-vline 
WA_PKR_YEAR_DEPENDANT_STR-CREOT sy-vline 
WA_PKR_YEAR_DEPENDANT_STR-CASNA sy-vline 
WA_PKR_YEAR_DEPENDANT_STR-CASOT sy-vline 
WA_PKR_YEAR_DEPENDANT_STR-DONNA sy-vline 
WA_PKR_YEAR_DEPENDANT_STR-DONOT sy-vline 
WA_PKR_YEAR_DEPENDANT_STR-DEBNA sy-vline 
WA_PKR_YEAR_DEPENDANT_STR-DEBOT sy-vline 
WA_PKR_YEAR_DEPENDANT_STR-GIRNA sy-vline 
WA_PKR_YEAR_DEPENDANT_STR-GIROT sy-vline 
WA_PKR_YEAR_DEPENDANT_STR-TRDNA sy-vline 
WA_PKR_YEAR_DEPENDANT_STR-TRDOT sy-vline 
WA_PKR_YEAR_DEPENDANT_STR-TRANA sy-vline 
WA_PKR_YEAR_DEPENDANT_STR-TRAOT sy-vline 
WA_PKR_YEAR_DEPENDANT_STR-SINNA sy-vline 
WA_PKR_YEAR_DEPENDANT_STR-SINOT sy-vline 
WA_PKR_YEAR_DEPENDANT_STR-SIHNA sy-vline 
WA_PKR_YEAR_DEPENDANT_STR-SIHOT sy-vline 
WA_PKR_YEAR_DEPENDANT_STR-IEINA sy-vline 
WA_PKR_YEAR_DEPENDANT_STR-IEIOT sy-vline 
WA_PKR_YEAR_DEPENDANT_STR-MFSNA sy-vline 
WA_PKR_YEAR_DEPENDANT_STR-MFSOT sy-vline 
WA_PKR_YEAR_DEPENDANT_STR-MHDNA sy-vline 
WA_PKR_YEAR_DEPENDANT_STR-MHDOT sy-vline 
WA_PKR_YEAR_DEPENDANT_STR-EHDNA sy-vline 
WA_PKR_YEAR_DEPENDANT_STR-EHDOT sy-vline 
WA_PKR_YEAR_DEPENDANT_STR-BPFNA sy-vline 
WA_PKR_YEAR_DEPENDANT_STR-BPFOT sy-vline 
WA_PKR_YEAR_DEPENDANT_STR-MPINA sy-vline 
WA_PKR_YEAR_DEPENDANT_STR-MPIOT sy-vline 
WA_PKR_YEAR_DEPENDANT_STR-ERONA sy-vline 
WA_PKR_YEAR_DEPENDANT_STR-EROOT sy-vline      INTO ld_text SEPARATED BY SPACE.

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