ABAP Select data from SAP table IPRATVCOMOWNC into internal table

Get Example source ABAP code based on a different SAP table
  

Below is a number of ABAP code snippets to demonstrate how to select data from SAP IPRATVCOMOWNC 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 IPRATVCOMOWNC. 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 IPRATVCOMOWNC 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_IPRATVCOMOWNC TYPE STANDARD TABLE OF IPRATVCOMOWNC,
      WA_IPRATVCOMOWNC TYPE IPRATVCOMOWNC,
      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: <IPRATVCOMOWNC> TYPE IPRATVCOMOWNC.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM IPRATVCOMOWNC
*  INTO TABLE @DATA(IT_IPRATVCOMOWNC2).
*--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_IPRATVCOMOWNC INDEX 1 INTO DATA(WA_IPRATVCOMOWNC2).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_IPRATVCOMOWNC ASSIGNING <IPRATVCOMOWNC>.
*To update a field value using a field symbol simply change the value via the field symbol pointer
<IPRATVCOMOWNC>-MANDT = 1.
<IPRATVCOMOWNC>-CURRENTVALNDOCUMENT = 1.
<IPRATVCOMOWNC>-CURRENTVALNDOCUMENTYEAR = 1.
<IPRATVCOMOWNC>-DELIVERYNETWORK = 1.
<IPRATVCOMOWNC>-SALESDATE = 1.
ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_IPRATVCOMOWNC-PRAJOINTVENTURE, sy-vline,
WA_IPRATVCOMOWNC-DIVISIONOFINTEREST, sy-vline,
WA_IPRATVCOMOWNC-WELL, sy-vline,
WA_IPRATVCOMOWNC-WELLCOMPLETION, sy-vline,
WA_IPRATVCOMOWNC-PRACONTRACT, sy-vline,
WA_IPRATVCOMOWNC-ORIGINATINGMEASUREMENTPT, sy-vline.
ENDLOOP. *Add any further fields from structure WA_IPRATVCOMOWNC 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_IPRATVCOMOWNC 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_IPRATVCOMOWNC INTO WA_IPRATVCOMOWNC. *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 CURRENTVALNDOCUMENT CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_IPRATVCOMOWNC-CURRENTVALNDOCUMENT IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IPRATVCOMOWNC-CURRENTVALNDOCUMENT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit GJAHR, internal->external for field CURRENTVALNDOCUMENTYEAR CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT' EXPORTING input = WA_IPRATVCOMOWNC-CURRENTVALNDOCUMENTYEAR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IPRATVCOMOWNC-CURRENTVALNDOCUMENTYEAR.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

*Conversion exit MATN1, internal->external for field MATERIAL CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT' EXPORTING input = WA_IPRATVCOMOWNC-MATERIAL IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IPRATVCOMOWNC-MATERIAL.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

