ABAP Select data from SAP table PCOLLABFRTRFQ 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 PCOLLABFRTRFQ 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 PCOLLABFRTRFQ. 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 PCOLLABFRTRFQ 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_PCOLLABFRTRFQ TYPE STANDARD TABLE OF PCOLLABFRTRFQ,
      WA_PCOLLABFRTRFQ TYPE PCOLLABFRTRFQ,
      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: <PCOLLABFRTRFQ> TYPE PCOLLABFRTRFQ.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM PCOLLABFRTRFQ
*  INTO TABLE @DATA(IT_PCOLLABFRTRFQ2).
*--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_PCOLLABFRTRFQ INDEX 1 INTO DATA(WA_PCOLLABFRTRFQ2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<PCOLLABFRTRFQ>-MANDT = 1.
<PCOLLABFRTRFQ>-FREIGHTREQUESTFORQUOTATIONUUID = 1.
<PCOLLABFRTRFQ>-TENDERINGUUID = 1.
<PCOLLABFRTRFQ>-FREIGHTREQUESTFORQUOTATION = 1.
<PCOLLABFRTRFQ>-REFTRANSPORTATIONORDERUUID = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_PCOLLABFRTRFQ-TENDERINGMANAGER, sy-vline,
  WA_PCOLLABFRTRFQ-TENDERINGMANAGERFULLNAME, sy-vline,
  WA_PCOLLABFRTRFQ-TENDERINGREQUESTEDCARRIER, sy-vline,
  WA_PCOLLABFRTRFQ-TENDERINGRESPONSEDUEDATETIME, sy-vline,
  WA_PCOLLABFRTRFQ-PURCHASINGORGEXTERNALID, sy-vline,
  WA_PCOLLABFRTRFQ-PURCHASINGORGANIZATIONNAME, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_PCOLLABFRTRFQ 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_PCOLLABFRTRFQ 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_PCOLLABFRTRFQ INTO WA_PCOLLABFRTRFQ.


*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 ALPHA, internal->external for field FREIGHTREQUESTFORQUOTATION
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_PCOLLABFRTRFQ-FREIGHTREQUESTFORQUOTATION
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PCOLLABFRTRFQ-FREIGHTREQUESTFORQUOTATION.
WRITE:/ 'New Value:', ld_input.

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

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

*Conversion exit CUNIT, internal->external for field TRANSPORDNETDURATIONUNIT
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_PCOLLABFRTRFQ-TRANSPORDNETDURATIONUNIT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PCOLLABFRTRFQ-TRANSPORDNETDURATIONUNIT.
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_PCOLLABFRTRFQ_STR, 
MANDT TYPE STRING,
FREIGHTREQUESTFORQUOTATIONUUID TYPE STRING,
TENDERINGUUID TYPE STRING,
FREIGHTREQUESTFORQUOTATION TYPE STRING,
REFTRANSPORTATIONORDERUUID TYPE STRING,
TENDERINGMANAGER TYPE STRING,
TENDERINGMANAGERFULLNAME TYPE STRING,
TENDERINGREQUESTEDCARRIER TYPE STRING,
TENDERINGRESPONSEDUEDATETIME TYPE STRING,
PURCHASINGORGEXTERNALID TYPE STRING,
PURCHASINGORGANIZATIONNAME TYPE STRING,
TRANSPMEANSOFTRANSPORT TYPE STRING,
MEANSOFTRANSPORTDESC TYPE STRING,
TRANSPORDDISTANCEUNIT TYPE STRING,
TRANSPORDDISTANCE TYPE STRING,
TRANSPORDNETDURATIONUNIT TYPE STRING,
TRANSPORDNETDURATION TYPE STRING,
TRANSPORTATIONORDERCATEGORY TYPE STRING,
TRANSPORTATIONORDERTYPE TYPE STRING,
TENDERINGVISIBILITYSETTINGS TYPE STRING,
TENDERINGPRICELIMITVISIBILITY TYPE STRING,
TENDERINGLOWESTPRICEVISIBILITY TYPE STRING,
TENDERINGSTOPDATEVISIBILITY TYPE STRING,
TENDERINGSUBMDPRICEVISIBILITY TYPE STRING,
FREIGHTRFQLIFECYCLESTATUS TYPE STRING,
SOURCELOCATION TYPE STRING,
SOURCELOCATIONDESCRIPTION TYPE STRING,
SOURCELOCATIONADDRESSDESC TYPE STRING,
DESTINATIONLOCATION TYPE STRING,
DESTINATIONLOCATIONDESCRIPTION TYPE STRING,
DESTINATIONLOCATIONADDRESSDESC TYPE STRING,
TRANSPORDDEPARTUREDATE TYPE STRING,
TRANSPORDDEPARTURETIME TYPE STRING,
TRANSPORDDEPARTUREDATETIME TYPE STRING,
TRANSPORDARRIVALDATE TYPE STRING,
TRANSPORDARRIVALTIME TYPE STRING,
TRANSPORDARRIVALDATETIME TYPE STRING,
FREIGHTRFQRESPONSEDUE TYPE STRING,
FREIGHTRFQRESPONSEDUECRITLTY TYPE STRING,
NUMBEROFREMAININGHRSFORFRTRFQ TYPE STRING,
NUMBEROFREMAININGDAYSFORFRTRFQ TYPE STRING,
NUMBEROFREMAININGMINSFORFRTRFQ TYPE STRING,
TNDRGREQABSOLUTEPRICELIMITAMT TYPE STRING,
TENDERINGLOWESTPROPOSEDAMTCRCY TYPE STRING,
TENDERINGLOWESTPROPOSEDAMOUNT TYPE STRING,
TENDERINGPREFERREDCURRENCY TYPE STRING,
TENDERINGRESPONSESQNCNUMBER TYPE STRING,
TENDERINGRESPONSECODE TYPE STRING,
TENDERINGRESPONSECODEDESC TYPE STRING,END OF T_EKKO_STR.
DATA: WA_PCOLLABFRTRFQ_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_PCOLLABFRTRFQ_STR-MANDT sy-vline 
WA_PCOLLABFRTRFQ_STR-FREIGHTREQUESTFORQUOTATIONUUID sy-vline 
WA_PCOLLABFRTRFQ_STR-TENDERINGUUID sy-vline 
WA_PCOLLABFRTRFQ_STR-FREIGHTREQUESTFORQUOTATION sy-vline 
WA_PCOLLABFRTRFQ_STR-REFTRANSPORTATIONORDERUUID sy-vline 
WA_PCOLLABFRTRFQ_STR-TENDERINGMANAGER sy-vline 
WA_PCOLLABFRTRFQ_STR-TENDERINGMANAGERFULLNAME sy-vline 
WA_PCOLLABFRTRFQ_STR-TENDERINGREQUESTEDCARRIER sy-vline 
WA_PCOLLABFRTRFQ_STR-TENDERINGRESPONSEDUEDATETIME sy-vline 
WA_PCOLLABFRTRFQ_STR-PURCHASINGORGEXTERNALID sy-vline 
WA_PCOLLABFRTRFQ_STR-PURCHASINGORGANIZATIONNAME sy-vline 
WA_PCOLLABFRTRFQ_STR-TRANSPMEANSOFTRANSPORT sy-vline 
WA_PCOLLABFRTRFQ_STR-MEANSOFTRANSPORTDESC sy-vline 
WA_PCOLLABFRTRFQ_STR-TRANSPORDDISTANCEUNIT sy-vline 
WA_PCOLLABFRTRFQ_STR-TRANSPORDDISTANCE sy-vline 
WA_PCOLLABFRTRFQ_STR-TRANSPORDNETDURATIONUNIT sy-vline 
WA_PCOLLABFRTRFQ_STR-TRANSPORDNETDURATION sy-vline 
WA_PCOLLABFRTRFQ_STR-TRANSPORTATIONORDERCATEGORY sy-vline 
WA_PCOLLABFRTRFQ_STR-TRANSPORTATIONORDERTYPE sy-vline 
WA_PCOLLABFRTRFQ_STR-TENDERINGVISIBILITYSETTINGS sy-vline 
WA_PCOLLABFRTRFQ_STR-TENDERINGPRICELIMITVISIBILITY sy-vline 
WA_PCOLLABFRTRFQ_STR-TENDERINGLOWESTPRICEVISIBILITY sy-vline 
WA_PCOLLABFRTRFQ_STR-TENDERINGSTOPDATEVISIBILITY sy-vline 
WA_PCOLLABFRTRFQ_STR-TENDERINGSUBMDPRICEVISIBILITY sy-vline 
WA_PCOLLABFRTRFQ_STR-FREIGHTRFQLIFECYCLESTATUS sy-vline 
WA_PCOLLABFRTRFQ_STR-SOURCELOCATION sy-vline 
WA_PCOLLABFRTRFQ_STR-SOURCELOCATIONDESCRIPTION sy-vline 
WA_PCOLLABFRTRFQ_STR-SOURCELOCATIONADDRESSDESC sy-vline 
WA_PCOLLABFRTRFQ_STR-DESTINATIONLOCATION sy-vline 
WA_PCOLLABFRTRFQ_STR-DESTINATIONLOCATIONDESCRIPTION sy-vline 
WA_PCOLLABFRTRFQ_STR-DESTINATIONLOCATIONADDRESSDESC sy-vline 
WA_PCOLLABFRTRFQ_STR-TRANSPORDDEPARTUREDATE sy-vline 
WA_PCOLLABFRTRFQ_STR-TRANSPORDDEPARTURETIME sy-vline 
WA_PCOLLABFRTRFQ_STR-TRANSPORDDEPARTUREDATETIME sy-vline 
WA_PCOLLABFRTRFQ_STR-TRANSPORDARRIVALDATE sy-vline 
WA_PCOLLABFRTRFQ_STR-TRANSPORDARRIVALTIME sy-vline 
WA_PCOLLABFRTRFQ_STR-TRANSPORDARRIVALDATETIME sy-vline 
WA_PCOLLABFRTRFQ_STR-FREIGHTRFQRESPONSEDUE sy-vline 
WA_PCOLLABFRTRFQ_STR-FREIGHTRFQRESPONSEDUECRITLTY sy-vline 
WA_PCOLLABFRTRFQ_STR-NUMBEROFREMAININGHRSFORFRTRFQ sy-vline 
WA_PCOLLABFRTRFQ_STR-NUMBEROFREMAININGDAYSFORFRTRFQ sy-vline 
WA_PCOLLABFRTRFQ_STR-NUMBEROFREMAININGMINSFORFRTRFQ sy-vline 
WA_PCOLLABFRTRFQ_STR-TNDRGREQABSOLUTEPRICELIMITAMT sy-vline 
WA_PCOLLABFRTRFQ_STR-TENDERINGLOWESTPROPOSEDAMTCRCY sy-vline 
WA_PCOLLABFRTRFQ_STR-TENDERINGLOWESTPROPOSEDAMOUNT sy-vline 
WA_PCOLLABFRTRFQ_STR-TENDERINGPREFERREDCURRENCY sy-vline 
WA_PCOLLABFRTRFQ_STR-TENDERINGRESPONSESQNCNUMBER sy-vline 
WA_PCOLLABFRTRFQ_STR-TENDERINGRESPONSECODE sy-vline 
WA_PCOLLABFRTRFQ_STR-TENDERINGRESPONSECODEDESC sy-vline      INTO ld_text SEPARATED BY SPACE.

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