ABAP Select data from SAP table HCMT_BSP_PA_ES_R0062 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 HCMT_BSP_PA_ES_R0062 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 HCMT_BSP_PA_ES_R0062. 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 HCMT_BSP_PA_ES_R0062 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_HCMT_BSP_PA_ES_R0062 TYPE STANDARD TABLE OF HCMT_BSP_PA_ES_R0062,
      WA_HCMT_BSP_PA_ES_R0062 TYPE HCMT_BSP_PA_ES_R0062,
      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: <HCMT_BSP_PA_ES_R0062> TYPE HCMT_BSP_PA_ES_R0062.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM HCMT_BSP_PA_ES_R0062
*  INTO TABLE @DATA(IT_HCMT_BSP_PA_ES_R00622).
*--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_HCMT_BSP_PA_ES_R0062 INDEX 1 INTO DATA(WA_HCMT_BSP_PA_ES_R00622).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<HCMT_BSP_PA_ES_R0062>-OBJECT_KEY = 1.
<HCMT_BSP_PA_ES_R0062>-PERNR = 1.
<HCMT_BSP_PA_ES_R0062>-AEDTM = 1.
<HCMT_BSP_PA_ES_R0062>-UNAME = 1.
<HCMT_BSP_PA_ES_R0062>-SPRPS = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_HCMT_BSP_PA_ES_R0062-SPRTX, sy-vline,
  WA_HCMT_BSP_PA_ES_R0062-ITBLD, sy-vline,
  WA_HCMT_BSP_PA_ES_R0062-ITXEX, sy-vline,
  WA_HCMT_BSP_PA_ES_R0062-BEGDA, sy-vline,
  WA_HCMT_BSP_PA_ES_R0062-ENDDA, sy-vline,
  WA_HCMT_BSP_PA_ES_R0062-WAERS, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_HCMT_BSP_PA_ES_R0062 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_HCMT_BSP_PA_ES_R0062 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_HCMT_BSP_PA_ES_R0062 INTO WA_HCMT_BSP_PA_ES_R0062.


