ABAP Select data from SAP table PRH_CPET_TIER 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 PRH_CPET_TIER 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 PRH_CPET_TIER. 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 PRH_CPET_TIER 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_PRH_CPET_TIER TYPE STANDARD TABLE OF PRH_CPET_TIER,
      WA_PRH_CPET_TIER TYPE PRH_CPET_TIER,
      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: <PRH_CPET_TIER> TYPE PRH_CPET_TIER.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM PRH_CPET_TIER
*  INTO TABLE @DATA(IT_PRH_CPET_TIER2).
*--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_PRH_CPET_TIER INDEX 1 INTO DATA(WA_PRH_CPET_TIER2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<PRH_CPET_TIER>-TERMNO = 1.
<PRH_CPET_TIER>-TERMID = 1.
<PRH_CPET_TIER>-TERMTYPE = 1.
<PRH_CPET_TIER>-FACTOR1 = 1.
<PRH_CPET_TIER>-FACTOR2 = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_PRH_CPET_TIER-PERCENTAGE, sy-vline,
  WA_PRH_CPET_TIER-TERMCOMMQUAN, sy-vline,
  WA_PRH_CPET_TIER-TERMCOMMUOM, sy-vline,
  WA_PRH_CPET_TIER-EXERCISERATE, sy-vline,
  WA_PRH_CPET_TIER-EXERCISECURR, sy-vline,
  WA_PRH_CPET_TIER-EXERCISEPRUN, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_PRH_CPET_TIER 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_PRH_CPET_TIER 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_PRH_CPET_TIER INTO WA_PRH_CPET_TIER.


*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 CUNIT, internal->external for field TERMCOMMUOM
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_PRH_CPET_TIER-TERMCOMMUOM
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PRH_CPET_TIER-TERMCOMMUOM.
WRITE:/ 'New Value:', ld_input.

*Conversion exit CUNIT, internal->external for field EXERCISEUOM
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_PRH_CPET_TIER-EXERCISEUOM
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PRH_CPET_TIER-EXERCISEUOM.
WRITE:/ 'New Value:', ld_input.

*Conversion exit EXCRS, internal->external for field EXCHRATE
CALL FUNCTION 'CONVERSION_EXIT_EXCRS_OUTPUT'
  EXPORTING
    input =                      WA_PRH_CPET_TIER-EXCHRATE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PRH_CPET_TIER-EXCHRATE.
WRITE:/ 'New Value:', ld_input.

*Conversion exit CUNIT, internal->external for field FIXTERMUOM
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_PRH_CPET_TIER-FIXTERMUOM
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PRH_CPET_TIER-FIXTERMUOM.
WRITE:/ 'New Value:', ld_input.

*Conversion exit EXCRS, internal->external for field FIXEXCHRATE
CALL FUNCTION 'CONVERSION_EXIT_EXCRS_OUTPUT'
  EXPORTING
    input =                      WA_PRH_CPET_TIER-FIXEXCHRATE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PRH_CPET_TIER-FIXEXCHRATE.
WRITE:/ 'New Value:', ld_input.

*Conversion exit CUNIT, internal->external for field SURCHRATEUOM
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_PRH_CPET_TIER-SURCHRATEUOM
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PRH_CPET_TIER-SURCHRATEUOM.
WRITE:/ 'New Value:', ld_input.

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

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

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

*Conversion exit CUNIT, internal->external for field UOM
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_PRH_CPET_TIER-UOM
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PRH_CPET_TIER-UOM.
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_PRH_CPET_TIER_STR, 
TERMNO TYPE STRING,
TERMID TYPE STRING,
TERMTYPE TYPE STRING,
FACTOR1 TYPE STRING,
FACTOR2 TYPE STRING,
PERCENTAGE TYPE STRING,
TERMCOMMQUAN TYPE STRING,
TERMCOMMUOM TYPE STRING,
EXERCISERATE TYPE STRING,
EXERCISECURR TYPE STRING,
EXERCISEPRUN TYPE STRING,
EXERCISEUOM TYPE STRING,
EXCHRATE TYPE STRING,
TERMRATE TYPE STRING,
TERMCURR TYPE STRING,
FIXTERMRATE TYPE STRING,
FIXTERMCURR TYPE STRING,
FIXTERMPRUN TYPE STRING,
FIXTERMUOM TYPE STRING,
FIXEXCHRATE TYPE STRING,
CURRFROM TYPE STRING,
CURRTO TYPE STRING,
DATEFROM_C TYPE STRING,
DATETO_C TYPE STRING,
DATEFROM_Q TYPE STRING,
DATETO_Q TYPE STRING,
SURCHARGERATE TYPE STRING,
SURCHRATECURR TYPE STRING,
SURCHRATEPRUN TYPE STRING,
SURCHRATEUOM TYPE STRING,
FACTOR1_CHANGEABLE TYPE STRING,
FACTOR2_CHANGEABLE TYPE STRING,
PERCENTAGE_CHANGEABLE TYPE STRING,
TERMCOMMQUAN_CHANGEABLE TYPE STRING,
DATEFROM_C_CHANGEABLE TYPE STRING,
DATETO_C_CHANGEABLE TYPE STRING,
FIXEXCHRATE_CHANGEABLE TYPE STRING,
DATEFROM_Q_CHANGEABLE TYPE STRING,
DATETO_Q_CHANGEABLE TYPE STRING,
FIXTERMRATE_CHANGEABLE TYPE STRING,
FIXTERMPRUN_CHANGEABLE TYPE STRING,
FIXTERMRATE_DF34 TYPE STRING,
EXERCISERATE_DF34 TYPE STRING,
FIXZERORATE TYPE STRING,
DCSID TYPE STRING,
MIC TYPE STRING,
KEYDATE TYPE STRING,
DCS_SELECTION_TYPE TYPE STRING,
IS_BASIS_ID_MANUAL TYPE STRING,
BASIS_ID TYPE STRING,
FUT_KSCHL TYPE STRING,
FUT_TERMNO TYPE STRING,
FLAT_GRP_TIMESTAMP TYPE STRING,
PSMGUID TYPE STRING,
PSMETHOD TYPE STRING,
PSMSTATUS TYPE STRING,
COMMODITYSUBACCOUNT TYPE STRING,
NUMBER_OF_LOTS TYPE STRING,
FILLPACKETUUID TYPE STRING,
PSM_SIMULATION_ERROR TYPE STRING,
EXPRTNINSTRUCTION TYPE STRING,
PRCGEXECINSTRN TYPE STRING,
LMTPRC TYPE STRING,
LMTPRCCURRENCY TYPE STRING,
STOPPRICE TYPE STRING,
STOPPRICECRCY TYPE STRING,
STOPLMTPRC TYPE STRING,
STOPLMTPRCCURRENCY TYPE STRING,
FXDPRC TYPE STRING,
FXDPRCCRCY TYPE STRING,
LEEWAYPRC TYPE STRING,
LEEWAYPRCCRCY TYPE STRING,
LEEWAYRNGEPRC TYPE STRING,
LEEWAYRNGEPRCCRCY TYPE STRING,
EXPIRATIONDATE TYPE STRING,
LMTSPREADPRC TYPE STRING,
LMTSPREADPRCCRCY TYPE STRING,
FXDSPREADPRC TYPE STRING,
FXDSPREADPRCCRCY TYPE STRING,
TICKS TYPE STRING,
CMMDTYORDREQCNTRPTYBROKER TYPE STRING,
CMMDTYORDREQCNTRPTYREFACCT TYPE STRING,
SAVETERMRATE_DF34 TYPE STRING,
SAVETERMCURR TYPE STRING,
PSMETHOD_ACTIVE TYPE STRING,
PSMETHOD_CHANGEABLE TYPE STRING,
PSMSTATUS_TEXT TYPE STRING,
CONFIG_ID TYPE STRING,
COMMODITYSUBACCOUNTNAME TYPE STRING,
PSMETHOD_T TYPE STRING,
STATUSICON TYPE STRING,
REF_GUID TYPE STRING,
TIERNO TYPE STRING,
DATE_FROM TYPE STRING,
DATE_TO TYPE STRING,
QTY_TO TYPE STRING,
UOM TYPE STRING,END OF T_EKKO_STR.
DATA: WA_PRH_CPET_TIER_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_PRH_CPET_TIER_STR-TERMNO sy-vline 
WA_PRH_CPET_TIER_STR-TERMID sy-vline 
WA_PRH_CPET_TIER_STR-TERMTYPE sy-vline 
WA_PRH_CPET_TIER_STR-FACTOR1 sy-vline 
WA_PRH_CPET_TIER_STR-FACTOR2 sy-vline 
WA_PRH_CPET_TIER_STR-PERCENTAGE sy-vline 
WA_PRH_CPET_TIER_STR-TERMCOMMQUAN sy-vline 
WA_PRH_CPET_TIER_STR-TERMCOMMUOM sy-vline 
WA_PRH_CPET_TIER_STR-EXERCISERATE sy-vline 
WA_PRH_CPET_TIER_STR-EXERCISECURR sy-vline 
WA_PRH_CPET_TIER_STR-EXERCISEPRUN sy-vline 
WA_PRH_CPET_TIER_STR-EXERCISEUOM sy-vline 
WA_PRH_CPET_TIER_STR-EXCHRATE sy-vline 
WA_PRH_CPET_TIER_STR-TERMRATE sy-vline 
WA_PRH_CPET_TIER_STR-TERMCURR sy-vline 
WA_PRH_CPET_TIER_STR-FIXTERMRATE sy-vline 
WA_PRH_CPET_TIER_STR-FIXTERMCURR sy-vline 
WA_PRH_CPET_TIER_STR-FIXTERMPRUN sy-vline 
WA_PRH_CPET_TIER_STR-FIXTERMUOM sy-vline 
WA_PRH_CPET_TIER_STR-FIXEXCHRATE sy-vline 
WA_PRH_CPET_TIER_STR-CURRFROM sy-vline 
WA_PRH_CPET_TIER_STR-CURRTO sy-vline 
WA_PRH_CPET_TIER_STR-DATEFROM_C sy-vline 
WA_PRH_CPET_TIER_STR-DATETO_C sy-vline 
WA_PRH_CPET_TIER_STR-DATEFROM_Q sy-vline 
WA_PRH_CPET_TIER_STR-DATETO_Q sy-vline 
WA_PRH_CPET_TIER_STR-SURCHARGERATE sy-vline 
WA_PRH_CPET_TIER_STR-SURCHRATECURR sy-vline 
WA_PRH_CPET_TIER_STR-SURCHRATEPRUN sy-vline 
WA_PRH_CPET_TIER_STR-SURCHRATEUOM sy-vline 
WA_PRH_CPET_TIER_STR-FACTOR1_CHANGEABLE sy-vline 
WA_PRH_CPET_TIER_STR-FACTOR2_CHANGEABLE sy-vline 
WA_PRH_CPET_TIER_STR-PERCENTAGE_CHANGEABLE sy-vline 
WA_PRH_CPET_TIER_STR-TERMCOMMQUAN_CHANGEABLE sy-vline 
WA_PRH_CPET_TIER_STR-DATEFROM_C_CHANGEABLE sy-vline 
WA_PRH_CPET_TIER_STR-DATETO_C_CHANGEABLE sy-vline 
WA_PRH_CPET_TIER_STR-FIXEXCHRATE_CHANGEABLE sy-vline 
WA_PRH_CPET_TIER_STR-DATEFROM_Q_CHANGEABLE sy-vline 
WA_PRH_CPET_TIER_STR-DATETO_Q_CHANGEABLE sy-vline 
WA_PRH_CPET_TIER_STR-FIXTERMRATE_CHANGEABLE sy-vline 
WA_PRH_CPET_TIER_STR-FIXTERMPRUN_CHANGEABLE sy-vline 
WA_PRH_CPET_TIER_STR-FIXTERMRATE_DF34 sy-vline 
WA_PRH_CPET_TIER_STR-EXERCISERATE_DF34 sy-vline 
WA_PRH_CPET_TIER_STR-FIXZERORATE sy-vline 
WA_PRH_CPET_TIER_STR-DCSID sy-vline 
WA_PRH_CPET_TIER_STR-MIC sy-vline 
WA_PRH_CPET_TIER_STR-KEYDATE sy-vline 
WA_PRH_CPET_TIER_STR-DCS_SELECTION_TYPE sy-vline 
WA_PRH_CPET_TIER_STR-IS_BASIS_ID_MANUAL sy-vline 
WA_PRH_CPET_TIER_STR-BASIS_ID sy-vline 
WA_PRH_CPET_TIER_STR-FUT_KSCHL sy-vline 
WA_PRH_CPET_TIER_STR-FUT_TERMNO sy-vline 
WA_PRH_CPET_TIER_STR-FLAT_GRP_TIMESTAMP sy-vline 
WA_PRH_CPET_TIER_STR-PSMGUID sy-vline 
WA_PRH_CPET_TIER_STR-PSMETHOD sy-vline 
WA_PRH_CPET_TIER_STR-PSMSTATUS sy-vline 
WA_PRH_CPET_TIER_STR-COMMODITYSUBACCOUNT sy-vline 
WA_PRH_CPET_TIER_STR-NUMBER_OF_LOTS sy-vline 
WA_PRH_CPET_TIER_STR-FILLPACKETUUID sy-vline 
WA_PRH_CPET_TIER_STR-PSM_SIMULATION_ERROR sy-vline 
WA_PRH_CPET_TIER_STR-EXPRTNINSTRUCTION sy-vline 
WA_PRH_CPET_TIER_STR-PRCGEXECINSTRN sy-vline 
WA_PRH_CPET_TIER_STR-LMTPRC sy-vline 
WA_PRH_CPET_TIER_STR-LMTPRCCURRENCY sy-vline 
WA_PRH_CPET_TIER_STR-STOPPRICE sy-vline 
WA_PRH_CPET_TIER_STR-STOPPRICECRCY sy-vline 
WA_PRH_CPET_TIER_STR-STOPLMTPRC sy-vline 
WA_PRH_CPET_TIER_STR-STOPLMTPRCCURRENCY sy-vline 
WA_PRH_CPET_TIER_STR-FXDPRC sy-vline 
WA_PRH_CPET_TIER_STR-FXDPRCCRCY sy-vline 
WA_PRH_CPET_TIER_STR-LEEWAYPRC sy-vline 
WA_PRH_CPET_TIER_STR-LEEWAYPRCCRCY sy-vline 
WA_PRH_CPET_TIER_STR-LEEWAYRNGEPRC sy-vline 
WA_PRH_CPET_TIER_STR-LEEWAYRNGEPRCCRCY sy-vline 
WA_PRH_CPET_TIER_STR-EXPIRATIONDATE sy-vline 
WA_PRH_CPET_TIER_STR-LMTSPREADPRC sy-vline 
WA_PRH_CPET_TIER_STR-LMTSPREADPRCCRCY sy-vline 
WA_PRH_CPET_TIER_STR-FXDSPREADPRC sy-vline 
WA_PRH_CPET_TIER_STR-FXDSPREADPRCCRCY sy-vline 
WA_PRH_CPET_TIER_STR-TICKS sy-vline 
WA_PRH_CPET_TIER_STR-CMMDTYORDREQCNTRPTYBROKER sy-vline 
WA_PRH_CPET_TIER_STR-CMMDTYORDREQCNTRPTYREFACCT sy-vline 
WA_PRH_CPET_TIER_STR-SAVETERMRATE_DF34 sy-vline 
WA_PRH_CPET_TIER_STR-SAVETERMCURR sy-vline 
WA_PRH_CPET_TIER_STR-PSMETHOD_ACTIVE sy-vline 
WA_PRH_CPET_TIER_STR-PSMETHOD_CHANGEABLE sy-vline 
WA_PRH_CPET_TIER_STR-PSMSTATUS_TEXT sy-vline 
WA_PRH_CPET_TIER_STR-CONFIG_ID sy-vline 
WA_PRH_CPET_TIER_STR-COMMODITYSUBACCOUNTNAME sy-vline 
WA_PRH_CPET_TIER_STR-PSMETHOD_T sy-vline 
WA_PRH_CPET_TIER_STR-STATUSICON sy-vline 
WA_PRH_CPET_TIER_STR-REF_GUID sy-vline 
WA_PRH_CPET_TIER_STR-TIERNO sy-vline 
WA_PRH_CPET_TIER_STR-DATE_FROM sy-vline 
WA_PRH_CPET_TIER_STR-DATE_TO sy-vline 
WA_PRH_CPET_TIER_STR-QTY_TO sy-vline 
WA_PRH_CPET_TIER_STR-UOM sy-vline      INTO ld_text SEPARATED BY SPACE.

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