*Conversion exit CUNIT, internal->external for field ENERGYUNIT CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT' EXPORTING input = WA_IPRATVCOMOWNC-ENERGYUNIT IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IPRATVCOMOWNC-ENERGYUNIT.
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_IPRATVCOMOWNC_STR,
MANDT TYPE STRING,
CURRENTVALNDOCUMENT TYPE STRING,
CURRENTVALNDOCUMENTYEAR TYPE STRING,
DELIVERYNETWORK TYPE STRING,
SALESDATE TYPE STRING,
PRAJOINTVENTURE TYPE STRING,
DIVISIONOFINTEREST TYPE STRING,
WELL TYPE STRING,
WELLCOMPLETION TYPE STRING,
PRACONTRACT TYPE STRING,
ORIGINATINGMEASUREMENTPT TYPE STRING,
MATERIAL TYPE STRING,
COMBINEDHDRSQNCNUMBER TYPE STRING,
PRAOWNER TYPE STRING,
OWNERINTERESTTYPE TYPE STRING,
OWNERINTERESTSEQUENCE TYPE STRING,
PROCESSINGCOMPANYCODE TYPE STRING,
GLACCOUNT TYPE STRING,
PRAPRODUCT TYPE STRING,
DISBURSEMENTDECIMALRATIO TYPE STRING,
VALNDOCACCTGITEM TYPE STRING,
OWNERPAYMENTSTATUS TYPE STRING,
SUSPENSEREASON TYPE STRING,
PRALEGALFORM TYPE STRING,
TAXBASIS TYPE STRING,
OWNERISJNTINTRSTBILGENABLED TYPE STRING,
ITEMISREALLOCATED TYPE STRING,
AFFILIATEDCOMPANYCODE TYPE STRING,
BASELINEOWNERPAYMENTSTATUS TYPE STRING,
BASELINESUSPENSEREASON TYPE STRING,
BASELINEPRALEGALFORM TYPE STRING,
BASELINETAXBASIS TYPE STRING,
BSLNISJNTINTRSTBILGENABLED TYPE STRING,
BSLNITEMISREALLOCATED TYPE STRING,
BSLNAFFILIATEDCOMPANYCODE TYPE STRING,
OWNERNETVOLINVOLUNIT TYPE STRING,
BASELINEOWNERNETVOLUME TYPE STRING,
OWNERNETVOLDIFFPCT TYPE STRING,
OWNERGROSSAMOUNT TYPE STRING,
BASELINEOWNERGROSSAMOUNT TYPE STRING,
OWNERGROSSAMOUNTDIFFVAL TYPE STRING,
OWNERNETAMOUNT TYPE STRING,
BASELINEONWERNETAMOUNT TYPE STRING,
OWNERNETAMOUNTDIFFPCT TYPE STRING,
NETMARKETINGAMOUNT TYPE STRING,
BASELINENETMKTGAMOUNT TYPE STRING,
NETMARKETINGAMOUNTDIFFVAL TYPE STRING,
OWNRVOLREDUCNINVOLUNIT TYPE STRING,
BASELINEOWNRVOLUMEREDUCN TYPE STRING,
OWNERVOLUMEREDUCNDIFFVAL TYPE STRING,
OTHERDEDUCTIONAMOUNT TYPE STRING,
BSLNOTHERDEDUCTIONAMT TYPE STRING,
OTHDEDUCTIONAMOUNTDIFFVAL TYPE STRING,
OWNERENERGYINENERGYUNIT TYPE STRING,
BASELINEOWNERENERGY TYPE STRING,
OWNERENERGYDIFFVAL TYPE STRING,
NETREIMBMTMARKETINGAMT TYPE STRING,
BASELINENETREIMBMTMKTGAMT TYPE STRING,
NETREIMBMTMKTGAMTDIFFVAL TYPE STRING,
NETTAXREIMBMTAMT TYPE STRING,
BASELINENETTAXREIMBMTAMT TYPE STRING,
NETTAXREIMBMTAMTDIFFVAL TYPE STRING,
NETTAXAMOUNT TYPE STRING,
BASELINENETTAXAMOUNT TYPE STRING,
NETTAXAMOUNTDIFFVAL TYPE STRING,
COMPANYCODECURRENCY TYPE STRING,
VOLUMEUNIT TYPE STRING,
ENERGYUNIT TYPE STRING,
SEQUENCENUMBER TYPE STRING,
OWNERNETVOLUMETOLPCT TYPE STRING,
OWNERGRSSVALUETOLVAL TYPE STRING,
OWNERNETVALUETOLPCT TYPE STRING,
MARKETINGAMOUNTTOLVAL TYPE STRING,
OWNERVOLUMEREDUCNTOLVAL TYPE STRING,
OTHERDEDUCTAMOUNTTOLVAL TYPE STRING,
OWNERENERGYTOLVAL TYPE STRING,
NETREIMBMTMKTGTOLVAL TYPE STRING,
TAXREIMBMTAMOUNTTOLVAL TYPE STRING,
OWNERTOTALTAXESTOLVAL TYPE STRING,END OF T_EKKO_STR. DATA: WA_IPRATVCOMOWNC_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_IPRATVCOMOWNC_STR-MANDT sy-vline
WA_IPRATVCOMOWNC_STR-CURRENTVALNDOCUMENT sy-vline
WA_IPRATVCOMOWNC_STR-CURRENTVALNDOCUMENTYEAR sy-vline
WA_IPRATVCOMOWNC_STR-DELIVERYNETWORK sy-vline
WA_IPRATVCOMOWNC_STR-SALESDATE sy-vline
WA_IPRATVCOMOWNC_STR-PRAJOINTVENTURE sy-vline
WA_IPRATVCOMOWNC_STR-DIVISIONOFINTEREST sy-vline
WA_IPRATVCOMOWNC_STR-WELL sy-vline
WA_IPRATVCOMOWNC_STR-WELLCOMPLETION sy-vline
WA_IPRATVCOMOWNC_STR-PRACONTRACT sy-vline
WA_IPRATVCOMOWNC_STR-ORIGINATINGMEASUREMENTPT sy-vline
WA_IPRATVCOMOWNC_STR-MATERIAL sy-vline
WA_IPRATVCOMOWNC_STR-COMBINEDHDRSQNCNUMBER sy-vline
WA_IPRATVCOMOWNC_STR-PRAOWNER sy-vline
WA_IPRATVCOMOWNC_STR-OWNERINTERESTTYPE sy-vline
WA_IPRATVCOMOWNC_STR-OWNERINTERESTSEQUENCE sy-vline
WA_IPRATVCOMOWNC_STR-PROCESSINGCOMPANYCODE sy-vline
WA_IPRATVCOMOWNC_STR-GLACCOUNT sy-vline
WA_IPRATVCOMOWNC_STR-PRAPRODUCT sy-vline
WA_IPRATVCOMOWNC_STR-DISBURSEMENTDECIMALRATIO sy-vline
WA_IPRATVCOMOWNC_STR-VALNDOCACCTGITEM sy-vline
WA_IPRATVCOMOWNC_STR-OWNERPAYMENTSTATUS sy-vline
WA_IPRATVCOMOWNC_STR-SUSPENSEREASON sy-vline
WA_IPRATVCOMOWNC_STR-PRALEGALFORM sy-vline
WA_IPRATVCOMOWNC_STR-TAXBASIS sy-vline
WA_IPRATVCOMOWNC_STR-OWNERISJNTINTRSTBILGENABLED sy-vline
WA_IPRATVCOMOWNC_STR-ITEMISREALLOCATED sy-vline
WA_IPRATVCOMOWNC_STR-AFFILIATEDCOMPANYCODE sy-vline
WA_IPRATVCOMOWNC_STR-BASELINEOWNERPAYMENTSTATUS sy-vline
WA_IPRATVCOMOWNC_STR-BASELINESUSPENSEREASON sy-vline
WA_IPRATVCOMOWNC_STR-BASELINEPRALEGALFORM sy-vline
WA_IPRATVCOMOWNC_STR-BASELINETAXBASIS sy-vline
WA_IPRATVCOMOWNC_STR-BSLNISJNTINTRSTBILGENABLED sy-vline
WA_IPRATVCOMOWNC_STR-BSLNITEMISREALLOCATED sy-vline
WA_IPRATVCOMOWNC_STR-BSLNAFFILIATEDCOMPANYCODE sy-vline
WA_IPRATVCOMOWNC_STR-OWNERNETVOLINVOLUNIT sy-vline
WA_IPRATVCOMOWNC_STR-BASELINEOWNERNETVOLUME sy-vline
WA_IPRATVCOMOWNC_STR-OWNERNETVOLDIFFPCT sy-vline
WA_IPRATVCOMOWNC_STR-OWNERGROSSAMOUNT sy-vline
WA_IPRATVCOMOWNC_STR-BASELINEOWNERGROSSAMOUNT sy-vline
WA_IPRATVCOMOWNC_STR-OWNERGROSSAMOUNTDIFFVAL sy-vline
WA_IPRATVCOMOWNC_STR-OWNERNETAMOUNT sy-vline
WA_IPRATVCOMOWNC_STR-BASELINEONWERNETAMOUNT sy-vline
WA_IPRATVCOMOWNC_STR-OWNERNETAMOUNTDIFFPCT sy-vline
WA_IPRATVCOMOWNC_STR-NETMARKETINGAMOUNT sy-vline
WA_IPRATVCOMOWNC_STR-BASELINENETMKTGAMOUNT sy-vline
WA_IPRATVCOMOWNC_STR-NETMARKETINGAMOUNTDIFFVAL sy-vline
WA_IPRATVCOMOWNC_STR-OWNRVOLREDUCNINVOLUNIT sy-vline
WA_IPRATVCOMOWNC_STR-BASELINEOWNRVOLUMEREDUCN sy-vline
WA_IPRATVCOMOWNC_STR-OWNERVOLUMEREDUCNDIFFVAL sy-vline
WA_IPRATVCOMOWNC_STR-OTHERDEDUCTIONAMOUNT sy-vline
WA_IPRATVCOMOWNC_STR-BSLNOTHERDEDUCTIONAMT sy-vline
WA_IPRATVCOMOWNC_STR-OTHDEDUCTIONAMOUNTDIFFVAL sy-vline
WA_IPRATVCOMOWNC_STR-OWNERENERGYINENERGYUNIT sy-vline
WA_IPRATVCOMOWNC_STR-BASELINEOWNERENERGY sy-vline
WA_IPRATVCOMOWNC_STR-OWNERENERGYDIFFVAL sy-vline
WA_IPRATVCOMOWNC_STR-NETREIMBMTMARKETINGAMT sy-vline
WA_IPRATVCOMOWNC_STR-BASELINENETREIMBMTMKTGAMT sy-vline
WA_IPRATVCOMOWNC_STR-NETREIMBMTMKTGAMTDIFFVAL sy-vline
WA_IPRATVCOMOWNC_STR-NETTAXREIMBMTAMT sy-vline
WA_IPRATVCOMOWNC_STR-BASELINENETTAXREIMBMTAMT sy-vline
WA_IPRATVCOMOWNC_STR-NETTAXREIMBMTAMTDIFFVAL sy-vline
WA_IPRATVCOMOWNC_STR-NETTAXAMOUNT sy-vline
WA_IPRATVCOMOWNC_STR-BASELINENETTAXAMOUNT sy-vline
WA_IPRATVCOMOWNC_STR-NETTAXAMOUNTDIFFVAL sy-vline
WA_IPRATVCOMOWNC_STR-COMPANYCODECURRENCY sy-vline
WA_IPRATVCOMOWNC_STR-VOLUMEUNIT sy-vline
WA_IPRATVCOMOWNC_STR-ENERGYUNIT sy-vline
WA_IPRATVCOMOWNC_STR-SEQUENCENUMBER sy-vline
WA_IPRATVCOMOWNC_STR-OWNERNETVOLUMETOLPCT sy-vline
WA_IPRATVCOMOWNC_STR-OWNERGRSSVALUETOLVAL sy-vline
WA_IPRATVCOMOWNC_STR-OWNERNETVALUETOLPCT sy-vline
WA_IPRATVCOMOWNC_STR-MARKETINGAMOUNTTOLVAL sy-vline
WA_IPRATVCOMOWNC_STR-OWNERVOLUMEREDUCNTOLVAL sy-vline
WA_IPRATVCOMOWNC_STR-OTHERDEDUCTAMOUNTTOLVAL sy-vline
WA_IPRATVCOMOWNC_STR-OWNERENERGYTOLVAL sy-vline
WA_IPRATVCOMOWNC_STR-NETREIMBMTMKTGTOLVAL sy-vline
WA_IPRATVCOMOWNC_STR-TAXREIMBMTAMOUNTTOLVAL sy-vline
WA_IPRATVCOMOWNC_STR-OWNERTOTALTAXESTOLVAL sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.