ABAP Select data from SAP table P01C_VAUGL 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 P01C_VAUGL 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 P01C_VAUGL. 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 P01C_VAUGL 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_P01C_VAUGL TYPE STANDARD TABLE OF P01C_VAUGL,
      WA_P01C_VAUGL TYPE P01C_VAUGL,
      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: <P01C_VAUGL> TYPE P01C_VAUGL.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM P01C_VAUGL
*  INTO TABLE @DATA(IT_P01C_VAUGL2).
*--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_P01C_VAUGL INDEX 1 INTO DATA(WA_P01C_VAUGL2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<P01C_VAUGL>-GNRFG = 1.
<P01C_VAUGL>-EHESA = 1.
<P01C_VAUGL>-VERJA = 1.
<P01C_VAUGL>-VERDA = 1.
<P01C_VAUGL>-VERNE = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_P01C_VAUGL-VERRS, sy-vline,
  WA_P01C_VAUGL-VERRT, sy-vline,
  WA_P01C_VAUGL-VERRG, sy-vline,
  WA_P01C_VAUGL-VERRB, sy-vline,
  WA_P01C_VAUGL-VERRE, sy-vline,
  WA_P01C_VAUGL-VUAJA, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_P01C_VAUGL 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_P01C_VAUGL 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_P01C_VAUGL INTO WA_P01C_VAUGL.


*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_P01C_VAUGL_STR, 
GNRFG TYPE STRING,
EHESA TYPE STRING,
VERJA TYPE STRING,
VERDA TYPE STRING,
VERNE TYPE STRING,
VERRS TYPE STRING,
VERRT TYPE STRING,
VERRG TYPE STRING,
VERRB TYPE STRING,
VERRE TYPE STRING,
VUAJA TYPE STRING,
VUANE TYPE STRING,
VUADA TYPE STRING,
UNVJA TYPE STRING,
UNVDA TYPE STRING,
UNVNE TYPE STRING,
LALJA TYPE STRING,
LALNE TYPE STRING,
LALBE TYPE STRING,
BEGBZ TYPE STRING,
ENDBZ TYPE STRING,
ALUIN TYPE STRING,
ALTRE TYPE STRING,
INVRE TYPE STRING,
FALGR TYPE STRING,
DAALG TYPE STRING,
HALTR TYPE STRING,
DALTR TYPE STRING,
LEBLE TYPE STRING,
ZEBLE TYPE STRING,
KUERE TYPE STRING,
DYNAS TYPE STRING,
DYNAD TYPE STRING,
DYNLS TYPE STRING,
DYNLD TYPE STRING,
OEREJ TYPE STRING,
OEREN TYPE STRING,
RETEJ TYPE STRING,
RETEN TYPE STRING,
AUSGJ TYPE STRING,
AUSGN TYPE STRING,
BEIGE TYPE STRING,
LIVOR TYPE STRING,
AUFAN TYPE STRING,END OF T_EKKO_STR.
DATA: WA_P01C_VAUGL_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_P01C_VAUGL_STR-GNRFG sy-vline 
WA_P01C_VAUGL_STR-EHESA sy-vline 
WA_P01C_VAUGL_STR-VERJA sy-vline 
WA_P01C_VAUGL_STR-VERDA sy-vline 
WA_P01C_VAUGL_STR-VERNE sy-vline 
WA_P01C_VAUGL_STR-VERRS sy-vline 
WA_P01C_VAUGL_STR-VERRT sy-vline 
WA_P01C_VAUGL_STR-VERRG sy-vline 
WA_P01C_VAUGL_STR-VERRB sy-vline 
WA_P01C_VAUGL_STR-VERRE sy-vline 
WA_P01C_VAUGL_STR-VUAJA sy-vline 
WA_P01C_VAUGL_STR-VUANE sy-vline 
WA_P01C_VAUGL_STR-VUADA sy-vline 
WA_P01C_VAUGL_STR-UNVJA sy-vline 
WA_P01C_VAUGL_STR-UNVDA sy-vline 
WA_P01C_VAUGL_STR-UNVNE sy-vline 
WA_P01C_VAUGL_STR-LALJA sy-vline 
WA_P01C_VAUGL_STR-LALNE sy-vline 
WA_P01C_VAUGL_STR-LALBE sy-vline 
WA_P01C_VAUGL_STR-BEGBZ sy-vline 
WA_P01C_VAUGL_STR-ENDBZ sy-vline 
WA_P01C_VAUGL_STR-ALUIN sy-vline 
WA_P01C_VAUGL_STR-ALTRE sy-vline 
WA_P01C_VAUGL_STR-INVRE sy-vline 
WA_P01C_VAUGL_STR-FALGR sy-vline 
WA_P01C_VAUGL_STR-DAALG sy-vline 
WA_P01C_VAUGL_STR-HALTR sy-vline 
WA_P01C_VAUGL_STR-DALTR sy-vline 
WA_P01C_VAUGL_STR-LEBLE sy-vline 
WA_P01C_VAUGL_STR-ZEBLE sy-vline 
WA_P01C_VAUGL_STR-KUERE sy-vline 
WA_P01C_VAUGL_STR-DYNAS sy-vline 
WA_P01C_VAUGL_STR-DYNAD sy-vline 
WA_P01C_VAUGL_STR-DYNLS sy-vline 
WA_P01C_VAUGL_STR-DYNLD sy-vline 
WA_P01C_VAUGL_STR-OEREJ sy-vline 
WA_P01C_VAUGL_STR-OEREN sy-vline 
WA_P01C_VAUGL_STR-RETEJ sy-vline 
WA_P01C_VAUGL_STR-RETEN sy-vline 
WA_P01C_VAUGL_STR-AUSGJ sy-vline 
WA_P01C_VAUGL_STR-AUSGN sy-vline 
WA_P01C_VAUGL_STR-BEIGE sy-vline 
WA_P01C_VAUGL_STR-LIVOR sy-vline 
WA_P01C_VAUGL_STR-AUFAN sy-vline      INTO ld_text SEPARATED BY SPACE.

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