ABAP Select data from SAP table IRAPOBWHOACTASG 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 IRAPOBWHOACTASG 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 IRAPOBWHOACTASG. 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 IRAPOBWHOACTASG 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_IRAPOBWHOACTASG TYPE STANDARD TABLE OF IRAPOBWHOACTASG, WA_IRAPOBWHOACTASG TYPE IRAPOBWHOACTASG, 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: <IRAPOBWHOACTASG> TYPE IRAPOBWHOACTASG. *Process all fields in table header/work area as string values PERFORM process_as_string_field_values CHANGING wa_IRAPOBWHOACTASG. SELECT * *restrict ABAP select to first 10 rows UP TO 10 ROWS FROM IRAPOBWHOACTASG INTO TABLE IT_IRAPOBWHOACTASG. *Select data and declare internal table using in-line method @DATA *SELECT * * FROM IRAPOBWHOACTASG * INTO TABLE @DATA(IT_IRAPOBWHOACTASG2). *--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_IRAPOBWHOACTASG INDEX 1 INTO DATA(WA_IRAPOBWHOACTASG2). *Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL LOOP AT IT_IRAPOBWHOACTASG ASSIGNING <IRAPOBWHOACTASG>.*To update a field value using a field symbol simply change the value via the field symbol pointer
<IRAPOBWHOACTASG>-MANDT = 1.
<IRAPOBWHOACTASG>-PERFORMANCEOBLIGATION = 1.
<IRAPOBWHOACTASG>-PERFORMANCEOBLIGATIONCLASS = 1.
<IRAPOBWHOACTASG>-REVENUEACCOUNTINGCONTRACT = 1.
<IRAPOBWHOACTASG>-ALLOCATEDPRICEINSALESDOCCRCY = 1.
ENDLOOP. LOOP AT IT_IRAPOBWHOACTASG INTO WA_IRAPOBWHOACTASG. *Write horizonal line to screen report. WRITE:/ sy-uline. *Write selected data to screen/report before conversion. WRITE:/ sy-vline, WA_IRAPOBWHOACTASG-CONTRACTUALPRCINSLSDOCCRCY, sy-vline,
WA_IRAPOBWHOACTASG-PERUNITSSPRICEINSLSDOCCRCY, sy-vline,
WA_IRAPOBWHOACTASG-SSPRICEINSALESDOCCRCY, sy-vline,
WA_IRAPOBWHOACTASG-SSPRICETOLERANCEPERCENT, sy-vline,
WA_IRAPOBWHOACTASG-SSPRICETOLERANCEAMOUNT, sy-vline,
WA_IRAPOBWHOACTASG-SALESDOCUMENTCURRENCY, sy-vline.
ENDLOOP. *Add any further fields from structure WA_IRAPOBWHOACTASG 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_IRAPOBWHOACTASG 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_IRAPOBWHOACTASG INTO WA_IRAPOBWHOACTASG. *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 PERFORMANCEOBLIGATION CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_IRAPOBWHOACTASG-PERFORMANCEOBLIGATION IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IRAPOBWHOACTASG-PERFORMANCEOBLIGATION.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field REVENUEACCOUNTINGCONTRACT CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_IRAPOBWHOACTASG-REVENUEACCOUNTINGCONTRACT IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IRAPOBWHOACTASG-REVENUEACCOUNTINGCONTRACT.
WRITE:/ 'New Value:', ld_input.
*Conversion exit CUNIT, internal->external for field PERFOBLGNCONTRACTUALQTYUNIT CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT' EXPORTING input = WA_IRAPOBWHOACTASG-PERFOBLGNCONTRACTUALQTYUNIT IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IRAPOBWHOACTASG-PERFOBLGNCONTRACTUALQTYUNIT.
WRITE:/ 'New Value:', ld_input.
*Conversion exit CUNIT, internal->external for field PERFOBLGNEFFECTIVEQUANTITYUNIT CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT' EXPORTING input = WA_IRAPOBWHOACTASG-PERFOBLGNEFFECTIVEQUANTITYUNIT IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IRAPOBWHOACTASG-PERFOBLGNEFFECTIVEQUANTITYUNIT.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field BUSINESSPARTNER CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_IRAPOBWHOACTASG-BUSINESSPARTNER IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IRAPOBWHOACTASG-BUSINESSPARTNER.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field RAHIGHERLEVELPERFOBLGN CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_IRAPOBWHOACTASG-RAHIGHERLEVELPERFOBLGN IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IRAPOBWHOACTASG-RAHIGHERLEVELPERFOBLGN.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field CUSTOMER CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_IRAPOBWHOACTASG-CUSTOMER IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IRAPOBWHOACTASG-CUSTOMER.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field RAPERFOBLGNACCRUEDCOSTACCOUNT CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_IRAPOBWHOACTASG-RAPERFOBLGNACCRUEDCOSTACCOUNT IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IRAPOBWHOACTASG-RAPERFOBLGNACCRUEDCOSTACCOUNT.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field RAPERFOBLGNDEFERREDCOSTACCOUNT CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_IRAPOBWHOACTASG-RAPERFOBLGNDEFERREDCOSTACCOUNT IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IRAPOBWHOACTASG-RAPERFOBLGNDEFERREDCOSTACCOUNT.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field RACONTRACTASSETACCOUNT CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_IRAPOBWHOACTASG-RACONTRACTASSETACCOUNT IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IRAPOBWHOACTASG-RACONTRACTASSETACCOUNT.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field RACONTRACTLIABILITYACCOUNT CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_IRAPOBWHOACTASG-RACONTRACTLIABILITYACCOUNT IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IRAPOBWHOACTASG-RACONTRACTLIABILITYACCOUNT.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field ROOTPERFORMANCEOBLIGATIONINBOM CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_IRAPOBWHOACTASG-ROOTPERFORMANCEOBLIGATIONINBOM IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IRAPOBWHOACTASG-ROOTPERFORMANCEOBLIGATIONINBOM.
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_IRAPOBWHOACTASG_STR,
MANDT TYPE STRING,
PERFORMANCEOBLIGATION TYPE STRING,
PERFORMANCEOBLIGATIONCLASS TYPE STRING,
REVENUEACCOUNTINGCONTRACT TYPE STRING,
ALLOCATEDPRICEINSALESDOCCRCY TYPE STRING,
CONTRACTUALPRCINSLSDOCCRCY TYPE STRING,
PERUNITSSPRICEINSLSDOCCRCY TYPE STRING,
SSPRICEINSALESDOCCRCY TYPE STRING,
SSPRICETOLERANCEPERCENT TYPE STRING,
SSPRICETOLERANCEAMOUNT TYPE STRING,
SALESDOCUMENTCURRENCY TYPE STRING,
PERFOBLGNCONTRACTUALQUANTITY TYPE STRING,
PERFOBLGNCONTRACTUALQTYUNIT TYPE STRING,
PERFOBLGNEFFECTIVEQUANTITY TYPE STRING,
PERFOBLGNEFFECTIVEQUANTITYUNIT TYPE STRING,
PERFOBLGNFULFILLMENTTYPE TYPE STRING,
RAPERFOBLGNISRESIDUAL TYPE STRING,
PERFOBLGNEVENTTYPE TYPE STRING,
PERFORMANCEOBLIGATIONSTARTDATE TYPE STRING,
PERFORMANCEOBLIGATIONENDDATE TYPE STRING,
RAPERFOBLGNFINALIZATIONDATE TYPE STRING,
PERFOBLIGATIONDEFERRALMETHOD TYPE STRING,
PERFOBLGNSTARTDATETYPE TYPE STRING,
PERFOBLGNISFULLYFULFILLED TYPE STRING,
PERFOBLGNISFINALLYINVOICED TYPE STRING,
BUSINESSPARTNER TYPE STRING,
REVNACCTGSALESORGANIZATION TYPE STRING,
COMPANYCODE TYPE STRING,
ACCOUNTINGPRINCIPLE TYPE STRING,
PERFOBLGNCREATEDBYUSER TYPE STRING,
PERFOBLGNCREATIONDATE TYPE STRING,
PERFOBLGNLASTCHANGEDATE TYPE STRING,
PERFOBLGNLASTCHANGEDBYUSR TYPE STRING,
PERFOBLGNISEXCLFROMPRICEALLOC TYPE STRING,
PERFOBLGNPOSTINGISSUSP TYPE STRING,
OPLCONTRACTUALPRCINSLSDOCCRCY TYPE STRING,
PERFOBLGNHASCONTRMODIFICATION TYPE STRING,
RAHIGHERLEVELPERFOBLGN TYPE STRING,
PERFOBLGNISSOFTDELETED TYPE STRING,
RAPERFOBLGNINVOICEEFFECTTYPE TYPE STRING,
RAFULFILLMENTISVALUEBASED TYPE STRING,
REVNACCTGPERFOBLGNSTATUS TYPE STRING,
RAPERFOBLGNCOMPLETIONDATE TYPE STRING,
CUSTOMER TYPE STRING,
RAPERFORMANCEOBLIGATIONTYPE TYPE STRING,
RAPERFOBLGNCATEGORY TYPE STRING,
RAPERFOBLGNACCRUEDCOSTACCOUNT TYPE STRING,
RAPERFOBLGNDEFERREDCOSTACCOUNT TYPE STRING,
RACONTRACTASSETACCOUNT TYPE STRING,
RACONTRACTLIABILITYACCOUNT TYPE STRING,
RAPERFOBLGNISMANUALLYCHANGED TYPE STRING,
RAPERFOBLGNISMANUALLYCREATED TYPE STRING,
RAPERFOBLGNISMANUALLYDELETED TYPE STRING,
RAPERFOBLGNCOSTAMTINSLSDOCCRCY TYPE STRING,
COSTCURRENCY TYPE STRING,
RAPERFOBLGNDISTINCTTYPE TYPE STRING,
RAPERFOBLGNISCOSTRECOGNIZABLE TYPE STRING,
RAINITIALEFFECTIVEDATE TYPE STRING,
ROOTPERFORMANCEOBLIGATIONINBOM TYPE STRING,END OF T_EKKO_STR. DATA: WA_IRAPOBWHOACTASG_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_IRAPOBWHOACTASG_STR-MANDT sy-vline
WA_IRAPOBWHOACTASG_STR-PERFORMANCEOBLIGATION sy-vline
WA_IRAPOBWHOACTASG_STR-PERFORMANCEOBLIGATIONCLASS sy-vline
WA_IRAPOBWHOACTASG_STR-REVENUEACCOUNTINGCONTRACT sy-vline
WA_IRAPOBWHOACTASG_STR-ALLOCATEDPRICEINSALESDOCCRCY sy-vline
WA_IRAPOBWHOACTASG_STR-CONTRACTUALPRCINSLSDOCCRCY sy-vline
WA_IRAPOBWHOACTASG_STR-PERUNITSSPRICEINSLSDOCCRCY sy-vline
WA_IRAPOBWHOACTASG_STR-SSPRICEINSALESDOCCRCY sy-vline
WA_IRAPOBWHOACTASG_STR-SSPRICETOLERANCEPERCENT sy-vline
WA_IRAPOBWHOACTASG_STR-SSPRICETOLERANCEAMOUNT sy-vline
WA_IRAPOBWHOACTASG_STR-SALESDOCUMENTCURRENCY sy-vline
WA_IRAPOBWHOACTASG_STR-PERFOBLGNCONTRACTUALQUANTITY sy-vline
WA_IRAPOBWHOACTASG_STR-PERFOBLGNCONTRACTUALQTYUNIT sy-vline
WA_IRAPOBWHOACTASG_STR-PERFOBLGNEFFECTIVEQUANTITY sy-vline
WA_IRAPOBWHOACTASG_STR-PERFOBLGNEFFECTIVEQUANTITYUNIT sy-vline
WA_IRAPOBWHOACTASG_STR-PERFOBLGNFULFILLMENTTYPE sy-vline
WA_IRAPOBWHOACTASG_STR-RAPERFOBLGNISRESIDUAL sy-vline
WA_IRAPOBWHOACTASG_STR-PERFOBLGNEVENTTYPE sy-vline
WA_IRAPOBWHOACTASG_STR-PERFORMANCEOBLIGATIONSTARTDATE sy-vline
WA_IRAPOBWHOACTASG_STR-PERFORMANCEOBLIGATIONENDDATE sy-vline
WA_IRAPOBWHOACTASG_STR-RAPERFOBLGNFINALIZATIONDATE sy-vline
WA_IRAPOBWHOACTASG_STR-PERFOBLIGATIONDEFERRALMETHOD sy-vline
WA_IRAPOBWHOACTASG_STR-PERFOBLGNSTARTDATETYPE sy-vline
WA_IRAPOBWHOACTASG_STR-PERFOBLGNISFULLYFULFILLED sy-vline
WA_IRAPOBWHOACTASG_STR-PERFOBLGNISFINALLYINVOICED sy-vline
WA_IRAPOBWHOACTASG_STR-BUSINESSPARTNER sy-vline
WA_IRAPOBWHOACTASG_STR-REVNACCTGSALESORGANIZATION sy-vline
WA_IRAPOBWHOACTASG_STR-COMPANYCODE sy-vline
WA_IRAPOBWHOACTASG_STR-ACCOUNTINGPRINCIPLE sy-vline
WA_IRAPOBWHOACTASG_STR-PERFOBLGNCREATEDBYUSER sy-vline
WA_IRAPOBWHOACTASG_STR-PERFOBLGNCREATIONDATE sy-vline
WA_IRAPOBWHOACTASG_STR-PERFOBLGNLASTCHANGEDATE sy-vline
WA_IRAPOBWHOACTASG_STR-PERFOBLGNLASTCHANGEDBYUSR sy-vline
WA_IRAPOBWHOACTASG_STR-PERFOBLGNISEXCLFROMPRICEALLOC sy-vline
WA_IRAPOBWHOACTASG_STR-PERFOBLGNPOSTINGISSUSP sy-vline
WA_IRAPOBWHOACTASG_STR-OPLCONTRACTUALPRCINSLSDOCCRCY sy-vline
WA_IRAPOBWHOACTASG_STR-PERFOBLGNHASCONTRMODIFICATION sy-vline
WA_IRAPOBWHOACTASG_STR-RAHIGHERLEVELPERFOBLGN sy-vline
WA_IRAPOBWHOACTASG_STR-PERFOBLGNISSOFTDELETED sy-vline
WA_IRAPOBWHOACTASG_STR-RAPERFOBLGNINVOICEEFFECTTYPE sy-vline
WA_IRAPOBWHOACTASG_STR-RAFULFILLMENTISVALUEBASED sy-vline
WA_IRAPOBWHOACTASG_STR-REVNACCTGPERFOBLGNSTATUS sy-vline
WA_IRAPOBWHOACTASG_STR-RAPERFOBLGNCOMPLETIONDATE sy-vline
WA_IRAPOBWHOACTASG_STR-CUSTOMER sy-vline
WA_IRAPOBWHOACTASG_STR-RAPERFORMANCEOBLIGATIONTYPE sy-vline
WA_IRAPOBWHOACTASG_STR-RAPERFOBLGNCATEGORY sy-vline
WA_IRAPOBWHOACTASG_STR-RAPERFOBLGNACCRUEDCOSTACCOUNT sy-vline
WA_IRAPOBWHOACTASG_STR-RAPERFOBLGNDEFERREDCOSTACCOUNT sy-vline
WA_IRAPOBWHOACTASG_STR-RACONTRACTASSETACCOUNT sy-vline
WA_IRAPOBWHOACTASG_STR-RACONTRACTLIABILITYACCOUNT sy-vline
WA_IRAPOBWHOACTASG_STR-RAPERFOBLGNISMANUALLYCHANGED sy-vline
WA_IRAPOBWHOACTASG_STR-RAPERFOBLGNISMANUALLYCREATED sy-vline
WA_IRAPOBWHOACTASG_STR-RAPERFOBLGNISMANUALLYDELETED sy-vline
WA_IRAPOBWHOACTASG_STR-RAPERFOBLGNCOSTAMTINSLSDOCCRCY sy-vline
WA_IRAPOBWHOACTASG_STR-COSTCURRENCY sy-vline
WA_IRAPOBWHOACTASG_STR-RAPERFOBLGNDISTINCTTYPE sy-vline
WA_IRAPOBWHOACTASG_STR-RAPERFOBLGNISCOSTRECOGNIZABLE sy-vline
WA_IRAPOBWHOACTASG_STR-RAINITIALEFFECTIVEDATE sy-vline
WA_IRAPOBWHOACTASG_STR-ROOTPERFORMANCEOBLIGATIONINBOM sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.