ABAP Select data from SAP table IRFMMASADOBSC 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 IRFMMASADOBSC 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 IRFMMASADOBSC. 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 IRFMMASADOBSC 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_IRFMMASADOBSC TYPE STANDARD TABLE OF IRFMMASADOBSC,
      WA_IRFMMASADOBSC TYPE IRFMMASADOBSC,
      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: <IRFMMASADOBSC> TYPE IRFMMASADOBSC.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM IRFMMASADOBSC
*  INTO TABLE @DATA(IT_IRFMMASADOBSC2).
*--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_IRFMMASADOBSC INDEX 1 INTO DATA(WA_IRFMMASADOBSC2).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_IRFMMASADOBSC ASSIGNING <IRFMMASADOBSC>.
*To update a field value using a field symbol simply change the value via the field symbol pointer
<IRFMMASADOBSC>-MANDT = 1.
<IRFMMASADOBSC>-SALESORDER = 1.
<IRFMMASADOBSC>-SDDOCUMENTCATEGORY = 1.
<IRFMMASADOBSC>-SALESDOCUMENTTYPE = 1.
<IRFMMASADOBSC>-SOLDTOPARTY = 1.
ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_IRFMMASADOBSC-SHIPTOPARTY, sy-vline,
WA_IRFMMASADOBSC-SALESORGANIZATION, sy-vline,
WA_IRFMMASADOBSC-DISTRIBUTIONCHANNEL, sy-vline,
WA_IRFMMASADOBSC-ORGANIZATIONDIVISION, sy-vline,
WA_IRFMMASADOBSC-REQUESTEDDELIVERYDATE, sy-vline,
WA_IRFMMASADOBSC-CREATEDBYUSER, sy-vline.
ENDLOOP. *Add any further fields from structure WA_IRFMMASADOBSC 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_IRFMMASADOBSC 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_IRFMMASADOBSC INTO WA_IRFMMASADOBSC. *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 SALESORDER CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_IRFMMASADOBSC-SALESORDER IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IRFMMASADOBSC-SALESORDER.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AUART, internal->external for field SALESDOCUMENTTYPE CALL FUNCTION 'CONVERSION_EXIT_AUART_OUTPUT' EXPORTING input = WA_IRFMMASADOBSC-SALESDOCUMENTTYPE IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IRFMMASADOBSC-SALESDOCUMENTTYPE.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit ALPHA, internal->external for field SHIPTOPARTY CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_IRFMMASADOBSC-SHIPTOPARTY IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IRFMMASADOBSC-SHIPTOPARTY.
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_IRFMMASADOBSC_STR,
MANDT TYPE STRING,
SALESORDER TYPE STRING,
SDDOCUMENTCATEGORY TYPE STRING,
SALESDOCUMENTTYPE TYPE STRING,
SOLDTOPARTY TYPE STRING,
SHIPTOPARTY TYPE STRING,
SALESORGANIZATION TYPE STRING,
DISTRIBUTIONCHANNEL TYPE STRING,
ORGANIZATIONDIVISION TYPE STRING,
REQUESTEDDELIVERYDATE TYPE STRING,
CREATEDBYUSER TYPE STRING,
CREATIONDATE TYPE STRING,
SALESDISTRICT TYPE STRING,
SALESOFFICE TYPE STRING,
SALESGROUP TYPE STRING,
FASHIONCANCELDATE TYPE STRING,
SHIPPINGCONDITION TYPE STRING,
CUSTOMERGROUP TYPE STRING,
ADDITIONALCUSTOMERGROUP1 TYPE STRING,
ADDITIONALCUSTOMERGROUP2 TYPE STRING,
ADDITIONALCUSTOMERGROUP3 TYPE STRING,
ADDITIONALCUSTOMERGROUP4 TYPE STRING,
ADDITIONALCUSTOMERGROUP5 TYPE STRING,
RETAILADDITIONALCUSTOMERGRP6 TYPE STRING,
RETAILADDITIONALCUSTOMERGRP7 TYPE STRING,
RETAILADDITIONALCUSTOMERGRP8 TYPE STRING,
RETAILADDITIONALCUSTOMERGRP9 TYPE STRING,
RETAILADDITIONALCUSTOMERGRP10 TYPE STRING,
PURCHASEORDERBYCUSTOMER TYPE STRING,
CUSTOMERPURCHASEORDERDATE TYPE STRING,
DELIVERYBLOCKREASON TYPE STRING,
HEADERBILLINGBLOCKREASON TYPE STRING,
TOTALNETAMOUNT TYPE STRING,
TRANSACTIONCURRENCY TYPE STRING,
CUSTOMERPAYMENTTERMS TYPE STRING,
INCOTERMSCLASSIFICATION TYPE STRING,
INCOTERMSLOCATION1 TYPE STRING,
SDDOCUMENTREASON TYPE STRING,
OVERALLSDPROCESSSTATUS TYPE STRING,
HDRGENERALINCOMPLETIONSTATUS TYPE STRING,
OVRLITMGENERALINCOMPLETIONSTS TYPE STRING,
OVERALLSDDOCUMENTREJECTIONSTS TYPE STRING,
OVERALLTOTALDELIVERYSTATUS TYPE STRING,
TOTALCREDITCHECKSTATUS TYPE STRING,
TOTALBLOCKSTATUS TYPE STRING,
PRICINGDATE TYPE STRING,
BILLINGDOCUMENTDATE TYPE STRING,
CUSTOMERPRICEGROUP TYPE STRING,
CREDITCONTROLAREA TYPE STRING,
SALESDOCUMENTDATE TYPE STRING,
SHIPPINGTYPE TYPE STRING,
CUSTOMERPURCHASEORDERTYPE TYPE STRING,
HEADERBILLGINCOMPLETIONSTATUS TYPE STRING,
OVRLITMBILLINGINCOMPLETIONSTS TYPE STRING,
OVERALLPRICINGINCOMPLETIONSTS TYPE STRING,
HEADERDELIVINCOMPLETIONSTATUS TYPE STRING,
OVRLITMDELIVINCOMPLETIONSTS TYPE STRING,
CUSTOMERCONDITIONGROUP1 TYPE STRING,
CUSTOMERCONDITIONGROUP2 TYPE STRING,
CUSTOMERCONDITIONGROUP3 TYPE STRING,
CUSTOMERCONDITIONGROUP4 TYPE STRING,
CUSTOMERCONDITIONGROUP5 TYPE STRING,
DEPARTMENTCLASSIFICATIONBYCUST TYPE STRING,
AGRMTVALDTYSTARTDATE TYPE STRING,
AGRMTVALDTYENDDATE TYPE STRING,END OF T_EKKO_STR. DATA: WA_IRFMMASADOBSC_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_IRFMMASADOBSC_STR-MANDT sy-vline
WA_IRFMMASADOBSC_STR-SALESORDER sy-vline
WA_IRFMMASADOBSC_STR-SDDOCUMENTCATEGORY sy-vline
WA_IRFMMASADOBSC_STR-SALESDOCUMENTTYPE sy-vline
WA_IRFMMASADOBSC_STR-SOLDTOPARTY sy-vline
WA_IRFMMASADOBSC_STR-SHIPTOPARTY sy-vline
WA_IRFMMASADOBSC_STR-SALESORGANIZATION sy-vline
WA_IRFMMASADOBSC_STR-DISTRIBUTIONCHANNEL sy-vline
WA_IRFMMASADOBSC_STR-ORGANIZATIONDIVISION sy-vline
WA_IRFMMASADOBSC_STR-REQUESTEDDELIVERYDATE sy-vline
WA_IRFMMASADOBSC_STR-CREATEDBYUSER sy-vline
WA_IRFMMASADOBSC_STR-CREATIONDATE sy-vline
WA_IRFMMASADOBSC_STR-SALESDISTRICT sy-vline
WA_IRFMMASADOBSC_STR-SALESOFFICE sy-vline
WA_IRFMMASADOBSC_STR-SALESGROUP sy-vline
WA_IRFMMASADOBSC_STR-FASHIONCANCELDATE sy-vline
WA_IRFMMASADOBSC_STR-SHIPPINGCONDITION sy-vline
WA_IRFMMASADOBSC_STR-CUSTOMERGROUP sy-vline
WA_IRFMMASADOBSC_STR-ADDITIONALCUSTOMERGROUP1 sy-vline
WA_IRFMMASADOBSC_STR-ADDITIONALCUSTOMERGROUP2 sy-vline
WA_IRFMMASADOBSC_STR-ADDITIONALCUSTOMERGROUP3 sy-vline
WA_IRFMMASADOBSC_STR-ADDITIONALCUSTOMERGROUP4 sy-vline
WA_IRFMMASADOBSC_STR-ADDITIONALCUSTOMERGROUP5 sy-vline
WA_IRFMMASADOBSC_STR-RETAILADDITIONALCUSTOMERGRP6 sy-vline
WA_IRFMMASADOBSC_STR-RETAILADDITIONALCUSTOMERGRP7 sy-vline
WA_IRFMMASADOBSC_STR-RETAILADDITIONALCUSTOMERGRP8 sy-vline
WA_IRFMMASADOBSC_STR-RETAILADDITIONALCUSTOMERGRP9 sy-vline
WA_IRFMMASADOBSC_STR-RETAILADDITIONALCUSTOMERGRP10 sy-vline
WA_IRFMMASADOBSC_STR-PURCHASEORDERBYCUSTOMER sy-vline
WA_IRFMMASADOBSC_STR-CUSTOMERPURCHASEORDERDATE sy-vline
WA_IRFMMASADOBSC_STR-DELIVERYBLOCKREASON sy-vline
WA_IRFMMASADOBSC_STR-HEADERBILLINGBLOCKREASON sy-vline
WA_IRFMMASADOBSC_STR-TOTALNETAMOUNT sy-vline
WA_IRFMMASADOBSC_STR-TRANSACTIONCURRENCY sy-vline
WA_IRFMMASADOBSC_STR-CUSTOMERPAYMENTTERMS sy-vline
WA_IRFMMASADOBSC_STR-INCOTERMSCLASSIFICATION sy-vline
WA_IRFMMASADOBSC_STR-INCOTERMSLOCATION1 sy-vline
WA_IRFMMASADOBSC_STR-SDDOCUMENTREASON sy-vline
WA_IRFMMASADOBSC_STR-OVERALLSDPROCESSSTATUS sy-vline
WA_IRFMMASADOBSC_STR-HDRGENERALINCOMPLETIONSTATUS sy-vline
WA_IRFMMASADOBSC_STR-OVRLITMGENERALINCOMPLETIONSTS sy-vline
WA_IRFMMASADOBSC_STR-OVERALLSDDOCUMENTREJECTIONSTS sy-vline
WA_IRFMMASADOBSC_STR-OVERALLTOTALDELIVERYSTATUS sy-vline
WA_IRFMMASADOBSC_STR-TOTALCREDITCHECKSTATUS sy-vline
WA_IRFMMASADOBSC_STR-TOTALBLOCKSTATUS sy-vline
WA_IRFMMASADOBSC_STR-PRICINGDATE sy-vline
WA_IRFMMASADOBSC_STR-BILLINGDOCUMENTDATE sy-vline
WA_IRFMMASADOBSC_STR-CUSTOMERPRICEGROUP sy-vline
WA_IRFMMASADOBSC_STR-CREDITCONTROLAREA sy-vline
WA_IRFMMASADOBSC_STR-SALESDOCUMENTDATE sy-vline
WA_IRFMMASADOBSC_STR-SHIPPINGTYPE sy-vline
WA_IRFMMASADOBSC_STR-CUSTOMERPURCHASEORDERTYPE sy-vline
WA_IRFMMASADOBSC_STR-HEADERBILLGINCOMPLETIONSTATUS sy-vline
WA_IRFMMASADOBSC_STR-OVRLITMBILLINGINCOMPLETIONSTS sy-vline
WA_IRFMMASADOBSC_STR-OVERALLPRICINGINCOMPLETIONSTS sy-vline
WA_IRFMMASADOBSC_STR-HEADERDELIVINCOMPLETIONSTATUS sy-vline
WA_IRFMMASADOBSC_STR-OVRLITMDELIVINCOMPLETIONSTS sy-vline
WA_IRFMMASADOBSC_STR-CUSTOMERCONDITIONGROUP1 sy-vline
WA_IRFMMASADOBSC_STR-CUSTOMERCONDITIONGROUP2 sy-vline
WA_IRFMMASADOBSC_STR-CUSTOMERCONDITIONGROUP3 sy-vline
WA_IRFMMASADOBSC_STR-CUSTOMERCONDITIONGROUP4 sy-vline
WA_IRFMMASADOBSC_STR-CUSTOMERCONDITIONGROUP5 sy-vline
WA_IRFMMASADOBSC_STR-DEPARTMENTCLASSIFICATIONBYCUST sy-vline
WA_IRFMMASADOBSC_STR-AGRMTVALDTYSTARTDATE sy-vline
WA_IRFMMASADOBSC_STR-AGRMTVALDTYENDDATE sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.