*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 GJAHR, internal->external for field MOB_END_YEAR
CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT'
  EXPORTING
    input =                      WA_HCMT_BSP_PA_ES_R0062-MOB_END_YEAR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_HCMT_BSP_PA_ES_R0062-MOB_END_YEAR.
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_HCMT_BSP_PA_ES_R0062_STR, 
OBJECT_KEY TYPE STRING,
PERNR TYPE STRING,
AEDTM TYPE STRING,
UNAME TYPE STRING,
SPRPS TYPE STRING,
SPRTX TYPE STRING,
ITBLD TYPE STRING,
ITXEX TYPE STRING,
BEGDA TYPE STRING,
ENDDA TYPE STRING,
WAERS TYPE STRING,
CODIM TYPE STRING,
PERTR TYPE STRING,
QLAND TYPE STRING,
LAND1 TYPE STRING,
CD296 TYPE STRING,
PROVN TYPE STRING,
TPROV TYPE STRING,
CODAU TYPE STRING,
CPER1 TYPE STRING,
CTEXT TYPE STRING,
FATXT TYPE STRING,
FAMST TYPE STRING,
SITPER TYPE STRING,
FAMNU TYPE STRING,
FFRMG TYPE STRING,
NOHIJ TYPE STRING,
SBRUT TYPE STRING,
WAERS_SBRUT TYPE STRING,
VESFI TYPE STRING,
WAERS_VESFI TYPE STRING,
VESVR TYPE STRING,
WAERS_VESVR TYPE STRING,
PGEES TYPE STRING,
WAERS_PGEES TYPE STRING,
WAERS_RETOT TYPE STRING,
RENIR TYPE STRING,
WAERS_RENIR TYPE STRING,
RENI2 TYPE STRING,
WAERS_RENI2 TYPE STRING,
COTIZ TYPE STRING,
WAERS_COTIZ TYPE STRING,
SPRED TYPE STRING,
WAERS_SPRED TYPE STRING,
PECOM TYPE STRING,
WAERS_PECOM TYPE STRING,
ALIME TYPE STRING,
WAERS_ALIME TYPE STRING,
WAERS_SUMME TYPE STRING,
PORCL TYPE STRING,
SIMBL_PORCL TYPE STRING,
PORDB TYPE STRING,
PORA4 TYPE STRING,
SIMBL_PORA4 TYPE STRING,
MOTIV TYPE STRING,
REGRT TYPE STRING,
WAERS_REGRT TYPE STRING,
REGBR TYPE STRING,
WAERS_REGBR TYPE STRING,
CAUTX TYPE STRING,
PORNM TYPE STRING,
SIMBL_PORNM TYPE STRING,
SEXPA TYPE STRING,
MOCON TYPE STRING,
PORPR TYPE STRING,
SIMBL_PORPR TYPE STRING,
MOCON_TEXT TYPE STRING,
CPER2 TYPE STRING,
MIPAG TYPE STRING,
MINOP TYPE STRING,
WERTX TYPE STRING,
WAERS_MINOP TYPE STRING,
YEAR_MOBILITY TYPE STRING,
MOBILITY_TYPE TYPE STRING,
IRREG_INC_REDUC_YEAR TYPE STRING,
IRREG_INC_REDUC_REQ TYPE STRING,
RETOT TYPE STRING,
MINPE TYPE STRING,
MINHI TYPE STRING,
RENTR TYPE STRING,
PRACL TYPE STRING,
MOVGE TYPE STRING,
DISTA TYPE STRING,
CUIHI TYPE STRING,
XEDAD TYPE STRING,
ASIST TYPE STRING,
DISTN TYPE STRING,
PENSS TYPE STRING,
MAS2H TYPE STRING,
SUMME TYPE STRING,
XEDAC TYPE STRING,
ASISC TYPE STRING,
MINVC TYPE STRING,
ASIMC TYPE STRING,
MINVD TYPE STRING,
ASIMD TYPE STRING,
XEDAA TYPE STRING,
ASISA TYPE STRING,
MINVA TYPE STRING,
ASIMA TYPE STRING,
MINPF TYPE STRING,
NASCD TYPE STRING,
NDESC TYPE STRING,
NDE01 TYPE STRING,
NDE02 TYPE STRING,
NDE03 TYPE STRING,
NDM33 TYPE STRING,
NDM65 TYPE STRING,
MOB_END_YEAR TYPE STRING,
REDUC_INDEP_REQ TYPE STRING,
WAERS_RED_IND_REQ TYPE STRING,
CPER2_DESCRIP TYPE STRING,END OF T_EKKO_STR.
DATA: WA_HCMT_BSP_PA_ES_R0062_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_HCMT_BSP_PA_ES_R0062_STR-OBJECT_KEY sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-PERNR sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-AEDTM sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-UNAME sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-SPRPS sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-SPRTX sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-ITBLD sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-ITXEX sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-BEGDA sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-ENDDA sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-WAERS sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-CODIM sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-PERTR sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-QLAND sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-LAND1 sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-CD296 sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-PROVN sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-TPROV sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-CODAU sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-CPER1 sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-CTEXT sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-FATXT sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-FAMST sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-SITPER sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-FAMNU sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-FFRMG sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-NOHIJ sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-SBRUT sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-WAERS_SBRUT sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-VESFI sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-WAERS_VESFI sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-VESVR sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-WAERS_VESVR sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-PGEES sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-WAERS_PGEES sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-WAERS_RETOT sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-RENIR sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-WAERS_RENIR sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-RENI2 sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-WAERS_RENI2 sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-COTIZ sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-WAERS_COTIZ sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-SPRED sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-WAERS_SPRED sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-PECOM sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-WAERS_PECOM sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-ALIME sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-WAERS_ALIME sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-WAERS_SUMME sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-PORCL sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-SIMBL_PORCL sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-PORDB sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-PORA4 sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-SIMBL_PORA4 sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-MOTIV sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-REGRT sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-WAERS_REGRT sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-REGBR sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-WAERS_REGBR sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-CAUTX sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-PORNM sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-SIMBL_PORNM sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-SEXPA sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-MOCON sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-PORPR sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-SIMBL_PORPR sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-MOCON_TEXT sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-CPER2 sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-MIPAG sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-MINOP sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-WERTX sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-WAERS_MINOP sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-YEAR_MOBILITY sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-MOBILITY_TYPE sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-IRREG_INC_REDUC_YEAR sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-IRREG_INC_REDUC_REQ sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-RETOT sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-MINPE sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-MINHI sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-RENTR sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-PRACL sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-MOVGE sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-DISTA sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-CUIHI sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-XEDAD sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-ASIST sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-DISTN sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-PENSS sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-MAS2H sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-SUMME sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-XEDAC sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-ASISC sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-MINVC sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-ASIMC sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-MINVD sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-ASIMD sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-XEDAA sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-ASISA sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-MINVA sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-ASIMA sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-MINPF sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-NASCD sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-NDESC sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-NDE01 sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-NDE02 sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-NDE03 sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-NDM33 sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-NDM65 sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-MOB_END_YEAR sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-REDUC_INDEP_REQ sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-WAERS_RED_IND_REQ sy-vline 
WA_HCMT_BSP_PA_ES_R0062_STR-CPER2_DESCRIP sy-vline      INTO ld_text SEPARATED BY SPACE.

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