ABAP Select data from SAP table /CPD/S_SD_BUSOUT 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 /CPD/S_SD_BUSOUT 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 /CPD/S_SD_BUSOUT. 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 /CPD/S_SD_BUSOUT 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_/CPD/S_SD_BUSOUT TYPE STANDARD TABLE OF /CPD/S_SD_BUSOUT,
      WA_/CPD/S_SD_BUSOUT TYPE /CPD/S_SD_BUSOUT,
      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: </CPD/S_SD_BUSOUT> TYPE /CPD/S_SD_BUSOUT.

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

SELECT *
*restrict ABAP select to first 10 rows
 UP TO 10 ROWS      
  FROM /CPD/S_SD_BUSOUT
  INTO TABLE IT_/CPD/S_SD_BUSOUT.

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM /CPD/S_SD_BUSOUT
*  INTO TABLE @DATA(IT_/CPD/S_SD_BUSOUT2).
*--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_/CPD/S_SD_BUSOUT INDEX 1 INTO DATA(WA_/CPD/S_SD_BUSOUT2).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_/CPD/S_SD_BUSOUT ASSIGNING </CPD/S_SD_BUSOUT>.

*To update a field value using a field symbol simply change the value via the field symbol pointer
</CPD/S_SD_BUSOUT>-OPERATION = 1.
</CPD/S_SD_BUSOUT>-SD_DOC = 1.
</CPD/S_SD_BUSOUT>-ITM_NUMBER = 1.
</CPD/S_SD_BUSOUT>-BILL_PLAN = 1.
</CPD/S_SD_BUSOUT>-BILL_PLANI = 1.

ENDLOOP.

LOOP AT IT_/CPD/S_SD_BUSOUT INTO WA_/CPD/S_SD_BUSOUT.
*Write horizonal line to screen report.
  WRITE:/ sy-uline.

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_/CPD/S_SD_BUSOUT-DATETYPE, sy-vline,
  WA_/CPD/S_SD_BUSOUT-DATEDESCRI, sy-vline,
  WA_/CPD/S_SD_BUSOUT-SETTLEDATE, sy-vline,
  WA_/CPD/S_SD_BUSOUT-IDADOPTBIL, sy-vline,
  WA_/CPD/S_SD_BUSOUT-RULEBILLPL, sy-vline,
  WA_/CPD/S_SD_BUSOUT-INVOICEPER, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_/CPD/S_SD_BUSOUT 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_/CPD/S_SD_BUSOUT 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_/CPD/S_SD_BUSOUT INTO WA_/CPD/S_SD_BUSOUT.


*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 SD_DOC
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_/CPD/S_SD_BUSOUT-SD_DOC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_/CPD/S_SD_BUSOUT-SD_DOC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit EXCRT, internal->external for field EXCHANRATE
CALL FUNCTION 'CONVERSION_EXIT_EXCRT_OUTPUT'
  EXPORTING
    input =                      WA_/CPD/S_SD_BUSOUT-EXCHANRATE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_/CPD/S_SD_BUSOUT-EXCHANRATE.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit EXCRT, internal->external for field EXCHRATEFI
CALL FUNCTION 'CONVERSION_EXIT_EXCRT_OUTPUT'
  EXPORTING
    input =                      WA_/CPD/S_SD_BUSOUT-EXCHRATEFI
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_/CPD/S_SD_BUSOUT-EXCHRATEFI.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit EXCRT, internal->external for field EXCHANRATE_V
CALL FUNCTION 'CONVERSION_EXIT_EXCRT_OUTPUT'
  EXPORTING
    input =                      WA_/CPD/S_SD_BUSOUT-EXCHANRATE_V
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_/CPD/S_SD_BUSOUT-EXCHANRATE_V.
WRITE:/ 'New Value:', ld_input.

