ABAP Select data from SAP table PRU_T60_ORDER 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 PRU_T60_ORDER 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 PRU_T60_ORDER. 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 PRU_T60_ORDER 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_PRU_T60_ORDER TYPE STANDARD TABLE OF PRU_T60_ORDER,
      WA_PRU_T60_ORDER TYPE PRU_T60_ORDER,
      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: <PRU_T60_ORDER> TYPE PRU_T60_ORDER.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM PRU_T60_ORDER
*  INTO TABLE @DATA(IT_PRU_T60_ORDER2).
*--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_PRU_T60_ORDER INDEX 1 INTO DATA(WA_PRU_T60_ORDER2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<PRU_T60_ORDER>-SEORN = 1.
<PRU_T60_ORDER>-PERNR = 1.
<PRU_T60_ORDER>-FIO = 1.
<PRU_T60_ORDER>-DEPAR = 1.
<PRU_T60_ORDER>-POSIT = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_PRU_T60_ORDER-OKPO, sy-vline,
  WA_PRU_T60_ORDER-ORGNAM, sy-vline,
  WA_PRU_T60_ORDER-DOCNUM, sy-vline,
  WA_PRU_T60_ORDER-DOCDAT, sy-vline,
  WA_PRU_T60_ORDER-MANPOS, sy-vline,
  WA_PRU_T60_ORDER-MANNAM, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_PRU_T60_ORDER 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_PRU_T60_ORDER 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_PRU_T60_ORDER INTO WA_PRU_T60_ORDER.


*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_PRU_T60_ORDER_STR, 
SEORN TYPE STRING,
PERNR TYPE STRING,
FIO TYPE STRING,
DEPAR TYPE STRING,
POSIT TYPE STRING,
OKPO TYPE STRING,
ORGNAM TYPE STRING,
DOCNUM TYPE STRING,
DOCDAT TYPE STRING,
MANPOS TYPE STRING,
MANNAM TYPE STRING,
ACCNAM TYPE STRING,
ORDSD TYPE STRING,
DOCNU3 TYPE STRING,
DOCDA3 TYPE STRING,
SCHDA3 TYPE STRING,
DOCDA3D TYPE STRING,
DOCDA3M TYPE STRING,
DOCDA3Y TYPE STRING,
SCHDA3D TYPE STRING,
SCHDA3M TYPE STRING,
SCHDA3Y TYPE STRING,
ABWTG TYPE STRING,
DTYPE TYPE STRING,
BEGDA TYPE STRING,
ENDDA TYPE STRING,
VACFR TYPE STRING,
VACTO TYPE STRING,
ABWTB TYPE STRING,
ORDNU TYPE STRING,
ORDDT TYPE STRING,
BONDT TYPE STRING,
PAYTY TYPE STRING,
PAYID TYPE STRING,
OCRSN TYPE STRING,
PAYM3 TYPE STRING,
CURR3 TYPE STRING,
SUMFP TYPE STRING,
COPSD TYPE STRING,
PDNUM TYPE STRING,
PDDAT TYPE STRING,
PDDAD TYPE STRING,
PDDAM TYPE STRING,
PDDAY TYPE STRING,
CURMO TYPE STRING,
FUTMO TYPE STRING,END OF T_EKKO_STR.
DATA: WA_PRU_T60_ORDER_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_PRU_T60_ORDER_STR-SEORN sy-vline 
WA_PRU_T60_ORDER_STR-PERNR sy-vline 
WA_PRU_T60_ORDER_STR-FIO sy-vline 
WA_PRU_T60_ORDER_STR-DEPAR sy-vline 
WA_PRU_T60_ORDER_STR-POSIT sy-vline 
WA_PRU_T60_ORDER_STR-OKPO sy-vline 
WA_PRU_T60_ORDER_STR-ORGNAM sy-vline 
WA_PRU_T60_ORDER_STR-DOCNUM sy-vline 
WA_PRU_T60_ORDER_STR-DOCDAT sy-vline 
WA_PRU_T60_ORDER_STR-MANPOS sy-vline 
WA_PRU_T60_ORDER_STR-MANNAM sy-vline 
WA_PRU_T60_ORDER_STR-ACCNAM sy-vline 
WA_PRU_T60_ORDER_STR-ORDSD sy-vline 
WA_PRU_T60_ORDER_STR-DOCNU3 sy-vline 
WA_PRU_T60_ORDER_STR-DOCDA3 sy-vline 
WA_PRU_T60_ORDER_STR-SCHDA3 sy-vline 
WA_PRU_T60_ORDER_STR-DOCDA3D sy-vline 
WA_PRU_T60_ORDER_STR-DOCDA3M sy-vline 
WA_PRU_T60_ORDER_STR-DOCDA3Y sy-vline 
WA_PRU_T60_ORDER_STR-SCHDA3D sy-vline 
WA_PRU_T60_ORDER_STR-SCHDA3M sy-vline 
WA_PRU_T60_ORDER_STR-SCHDA3Y sy-vline 
WA_PRU_T60_ORDER_STR-ABWTG sy-vline 
WA_PRU_T60_ORDER_STR-DTYPE sy-vline 
WA_PRU_T60_ORDER_STR-BEGDA sy-vline 
WA_PRU_T60_ORDER_STR-ENDDA sy-vline 
WA_PRU_T60_ORDER_STR-VACFR sy-vline 
WA_PRU_T60_ORDER_STR-VACTO sy-vline 
WA_PRU_T60_ORDER_STR-ABWTB sy-vline 
WA_PRU_T60_ORDER_STR-ORDNU sy-vline 
WA_PRU_T60_ORDER_STR-ORDDT sy-vline 
WA_PRU_T60_ORDER_STR-BONDT sy-vline 
WA_PRU_T60_ORDER_STR-PAYTY sy-vline 
WA_PRU_T60_ORDER_STR-PAYID sy-vline 
WA_PRU_T60_ORDER_STR-OCRSN sy-vline 
WA_PRU_T60_ORDER_STR-PAYM3 sy-vline 
WA_PRU_T60_ORDER_STR-CURR3 sy-vline 
WA_PRU_T60_ORDER_STR-SUMFP sy-vline 
WA_PRU_T60_ORDER_STR-COPSD sy-vline 
WA_PRU_T60_ORDER_STR-PDNUM sy-vline 
WA_PRU_T60_ORDER_STR-PDDAT sy-vline 
WA_PRU_T60_ORDER_STR-PDDAD sy-vline 
WA_PRU_T60_ORDER_STR-PDDAM sy-vline 
WA_PRU_T60_ORDER_STR-PDDAY sy-vline 
WA_PRU_T60_ORDER_STR-CURMO sy-vline 
WA_PRU_T60_ORDER_STR-FUTMO sy-vline      INTO ld_text SEPARATED BY SPACE.

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