ABAP Select data from SAP table /BIC/CCTA2LIS_05_QE2 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 /BIC/CCTA2LIS_05_QE2 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 /BIC/CCTA2LIS_05_QE2. 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 /BIC/CCTA2LIS_05_QE2 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_/BIC/CCTA2LIS_05_QE2 TYPE STANDARD TABLE OF /BIC/CCTA2LIS_05_QE2,
WA_/BIC/CCTA2LIS_05_QE2 TYPE /BIC/CCTA2LIS_05_QE2,
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: </BIC/CCTA2LIS_05_QE2> TYPE /BIC/CCTA2LIS_05_QE2.
*Process all fields in table header/work area as string values
PERFORM process_as_string_field_values CHANGING wa_/BIC/CCTA2LIS_05_QE2.
SELECT *
*restrict ABAP select to first 10 rows
UP TO 10 ROWS
FROM /BIC/CCTA2LIS_05_QE2
INTO TABLE IT_/BIC/CCTA2LIS_05_QE2.
*Select data and declare internal table using in-line method @DATA
*SELECT *
* FROM /BIC/CCTA2LIS_05_QE2
* INTO TABLE @DATA(IT_/BIC/CCTA2LIS_05_QE22).
*--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_/BIC/CCTA2LIS_05_QE2 INDEX 1 INTO DATA(WA_/BIC/CCTA2LIS_05_QE22).
*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_/BIC/CCTA2LIS_05_QE2 ASSIGNING </BIC/CCTA2LIS_05_QE2>.
*To update a field value using a field symbol simply change the value via the field symbol pointer</BIC/CCTA2LIS_05_QE2>-ROCANCEL = 1.
</BIC/CCTA2LIS_05_QE2>-ART = 1.
</BIC/CCTA2LIS_05_QE2>-CHARG = 1.
</BIC/CCTA2LIS_05_QE2>-KUNNR = 1.
</BIC/CCTA2LIS_05_QE2>-LIFNR = 1.
ENDLOOP. LOOP AT IT_/BIC/CCTA2LIS_05_QE2 INTO WA_/BIC/CCTA2LIS_05_QE2. *Write horizonal line to screen report. WRITE:/ sy-uline. *Write selected data to screen/report before conversion. WRITE:/ sy-vline, WA_/BIC/CCTA2LIS_05_QE2-MATNR, sy-vline,
WA_/BIC/CCTA2LIS_05_QE2-PRUEFLOS, sy-vline,
WA_/BIC/CCTA2LIS_05_QE2-WERK, sy-vline,
WA_/BIC/CCTA2LIS_05_QE2-PLNNR, sy-vline,
WA_/BIC/CCTA2LIS_05_QE2-PLNTY, sy-vline,
WA_/BIC/CCTA2LIS_05_QE2-PPLNKN, sy-vline.
ENDLOOP. *Add any further fields from structure WA_/BIC/CCTA2LIS_05_QE2 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_/BIC/CCTA2LIS_05_QE2 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_/BIC/CCTA2LIS_05_QE2 INTO WA_/BIC/CCTA2LIS_05_QE2. *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.
ENDFORM. *&---------------------------------------------------------------------* *& Form process_as_string_field_values *&---------------------------------------------------------------------* FORM process_as_string_field_values CHANGING p_EKKO LIKE wa_EKKO. TYPES: BEGIN OF T_/BIC/CCTA2LIS_05_QE2_STR,
ROCANCEL TYPE STRING,
ART TYPE STRING,
CHARG TYPE STRING,
KUNNR TYPE STRING,
LIFNR TYPE STRING,
MATNR TYPE STRING,
PRUEFLOS TYPE STRING,
WERK TYPE STRING,
PLNNR TYPE STRING,
PLNTY TYPE STRING,
PPLNKN TYPE STRING,
PRPLATZ TYPE STRING,
PRPLATZWRK TYPE STRING,
PROBENRPP TYPE STRING,
TEILLOS TYPE STRING,
ANTEIL TYPE STRING,
ANZFEHLEH TYPE STRING,
ANZFEHLER TYPE STRING,
ANZWERTO TYPE STRING,
ANZWERTU TYPE STRING,
BWTOLOBNI TYPE STRING,
BWTOLUNNI TYPE STRING,
MASSEINHSW TYPE STRING,
MERKNR TYPE STRING,
PRUEFDATUV TYPE STRING,
QPMK_WERKS TYPE STRING,
SUMEW TYPE STRING,
SUMMW TYPE STRING,
SUMSIGMAST TYPE STRING,
SUMVAR TYPE STRING,
SUMVARIN TYPE STRING,
TOLOB TYPE STRING,
TOLUN TYPE STRING,
VERWMERKM TYPE STRING,
VORGLFNR TYPE STRING,
ZHLN TYPE STRING,
ZHLNA TYPE STRING,
ZHLNR TYPE STRING,
ZHLNSTAT TYPE STRING,
ZHLNSTPF TYPE STRING,
SUMEW2 TYPE STRING,
HERKUNFT TYPE STRING,
PHYNR TYPE STRING,
ATTRIBUT TYPE STRING,
BWSOLLWNI TYPE STRING,
PMETHODE TYPE STRING,
PMTVERSION TYPE STRING,
QMTB_WERKS TYPE STRING,
SOLLWERT TYPE STRING,END OF T_EKKO_STR. DATA: WA_/BIC/CCTA2LIS_05_QE2_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_/BIC/CCTA2LIS_05_QE2_STR-ROCANCEL sy-vline
WA_/BIC/CCTA2LIS_05_QE2_STR-ART sy-vline
WA_/BIC/CCTA2LIS_05_QE2_STR-CHARG sy-vline
WA_/BIC/CCTA2LIS_05_QE2_STR-KUNNR sy-vline
WA_/BIC/CCTA2LIS_05_QE2_STR-LIFNR sy-vline
WA_/BIC/CCTA2LIS_05_QE2_STR-MATNR sy-vline
WA_/BIC/CCTA2LIS_05_QE2_STR-PRUEFLOS sy-vline
WA_/BIC/CCTA2LIS_05_QE2_STR-WERK sy-vline
WA_/BIC/CCTA2LIS_05_QE2_STR-PLNNR sy-vline
WA_/BIC/CCTA2LIS_05_QE2_STR-PLNTY sy-vline
WA_/BIC/CCTA2LIS_05_QE2_STR-PPLNKN sy-vline
WA_/BIC/CCTA2LIS_05_QE2_STR-PRPLATZ sy-vline
WA_/BIC/CCTA2LIS_05_QE2_STR-PRPLATZWRK sy-vline
WA_/BIC/CCTA2LIS_05_QE2_STR-PROBENRPP sy-vline
WA_/BIC/CCTA2LIS_05_QE2_STR-TEILLOS sy-vline
WA_/BIC/CCTA2LIS_05_QE2_STR-ANTEIL sy-vline
WA_/BIC/CCTA2LIS_05_QE2_STR-ANZFEHLEH sy-vline
WA_/BIC/CCTA2LIS_05_QE2_STR-ANZFEHLER sy-vline
WA_/BIC/CCTA2LIS_05_QE2_STR-ANZWERTO sy-vline
WA_/BIC/CCTA2LIS_05_QE2_STR-ANZWERTU sy-vline
WA_/BIC/CCTA2LIS_05_QE2_STR-BWTOLOBNI sy-vline
WA_/BIC/CCTA2LIS_05_QE2_STR-BWTOLUNNI sy-vline
WA_/BIC/CCTA2LIS_05_QE2_STR-MASSEINHSW sy-vline
WA_/BIC/CCTA2LIS_05_QE2_STR-MERKNR sy-vline
WA_/BIC/CCTA2LIS_05_QE2_STR-PRUEFDATUV sy-vline
WA_/BIC/CCTA2LIS_05_QE2_STR-QPMK_WERKS sy-vline
WA_/BIC/CCTA2LIS_05_QE2_STR-SUMEW sy-vline
WA_/BIC/CCTA2LIS_05_QE2_STR-SUMMW sy-vline
WA_/BIC/CCTA2LIS_05_QE2_STR-SUMSIGMAST sy-vline
WA_/BIC/CCTA2LIS_05_QE2_STR-SUMVAR sy-vline
WA_/BIC/CCTA2LIS_05_QE2_STR-SUMVARIN sy-vline
WA_/BIC/CCTA2LIS_05_QE2_STR-TOLOB sy-vline
WA_/BIC/CCTA2LIS_05_QE2_STR-TOLUN sy-vline
WA_/BIC/CCTA2LIS_05_QE2_STR-VERWMERKM sy-vline
WA_/BIC/CCTA2LIS_05_QE2_STR-VORGLFNR sy-vline
WA_/BIC/CCTA2LIS_05_QE2_STR-ZHLN sy-vline
WA_/BIC/CCTA2LIS_05_QE2_STR-ZHLNA sy-vline
WA_/BIC/CCTA2LIS_05_QE2_STR-ZHLNR sy-vline
WA_/BIC/CCTA2LIS_05_QE2_STR-ZHLNSTAT sy-vline
WA_/BIC/CCTA2LIS_05_QE2_STR-ZHLNSTPF sy-vline
WA_/BIC/CCTA2LIS_05_QE2_STR-SUMEW2 sy-vline
WA_/BIC/CCTA2LIS_05_QE2_STR-HERKUNFT sy-vline
WA_/BIC/CCTA2LIS_05_QE2_STR-PHYNR sy-vline
WA_/BIC/CCTA2LIS_05_QE2_STR-ATTRIBUT sy-vline
WA_/BIC/CCTA2LIS_05_QE2_STR-BWSOLLWNI sy-vline
WA_/BIC/CCTA2LIS_05_QE2_STR-PMETHODE sy-vline
WA_/BIC/CCTA2LIS_05_QE2_STR-PMTVERSION sy-vline
WA_/BIC/CCTA2LIS_05_QE2_STR-QMTB_WERKS sy-vline
WA_/BIC/CCTA2LIS_05_QE2_STR-SOLLWERT sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.
