ABAP Select data from SAP table WRFT_PPWCUS 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 WRFT_PPWCUS 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 WRFT_PPWCUS. 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 WRFT_PPWCUS 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_WRFT_PPWCUS TYPE STANDARD TABLE OF WRFT_PPWCUS,
      WA_WRFT_PPWCUS TYPE WRFT_PPWCUS,
      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: <WRFT_PPWCUS> TYPE WRFT_PPWCUS.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM WRFT_PPWCUS
*  INTO TABLE @DATA(IT_WRFT_PPWCUS2).
*--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_WRFT_PPWCUS INDEX 1 INTO DATA(WA_WRFT_PPWCUS2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<WRFT_PPWCUS>-MANDT = 1.
<WRFT_PPWCUS>-BUDGLEVEL = 1.
<WRFT_PPWCUS>-APPR_PROCEDURE = 1.
<WRFT_PPWCUS>-MAXART = 1.
<WRFT_PPWCUS>-DEFAULT_RIGHT = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_WRFT_PPWCUS-NO_BUDGET, sy-vline,
  WA_WRFT_PPWCUS-PPD_ART, sy-vline,
  WA_WRFT_PPWCUS-RKTYP_MDP, sy-vline,
  WA_WRFT_PPWCUS-BUDGETREAD_MDP, sy-vline,
  WA_WRFT_PPWCUS-KFCKMDPPRO, sy-vline,
  WA_WRFT_PPWCUS-MDPPRODAYS, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_WRFT_PPWCUS 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_WRFT_PPWCUS 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_WRFT_PPWCUS INTO WA_WRFT_PPWCUS.


*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.
ENDFORM. 

*&---------------------------------------------------------------------*
*& Form process_as_string_field_values
*&---------------------------------------------------------------------*
FORM process_as_string_field_values CHANGING p_EKKO LIKE wa_EKKO.

TYPES: BEGIN OF T_WRFT_PPWCUS_STR, 
MANDT TYPE STRING,
BUDGLEVEL TYPE STRING,
APPR_PROCEDURE TYPE STRING,
MAXART TYPE STRING,
DEFAULT_RIGHT TYPE STRING,
NO_BUDGET TYPE STRING,
PPD_ART TYPE STRING,
RKTYP_MDP TYPE STRING,
BUDGETREAD_MDP TYPE STRING,
KFCKMDPPRO TYPE STRING,
MDPPRODAYS TYPE STRING,
KFCKMDPMDP TYPE STRING,
MDPMDPDAYS TYPE STRING,
KFCKMDPMAN TYPE STRING,
MDPMANDAYS TYPE STRING,
RKTYP_MAN TYPE STRING,
BUDGETREAD_MAN TYPE STRING,
KFCKMANPRO TYPE STRING,
MANPRODAYS TYPE STRING,
KFCKMANMDP TYPE STRING,
MANMDPDAYS TYPE STRING,
KFCKMANMAN TYPE STRING,
MANMANDAYS TYPE STRING,
RKTYP_PRO TYPE STRING,
BUDGETREAD_PRO TYPE STRING,
ME_REGEL TYPE STRING,
KFCKPROPRO TYPE STRING,
PROPRODAYS TYPE STRING,
KFCKPROMDP TYPE STRING,
PROMDPDAYS TYPE STRING,
KFCKPROMAN TYPE STRING,
PROMANDAYS TYPE STRING,
AA_METHOD TYPE STRING,
OVERTAKE_PPDTEXT TYPE STRING,
AA_NAME TYPE STRING,
CORR_REP TYPE STRING,
WERKSVSDISTCHAIN TYPE STRING,
SERVER_GROUP TYPE STRING,
UPDT_THRESHOLD TYPE STRING,END OF T_EKKO_STR.
DATA: WA_WRFT_PPWCUS_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_WRFT_PPWCUS_STR-MANDT sy-vline 
WA_WRFT_PPWCUS_STR-BUDGLEVEL sy-vline 
WA_WRFT_PPWCUS_STR-APPR_PROCEDURE sy-vline 
WA_WRFT_PPWCUS_STR-MAXART sy-vline 
WA_WRFT_PPWCUS_STR-DEFAULT_RIGHT sy-vline 
WA_WRFT_PPWCUS_STR-NO_BUDGET sy-vline 
WA_WRFT_PPWCUS_STR-PPD_ART sy-vline 
WA_WRFT_PPWCUS_STR-RKTYP_MDP sy-vline 
WA_WRFT_PPWCUS_STR-BUDGETREAD_MDP sy-vline 
WA_WRFT_PPWCUS_STR-KFCKMDPPRO sy-vline 
WA_WRFT_PPWCUS_STR-MDPPRODAYS sy-vline 
WA_WRFT_PPWCUS_STR-KFCKMDPMDP sy-vline 
WA_WRFT_PPWCUS_STR-MDPMDPDAYS sy-vline 
WA_WRFT_PPWCUS_STR-KFCKMDPMAN sy-vline 
WA_WRFT_PPWCUS_STR-MDPMANDAYS sy-vline 
WA_WRFT_PPWCUS_STR-RKTYP_MAN sy-vline 
WA_WRFT_PPWCUS_STR-BUDGETREAD_MAN sy-vline 
WA_WRFT_PPWCUS_STR-KFCKMANPRO sy-vline 
WA_WRFT_PPWCUS_STR-MANPRODAYS sy-vline 
WA_WRFT_PPWCUS_STR-KFCKMANMDP sy-vline 
WA_WRFT_PPWCUS_STR-MANMDPDAYS sy-vline 
WA_WRFT_PPWCUS_STR-KFCKMANMAN sy-vline 
WA_WRFT_PPWCUS_STR-MANMANDAYS sy-vline 
WA_WRFT_PPWCUS_STR-RKTYP_PRO sy-vline 
WA_WRFT_PPWCUS_STR-BUDGETREAD_PRO sy-vline 
WA_WRFT_PPWCUS_STR-ME_REGEL sy-vline 
WA_WRFT_PPWCUS_STR-KFCKPROPRO sy-vline 
WA_WRFT_PPWCUS_STR-PROPRODAYS sy-vline 
WA_WRFT_PPWCUS_STR-KFCKPROMDP sy-vline 
WA_WRFT_PPWCUS_STR-PROMDPDAYS sy-vline 
WA_WRFT_PPWCUS_STR-KFCKPROMAN sy-vline 
WA_WRFT_PPWCUS_STR-PROMANDAYS sy-vline 
WA_WRFT_PPWCUS_STR-AA_METHOD sy-vline 
WA_WRFT_PPWCUS_STR-OVERTAKE_PPDTEXT sy-vline 
WA_WRFT_PPWCUS_STR-AA_NAME sy-vline 
WA_WRFT_PPWCUS_STR-CORR_REP sy-vline 
WA_WRFT_PPWCUS_STR-WERKSVSDISTCHAIN sy-vline 
WA_WRFT_PPWCUS_STR-SERVER_GROUP sy-vline 
WA_WRFT_PPWCUS_STR-UPDT_THRESHOLD sy-vline      INTO ld_text SEPARATED BY SPACE.

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