ABAP Select data from SAP table MCLIPSADD 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 MCLIPSADD 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 MCLIPSADD. 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 MCLIPSADD 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_MCLIPSADD TYPE STANDARD TABLE OF MCLIPSADD,
      WA_MCLIPSADD TYPE MCLIPSADD,
      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: <MCLIPSADD> TYPE MCLIPSADD.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM MCLIPSADD
*  INTO TABLE @DATA(IT_MCLIPSADD2).
*--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_MCLIPSADD INDEX 1 INTO DATA(WA_MCLIPSADD2).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_MCLIPSADD ASSIGNING <MCLIPSADD>.

*To update a field value using a field symbol simply change the value via the field symbol pointer
<MCLIPSADD>-VDATU = 1.
<MCLIPSADD>-LLAND = 1.
<MCLIPSADD>-APOAUME = 1.
<MCLIPSADD>-APOAUWE = 1.
<MCLIPSADD>-APERDAT = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_MCLIPSADD-APSTCUR, sy-vline,
  WA_MCLIPSADD-APWAERK, sy-vline,
  WA_MCLIPSADD-APNETWR, sy-vline,
  WA_MCLIPSADD-APPRSDT, sy-vline,
  WA_MCLIPSADD-APKURSK, sy-vline,
  WA_MCLIPSADD-APKURSK_DAT, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_MCLIPSADD 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_MCLIPSADD 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_MCLIPSADD INTO WA_MCLIPSADD.


*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 EXCRT, internal->external for field APSTCUR
CALL FUNCTION 'CONVERSION_EXIT_EXCRT_OUTPUT'
  EXPORTING
    input =                      WA_MCLIPSADD-APSTCUR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_MCLIPSADD-APSTCUR.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit CUNIT, internal->external for field APVRKME
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_MCLIPSADD-APVRKME
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_MCLIPSADD-APVRKME.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

*Conversion exit CUNIT, internal->external for field APMEINS
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_MCLIPSADD-APMEINS
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_MCLIPSADD-APMEINS.
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_MCLIPSADD_STR, 
VDATU TYPE STRING,
LLAND TYPE STRING,
APOAUME TYPE STRING,
APOAUWE TYPE STRING,
APERDAT TYPE STRING,
APSTCUR TYPE STRING,
APWAERK TYPE STRING,
APNETWR TYPE STRING,
APPRSDT TYPE STRING,
APKURSK TYPE STRING,
APKURSK_DAT TYPE STRING,
APKURST TYPE STRING,
APKLMENG TYPE STRING,
APLSMENG TYPE STRING,
APKBMENG TYPE STRING,
APKWMENG TYPE STRING,
APLFGSA TYPE STRING,
APLFSTA TYPE STRING,
APABSTA TYPE STRING,
AKVBTYP TYPE STRING,
APVRKME TYPE STRING,
APUMVKZ TYPE STRING,
APUMVKN TYPE STRING,
APCMPRE TYPE STRING,
APCMKUA TYPE STRING,
OLIME TYPE STRING,
OLIKW TYPE STRING,
OLIKWGES TYPE STRING,
OLIKWAA TYPE STRING,
SUMFKIMG TYPE STRING,
APVGBEL TYPE STRING,
APVGPOS TYPE STRING,
PERIV_LF TYPE STRING,
APSPART TYPE STRING,
WEBUK TYPE STRING,
APOAUMEVKM TYPE STRING,
APLCNUM TYPE STRING,
ABSTP TYPE STRING,
APWKWAE TYPE STRING,
APWKKUR TYPE STRING,
APABGRU TYPE STRING,
APABGES TYPE STRING,
APERDATA TYPE STRING,
APAEDATA TYPE STRING,
APKOWRR TYPE STRING,
APMEINS TYPE STRING,
PODMG TYPE STRING,
DLFIMG TYPE STRING,END OF T_EKKO_STR.
DATA: WA_MCLIPSADD_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_MCLIPSADD_STR-VDATU sy-vline 
WA_MCLIPSADD_STR-LLAND sy-vline 
WA_MCLIPSADD_STR-APOAUME sy-vline 
WA_MCLIPSADD_STR-APOAUWE sy-vline 
WA_MCLIPSADD_STR-APERDAT sy-vline 
WA_MCLIPSADD_STR-APSTCUR sy-vline 
WA_MCLIPSADD_STR-APWAERK sy-vline 
WA_MCLIPSADD_STR-APNETWR sy-vline 
WA_MCLIPSADD_STR-APPRSDT sy-vline 
WA_MCLIPSADD_STR-APKURSK sy-vline 
WA_MCLIPSADD_STR-APKURSK_DAT sy-vline 
WA_MCLIPSADD_STR-APKURST sy-vline 
WA_MCLIPSADD_STR-APKLMENG sy-vline 
WA_MCLIPSADD_STR-APLSMENG sy-vline 
WA_MCLIPSADD_STR-APKBMENG sy-vline 
WA_MCLIPSADD_STR-APKWMENG sy-vline 
WA_MCLIPSADD_STR-APLFGSA sy-vline 
WA_MCLIPSADD_STR-APLFSTA sy-vline 
WA_MCLIPSADD_STR-APABSTA sy-vline 
WA_MCLIPSADD_STR-AKVBTYP sy-vline 
WA_MCLIPSADD_STR-APVRKME sy-vline 
WA_MCLIPSADD_STR-APUMVKZ sy-vline 
WA_MCLIPSADD_STR-APUMVKN sy-vline 
WA_MCLIPSADD_STR-APCMPRE sy-vline 
WA_MCLIPSADD_STR-APCMKUA sy-vline 
WA_MCLIPSADD_STR-OLIME sy-vline 
WA_MCLIPSADD_STR-OLIKW sy-vline 
WA_MCLIPSADD_STR-OLIKWGES sy-vline 
WA_MCLIPSADD_STR-OLIKWAA sy-vline 
WA_MCLIPSADD_STR-SUMFKIMG sy-vline 
WA_MCLIPSADD_STR-APVGBEL sy-vline 
WA_MCLIPSADD_STR-APVGPOS sy-vline 
WA_MCLIPSADD_STR-PERIV_LF sy-vline 
WA_MCLIPSADD_STR-APSPART sy-vline 
WA_MCLIPSADD_STR-WEBUK sy-vline 
WA_MCLIPSADD_STR-APOAUMEVKM sy-vline 
WA_MCLIPSADD_STR-APLCNUM sy-vline 
WA_MCLIPSADD_STR-ABSTP sy-vline 
WA_MCLIPSADD_STR-APWKWAE sy-vline 
WA_MCLIPSADD_STR-APWKKUR sy-vline 
WA_MCLIPSADD_STR-APABGRU sy-vline 
WA_MCLIPSADD_STR-APABGES sy-vline 
WA_MCLIPSADD_STR-APERDATA sy-vline 
WA_MCLIPSADD_STR-APAEDATA sy-vline 
WA_MCLIPSADD_STR-APKOWRR sy-vline 
WA_MCLIPSADD_STR-APMEINS sy-vline 
WA_MCLIPSADD_STR-PODMG sy-vline 
WA_MCLIPSADD_STR-DLFIMG sy-vline      INTO ld_text SEPARATED BY SPACE.

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