*Conversion exit EXCRT, internal->external for field EXCHRATEFI_V
CALL FUNCTION 'CONVERSION_EXIT_EXCRT_OUTPUT'
  EXPORTING
    input =                      WA_/CPD/S_SD_BUSOUT-EXCHRATEFI_V
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_/CPD/S_SD_BUSOUT-EXCHRATEFI_V.
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_/CPD/S_SD_BUSOUT_STR, 
OPERATION TYPE STRING,
SD_DOC TYPE STRING,
ITM_NUMBER TYPE STRING,
BILL_PLAN TYPE STRING,
BILL_PLANI TYPE STRING,
DATETYPE TYPE STRING,
DATEDESCRI TYPE STRING,
SETTLEDATE TYPE STRING,
IDADOPTBIL TYPE STRING,
RULEBILLPL TYPE STRING,
INVOICEPER TYPE STRING,
CURRENCKEY TYPE STRING,
CURRENCISO TYPE STRING,
EXCHANRATE TYPE STRING,
VALONDATE TYPE STRING,
BILLBLOCK TYPE STRING,
ORDBILLTYP TYPE STRING,
STATBILLPL TYPE STRING,
RULEORINEX TYPE STRING,
LENSTANPER TYPE STRING,
MILESTONNO TYPE STRING,
MILESTONE TYPE STRING,
PMNTTRMS TYPE STRING,
PAYER TYPE STRING,
TAX_CLASS1 TYPE STRING,
TAX_CLASS2 TYPE STRING,
TAX_CLASS3 TYPE STRING,
TAX_CLASS4 TYPE STRING,
TAX_CLASS5 TYPE STRING,
TAX_CLASS6 TYPE STRING,
TAX_CLASS7 TYPE STRING,
TAX_CLASS8 TYPE STRING,
TAX_CLASS9 TYPE STRING,
ADD_VAL_DY TYPE STRING,
FIX_VAL_DY TYPE STRING,
SETTLEDAT TYPE STRING,
PROCASMANU TYPE STRING,
CALDEFDAYS TYPE STRING,
BILL_DATE TYPE STRING,
NET_VALUE TYPE STRING,
NET_PRICE TYPE STRING,
COST_DOC_C TYPE STRING,
SUBTOT_PP1 TYPE STRING,
SUBTOT_PP2 TYPE STRING,
SUBTOT_PP3 TYPE STRING,
SUBTOT_PP4 TYPE STRING,
SUBTOT_PP5 TYPE STRING,
SUBTOT_PP6 TYPE STRING,
CREDPRICIT TYPE STRING,
AMOUNTELIG TYPE STRING,
REBATEBAS TYPE STRING,
CURRENCY TYPE STRING,
CURREN_ISO TYPE STRING,
PRICE_OK TYPE STRING,
MEANSOFPAY TYPE STRING,
CREDITPRED TYPE STRING,
HILEVPAYNO TYPE STRING,
HILEVITBIL TYPE STRING,
EXCHRATEFI TYPE STRING,
ACCOUNTNO TYPE STRING,
INDICORDAT TYPE STRING,
ORIGBILDAT TYPE STRING,
EXCHANRATE_V TYPE STRING,
EXCHRATEFI_V TYPE STRING,END OF T_EKKO_STR.
DATA: WA_/CPD/S_SD_BUSOUT_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_/CPD/S_SD_BUSOUT_STR-OPERATION sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-SD_DOC sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-ITM_NUMBER sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-BILL_PLAN sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-BILL_PLANI sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-DATETYPE sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-DATEDESCRI sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-SETTLEDATE sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-IDADOPTBIL sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-RULEBILLPL sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-INVOICEPER sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-CURRENCKEY sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-CURRENCISO sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-EXCHANRATE sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-VALONDATE sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-BILLBLOCK sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-ORDBILLTYP sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-STATBILLPL sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-RULEORINEX sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-LENSTANPER sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-MILESTONNO sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-MILESTONE sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-PMNTTRMS sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-PAYER sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-TAX_CLASS1 sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-TAX_CLASS2 sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-TAX_CLASS3 sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-TAX_CLASS4 sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-TAX_CLASS5 sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-TAX_CLASS6 sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-TAX_CLASS7 sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-TAX_CLASS8 sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-TAX_CLASS9 sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-ADD_VAL_DY sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-FIX_VAL_DY sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-SETTLEDAT sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-PROCASMANU sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-CALDEFDAYS sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-BILL_DATE sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-NET_VALUE sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-NET_PRICE sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-COST_DOC_C sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-SUBTOT_PP1 sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-SUBTOT_PP2 sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-SUBTOT_PP3 sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-SUBTOT_PP4 sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-SUBTOT_PP5 sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-SUBTOT_PP6 sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-CREDPRICIT sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-AMOUNTELIG sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-REBATEBAS sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-CURRENCY sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-CURREN_ISO sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-PRICE_OK sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-MEANSOFPAY sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-CREDITPRED sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-HILEVPAYNO sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-HILEVITBIL sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-EXCHRATEFI sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-ACCOUNTNO sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-INDICORDAT sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-ORIGBILDAT sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-EXCHANRATE_V sy-vline 
WA_/CPD/S_SD_BUSOUT_STR-EXCHRATEFI_V sy-vline      INTO ld_text SEPARATED BY SPACE.

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