ABAP Select data from SAP table V_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 V_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 V_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 V_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_V_WRFT_PPWCUS TYPE STANDARD TABLE OF V_WRFT_PPWCUS,
      WA_V_WRFT_PPWCUS TYPE V_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: <V_WRFT_PPWCUS> TYPE V_WRFT_PPWCUS.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM V_WRFT_PPWCUS
*  INTO TABLE @DATA(IT_V_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_V_WRFT_PPWCUS INDEX 1 INTO DATA(WA_V_WRFT_PPWCUS2).


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

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

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_V_WRFT_PPWCUS-NO_BUDGET, sy-vline,
  WA_V_WRFT_PPWCUS-RKTYP_MDP, sy-vline,
  WA_V_WRFT_PPWCUS-BUDGETREAD_MDP, sy-vline,
  WA_V_WRFT_PPWCUS-KFCKMDPPRO, sy-vline,
  WA_V_WRFT_PPWCUS-KFCKMDPMDP, sy-vline,
  WA_V_WRFT_PPWCUS-KFCKMDPMAN, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_V_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_V_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_V_WRFT_PPWCUS INTO WA_V_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_V_WRFT_PPWCUS_STR, 
MANDT TYPE STRING,
BUDGLEVEL TYPE STRING,
APPR_PROCEDURE TYPE STRING,
MAXART TYPE STRING,
DEFAULT_RIGHT TYPE STRING,
NO_BUDGET TYPE STRING,
RKTYP_MDP TYPE STRING,
BUDGETREAD_MDP TYPE STRING,
KFCKMDPPRO TYPE STRING,
KFCKMDPMDP TYPE STRING,
KFCKMDPMAN TYPE STRING,
RKTYP_MAN TYPE STRING,
BUDGETREAD_MAN TYPE STRING,
KFCKMANPRO TYPE STRING,
KFCKMANMDP TYPE STRING,
KFCKMANMAN TYPE STRING,
RKTYP_PRO TYPE STRING,
BUDGETREAD_PRO TYPE STRING,
ME_REGEL TYPE STRING,
KFCKPROPRO TYPE STRING,
KFCKPROMDP TYPE STRING,
KFCKPROMAN TYPE STRING,
PPD_ART TYPE STRING,
MDPPRODAYS TYPE STRING,
MDPMDPDAYS TYPE STRING,
MDPMANDAYS TYPE STRING,
MANPRODAYS TYPE STRING,
MANMDPDAYS TYPE STRING,
MANMANDAYS TYPE STRING,
PROPRODAYS TYPE STRING,
PROMDPDAYS TYPE STRING,
PROMANDAYS TYPE STRING,
AA_METHOD TYPE STRING,
OVERTAKE_PPDTEXT TYPE STRING,
AA_NAME TYPE STRING,
CORR_REP TYPE STRING,
AA_APP_TXT TYPE STRING,
AA_METH_TXT TYPE STRING,
WERKSVSDISTCHAIN TYPE STRING,
SERVER_GROUP TYPE STRING,
UPDT_THRESHOLD TYPE STRING,END OF T_EKKO_STR.
DATA: WA_V_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_V_WRFT_PPWCUS_STR-MANDT sy-vline 
WA_V_WRFT_PPWCUS_STR-BUDGLEVEL sy-vline 
WA_V_WRFT_PPWCUS_STR-APPR_PROCEDURE sy-vline 
WA_V_WRFT_PPWCUS_STR-MAXART sy-vline 
WA_V_WRFT_PPWCUS_STR-DEFAULT_RIGHT sy-vline 
WA_V_WRFT_PPWCUS_STR-NO_BUDGET sy-vline 
WA_V_WRFT_PPWCUS_STR-RKTYP_MDP sy-vline 
WA_V_WRFT_PPWCUS_STR-BUDGETREAD_MDP sy-vline 
WA_V_WRFT_PPWCUS_STR-KFCKMDPPRO sy-vline 
WA_V_WRFT_PPWCUS_STR-KFCKMDPMDP sy-vline 
WA_V_WRFT_PPWCUS_STR-KFCKMDPMAN sy-vline 
WA_V_WRFT_PPWCUS_STR-RKTYP_MAN sy-vline 
WA_V_WRFT_PPWCUS_STR-BUDGETREAD_MAN sy-vline 
WA_V_WRFT_PPWCUS_STR-KFCKMANPRO sy-vline 
WA_V_WRFT_PPWCUS_STR-KFCKMANMDP sy-vline 
WA_V_WRFT_PPWCUS_STR-KFCKMANMAN sy-vline 
WA_V_WRFT_PPWCUS_STR-RKTYP_PRO sy-vline 
WA_V_WRFT_PPWCUS_STR-BUDGETREAD_PRO sy-vline 
WA_V_WRFT_PPWCUS_STR-ME_REGEL sy-vline 
WA_V_WRFT_PPWCUS_STR-KFCKPROPRO sy-vline 
WA_V_WRFT_PPWCUS_STR-KFCKPROMDP sy-vline 
WA_V_WRFT_PPWCUS_STR-KFCKPROMAN sy-vline 
WA_V_WRFT_PPWCUS_STR-PPD_ART sy-vline 
WA_V_WRFT_PPWCUS_STR-MDPPRODAYS sy-vline 
WA_V_WRFT_PPWCUS_STR-MDPMDPDAYS sy-vline 
WA_V_WRFT_PPWCUS_STR-MDPMANDAYS sy-vline 
WA_V_WRFT_PPWCUS_STR-MANPRODAYS sy-vline 
WA_V_WRFT_PPWCUS_STR-MANMDPDAYS sy-vline 
WA_V_WRFT_PPWCUS_STR-MANMANDAYS sy-vline 
WA_V_WRFT_PPWCUS_STR-PROPRODAYS sy-vline 
WA_V_WRFT_PPWCUS_STR-PROMDPDAYS sy-vline 
WA_V_WRFT_PPWCUS_STR-PROMANDAYS sy-vline 
WA_V_WRFT_PPWCUS_STR-AA_METHOD sy-vline 
WA_V_WRFT_PPWCUS_STR-OVERTAKE_PPDTEXT sy-vline 
WA_V_WRFT_PPWCUS_STR-AA_NAME sy-vline 
WA_V_WRFT_PPWCUS_STR-CORR_REP sy-vline 
WA_V_WRFT_PPWCUS_STR-AA_APP_TXT sy-vline 
WA_V_WRFT_PPWCUS_STR-AA_METH_TXT sy-vline 
WA_V_WRFT_PPWCUS_STR-WERKSVSDISTCHAIN sy-vline 
WA_V_WRFT_PPWCUS_STR-SERVER_GROUP sy-vline 
WA_V_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.