ABAP Select data from SAP table CRECCNDPOSTTRM 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 CRECCNDPOSTTRM 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 CRECCNDPOSTTRM. 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 CRECCNDPOSTTRM 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_CRECCNDPOSTTRM TYPE STANDARD TABLE OF CRECCNDPOSTTRM,
      WA_CRECCNDPOSTTRM TYPE CRECCNDPOSTTRM,
      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: <CRECCNDPOSTTRM> TYPE CRECCNDPOSTTRM.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM CRECCNDPOSTTRM
*  INTO TABLE @DATA(IT_CRECCNDPOSTTRM2).
*--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_CRECCNDPOSTTRM INDEX 1 INTO DATA(WA_CRECCNDPOSTTRM2).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_CRECCNDPOSTTRM ASSIGNING <CRECCNDPOSTTRM>.
*To update a field value using a field symbol simply change the value via the field symbol pointer
<CRECCNDPOSTTRM>-MANDT = 1.
<CRECCNDPOSTTRM>-INTERNALREALESTATENUMBER = 1.
<CRECCNDPOSTTRM>-RETERMTYPE = 1.
<CRECCNDPOSTTRM>-RETERMNUMBER = 1.
<CRECCNDPOSTTRM>-VALIDITYSTARTENDDATEVALUE = 1.
ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_CRECCNDPOSTTRM-VALIDITYSTARTDATE, sy-vline,
WA_CRECCNDPOSTTRM-VALIDITYENDDATE, sy-vline,
WA_CRECCNDPOSTTRM-REALESTATEOBJECTTYPE, sy-vline,
WA_CRECCNDPOSTTRM-RETERMNAME, sy-vline,
WA_CRECCNDPOSTTRM-PAYMENTMETHOD, sy-vline,
WA_CRECCNDPOSTTRM-REPAYMENTMETHODCREDITMEMO, sy-vline.
ENDLOOP. *Add any further fields from structure WA_CRECCNDPOSTTRM 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_CRECCNDPOSTTRM 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_CRECCNDPOSTTRM INTO WA_CRECCNDPOSTTRM. *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 RETERMNUMBER CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_CRECCNDPOSTTRM-RETERMNUMBER IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CRECCNDPOSTTRM-RETERMNUMBER.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field BUSINESSPARTNER CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_CRECCNDPOSTTRM-BUSINESSPARTNER IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CRECCNDPOSTTRM-BUSINESSPARTNER.
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_CRECCNDPOSTTRM_STR,
MANDT TYPE STRING,
INTERNALREALESTATENUMBER TYPE STRING,
RETERMTYPE TYPE STRING,
RETERMNUMBER TYPE STRING,
VALIDITYSTARTENDDATEVALUE TYPE STRING,
VALIDITYSTARTDATE TYPE STRING,
VALIDITYENDDATE TYPE STRING,
REALESTATEOBJECTTYPE TYPE STRING,
RETERMNAME TYPE STRING,
PAYMENTMETHOD TYPE STRING,
REPAYMENTMETHODCREDITMEMO TYPE STRING,
PAYMENTBLOCKINGREASON TYPE STRING,
PAYMENTTERMS TYPE STRING,
HOUSEBANK TYPE STRING,
HOUSEBANKACCOUNT TYPE STRING,
BANKIDENTIFICATION TYPE STRING,
RENOTETOPAYEETEXT TYPE STRING,
DUNNINGAREA TYPE STRING,
DUNNINGKEY TYPE STRING,
DUNNINGBLOCKINGREASON TYPE STRING,
REACCTDETERMINATIONKEY TYPE STRING,
RETAXTYPE TYPE STRING,
TAXGROUP TYPE STRING,
REISCONDITIONGROSSAMOUNT TYPE STRING,
TAXCOUNTRY TYPE STRING,
BUSINESSPARTNER TYPE STRING,
REACCOUNTINGOBJECT TYPE STRING,
TAXJURISDICTION TYPE STRING,
REISCONDITIONSPLIT TYPE STRING,
RECURRENCYTRANSLATIONRULE TYPE STRING,
REISPARTNERBLOCKED TYPE STRING,
SEPAMANDATE TYPE STRING,
SEPAMANDATECREDITOR TYPE STRING,
COMPANYCODE TYPE STRING,
COUNTRY TYPE STRING,
TAXCALCULATIONPROCEDURE TYPE STRING,
RESTATUSOBJECT TYPE STRING,
REENTRYVALIDITY TYPE STRING,
REENTRYVALIDITYCRITICALITY TYPE STRING,
RETERMTYPENAME TYPE STRING,
PAYMENTMETHODDESCRIPTION TYPE STRING,
PAYMENTBLOCKINGREASONNAME TYPE STRING,
PAYMENTTERMSNAME TYPE STRING,
BANKNAME TYPE STRING,
HOUSEBANKACCOUNTDESCRIPTION TYPE STRING,
BANKACCOUNTNAME TYPE STRING,
DUNNINGAREANAME TYPE STRING,
MAXIMUMDUNNINGLEVELDESCRIPTION TYPE STRING,
DUNNINGBLOCKINGREASONDESC TYPE STRING,
REACCTDETERMINATIONKEYNAME TYPE STRING,
RETAXTYPENAME TYPE STRING,
TAXGROUPNAME TYPE STRING,
COUNTRYNAME TYPE STRING,
BUSINESSPARTNERFULLNAME TYPE STRING,
TAXJURISDICTIONNAME TYPE STRING,
RECURRENCYTRANSLATIONRULENAME TYPE STRING,
REENTRYVALIDITYTEXT TYPE STRING,
REIDENTIFICATION TYPE STRING,END OF T_EKKO_STR. DATA: WA_CRECCNDPOSTTRM_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_CRECCNDPOSTTRM_STR-MANDT sy-vline
WA_CRECCNDPOSTTRM_STR-INTERNALREALESTATENUMBER sy-vline
WA_CRECCNDPOSTTRM_STR-RETERMTYPE sy-vline
WA_CRECCNDPOSTTRM_STR-RETERMNUMBER sy-vline
WA_CRECCNDPOSTTRM_STR-VALIDITYSTARTENDDATEVALUE sy-vline
WA_CRECCNDPOSTTRM_STR-VALIDITYSTARTDATE sy-vline
WA_CRECCNDPOSTTRM_STR-VALIDITYENDDATE sy-vline
WA_CRECCNDPOSTTRM_STR-REALESTATEOBJECTTYPE sy-vline
WA_CRECCNDPOSTTRM_STR-RETERMNAME sy-vline
WA_CRECCNDPOSTTRM_STR-PAYMENTMETHOD sy-vline
WA_CRECCNDPOSTTRM_STR-REPAYMENTMETHODCREDITMEMO sy-vline
WA_CRECCNDPOSTTRM_STR-PAYMENTBLOCKINGREASON sy-vline
WA_CRECCNDPOSTTRM_STR-PAYMENTTERMS sy-vline
WA_CRECCNDPOSTTRM_STR-HOUSEBANK sy-vline
WA_CRECCNDPOSTTRM_STR-HOUSEBANKACCOUNT sy-vline
WA_CRECCNDPOSTTRM_STR-BANKIDENTIFICATION sy-vline
WA_CRECCNDPOSTTRM_STR-RENOTETOPAYEETEXT sy-vline
WA_CRECCNDPOSTTRM_STR-DUNNINGAREA sy-vline
WA_CRECCNDPOSTTRM_STR-DUNNINGKEY sy-vline
WA_CRECCNDPOSTTRM_STR-DUNNINGBLOCKINGREASON sy-vline
WA_CRECCNDPOSTTRM_STR-REACCTDETERMINATIONKEY sy-vline
WA_CRECCNDPOSTTRM_STR-RETAXTYPE sy-vline
WA_CRECCNDPOSTTRM_STR-TAXGROUP sy-vline
WA_CRECCNDPOSTTRM_STR-REISCONDITIONGROSSAMOUNT sy-vline
WA_CRECCNDPOSTTRM_STR-TAXCOUNTRY sy-vline
WA_CRECCNDPOSTTRM_STR-BUSINESSPARTNER sy-vline
WA_CRECCNDPOSTTRM_STR-REACCOUNTINGOBJECT sy-vline
WA_CRECCNDPOSTTRM_STR-TAXJURISDICTION sy-vline
WA_CRECCNDPOSTTRM_STR-REISCONDITIONSPLIT sy-vline
WA_CRECCNDPOSTTRM_STR-RECURRENCYTRANSLATIONRULE sy-vline
WA_CRECCNDPOSTTRM_STR-REISPARTNERBLOCKED sy-vline
WA_CRECCNDPOSTTRM_STR-SEPAMANDATE sy-vline
WA_CRECCNDPOSTTRM_STR-SEPAMANDATECREDITOR sy-vline
WA_CRECCNDPOSTTRM_STR-COMPANYCODE sy-vline
WA_CRECCNDPOSTTRM_STR-COUNTRY sy-vline
WA_CRECCNDPOSTTRM_STR-TAXCALCULATIONPROCEDURE sy-vline
WA_CRECCNDPOSTTRM_STR-RESTATUSOBJECT sy-vline
WA_CRECCNDPOSTTRM_STR-REENTRYVALIDITY sy-vline
WA_CRECCNDPOSTTRM_STR-REENTRYVALIDITYCRITICALITY sy-vline
WA_CRECCNDPOSTTRM_STR-RETERMTYPENAME sy-vline
WA_CRECCNDPOSTTRM_STR-PAYMENTMETHODDESCRIPTION sy-vline
WA_CRECCNDPOSTTRM_STR-PAYMENTBLOCKINGREASONNAME sy-vline
WA_CRECCNDPOSTTRM_STR-PAYMENTTERMSNAME sy-vline
WA_CRECCNDPOSTTRM_STR-BANKNAME sy-vline
WA_CRECCNDPOSTTRM_STR-HOUSEBANKACCOUNTDESCRIPTION sy-vline
WA_CRECCNDPOSTTRM_STR-BANKACCOUNTNAME sy-vline
WA_CRECCNDPOSTTRM_STR-DUNNINGAREANAME sy-vline
WA_CRECCNDPOSTTRM_STR-MAXIMUMDUNNINGLEVELDESCRIPTION sy-vline
WA_CRECCNDPOSTTRM_STR-DUNNINGBLOCKINGREASONDESC sy-vline
WA_CRECCNDPOSTTRM_STR-REACCTDETERMINATIONKEYNAME sy-vline
WA_CRECCNDPOSTTRM_STR-RETAXTYPENAME sy-vline
WA_CRECCNDPOSTTRM_STR-TAXGROUPNAME sy-vline
WA_CRECCNDPOSTTRM_STR-COUNTRYNAME sy-vline
WA_CRECCNDPOSTTRM_STR-BUSINESSPARTNERFULLNAME sy-vline
WA_CRECCNDPOSTTRM_STR-TAXJURISDICTIONNAME sy-vline
WA_CRECCNDPOSTTRM_STR-RECURRENCYTRANSLATIONRULENAME sy-vline
WA_CRECCNDPOSTTRM_STR-REENTRYVALIDITYTEXT sy-vline
WA_CRECCNDPOSTTRM_STR-REIDENTIFICATION sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.