ABAP Select data from SAP table VIXCSKSDANP 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 VIXCSKSDANP 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 VIXCSKSDANP. 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 VIXCSKSDANP 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_VIXCSKSDANP TYPE STANDARD TABLE OF VIXCSKSDANP,
      WA_VIXCSKSDANP TYPE VIXCSKSDANP,
      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: <VIXCSKSDANP> TYPE VIXCSKSDANP.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM VIXCSKSDANP
*  INTO TABLE @DATA(IT_VIXCSKSDANP2).
*--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_VIXCSKSDANP INDEX 1 INTO DATA(WA_VIXCSKSDANP2).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_VIXCSKSDANP ASSIGNING <VIXCSKSDANP>.
*To update a field value using a field symbol simply change the value via the field symbol pointer
<VIXCSKSDANP>-MANDT = 1.
<VIXCSKSDANP>-GJAHR = 1.
<VIXCSKSDANP>-INTRENO = 1.
<VIXCSKSDANP>-BUKRS = 1.
<VIXCSKSDANP>-SWENR = 1.
ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_VIXCSKSDANP-SGRNR, sy-vline,
WA_VIXCSKSDANP-XDAN, sy-vline,
WA_VIXCSKSDANP-XAGR, sy-vline,
WA_VIXCSKSDANP-KODOBCE, sy-vline,
WA_VIXCSKSDANP-KODCOBCE, sy-vline,
WA_VIXCSKSDANP-KODKU, sy-vline.
ENDLOOP. *Add any further fields from structure WA_VIXCSKSDANP 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_VIXCSKSDANP 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_VIXCSKSDANP INTO WA_VIXCSKSDANP. *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 GJAHR, internal->external for field GJAHR CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT' EXPORTING input = WA_VIXCSKSDANP-GJAHR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_VIXCSKSDANP-GJAHR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit SWENR, internal->external for field SWENR CALL FUNCTION 'CONVERSION_EXIT_SWENR_OUTPUT' EXPORTING input = WA_VIXCSKSDANP-SWENR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_VIXCSKSDANP-SWENR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit SGRNR, internal->external for field SGRNR CALL FUNCTION 'CONVERSION_EXIT_SGRNR_OUTPUT' EXPORTING input = WA_VIXCSKSDANP-SGRNR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_VIXCSKSDANP-SGRNR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit GJAHR, internal->external for field OSVOD CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT' EXPORTING input = WA_VIXCSKSDANP-OSVOD IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_VIXCSKSDANP-OSVOD.
WRITE:/ 'New Value:', ld_input.

*Conversion exit GJAHR, internal->external for field OSVDO CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT' EXPORTING input = WA_VIXCSKSDANP-OSVDO IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_VIXCSKSDANP-OSVDO.
WRITE:/ 'New Value:', ld_input.

*Conversion exit GJAHR, internal->external for field REDOD CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT' EXPORTING input = WA_VIXCSKSDANP-REDOD IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_VIXCSKSDANP-REDOD.
WRITE:/ 'New Value:', ld_input.

*Conversion exit GJAHR, internal->external for field REDDO CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT' EXPORTING input = WA_VIXCSKSDANP-REDDO IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_VIXCSKSDANP-REDDO.
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_VIXCSKSDANP_STR,
MANDT TYPE STRING,
GJAHR TYPE STRING,
INTRENO TYPE STRING,
BUKRS TYPE STRING,
SWENR TYPE STRING,
SGRNR TYPE STRING,
XDAN TYPE STRING,
XAGR TYPE STRING,
KODOBCE TYPE STRING,
KODCOBCE TYPE STRING,
KODKU TYPE STRING,
POPIS TYPE STRING,
TYPNEM TYPE STRING,
DRNEM TYPE STRING,
ODDIL TYPE STRING,
PARCELA TYPE STRING,
VYMERA TYPE STRING,
VYMERAOSV TYPE STRING,
TRANSFSTAT TYPE STRING,
PRAVZTAH TYPE STRING,
SPOLVLAST TYPE STRING,
POCSPOL TYPE STRING,
SPOLDOH TYPE STRING,
USAGETP TYPE STRING,
KODOSVOB TYPE STRING,
OSVOD TYPE STRING,
OSVDO TYPE STRING,
KODREDU TYPE STRING,
REDOD TYPE STRING,
REDDO TYPE STRING,
PRICEBYEXP TYPE STRING,
CENAODHAD TYPE STRING,
DATVYDRAZ TYPE STRING,
AUCTION TYPE STRING,
ULICE TYPE STRING,
CISLOP TYPE STRING,
CIZIPOZ TYPE STRING,
ZASTPLOCHA TYPE STRING,
PODLPLOCHA_A TYPE STRING,
PODLPLOCHA_B TYPE STRING,
PODLPLOCHA_C TYPE STRING,
PODLPLOCHA_D TYPE STRING,
PODLPLOCHA_E TYPE STRING,
PODLPLOCHA_F TYPE STRING,
PODLPLOCHA_G TYPE STRING,
PODLPLOCHA_H TYPE STRING,
PODLPLOCHA_I TYPE STRING,
PODLPLOCHA TYPE STRING,
PODLPLOOSV TYPE STRING,
POCPATER TYPE STRING,
CISBYT TYPE STRING,
NBYT TYPE STRING,
CISNBYT TYPE STRING,
PODPLB TYPE STRING,
PODPLNB TYPE STRING,
PODPLBOSV TYPE STRING,
PODPLNBOSV TYPE STRING,
PODPLBNONLIV TYPE STRING,
POZNAMKA TYPE STRING,
DATZMENY TYPE STRING,
CASZMENY TYPE STRING,
ZMENIL TYPE STRING,END OF T_EKKO_STR. DATA: WA_VIXCSKSDANP_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_VIXCSKSDANP_STR-MANDT sy-vline
WA_VIXCSKSDANP_STR-GJAHR sy-vline
WA_VIXCSKSDANP_STR-INTRENO sy-vline
WA_VIXCSKSDANP_STR-BUKRS sy-vline
WA_VIXCSKSDANP_STR-SWENR sy-vline
WA_VIXCSKSDANP_STR-SGRNR sy-vline
WA_VIXCSKSDANP_STR-XDAN sy-vline
WA_VIXCSKSDANP_STR-XAGR sy-vline
WA_VIXCSKSDANP_STR-KODOBCE sy-vline
WA_VIXCSKSDANP_STR-KODCOBCE sy-vline
WA_VIXCSKSDANP_STR-KODKU sy-vline
WA_VIXCSKSDANP_STR-POPIS sy-vline
WA_VIXCSKSDANP_STR-TYPNEM sy-vline
WA_VIXCSKSDANP_STR-DRNEM sy-vline
WA_VIXCSKSDANP_STR-ODDIL sy-vline
WA_VIXCSKSDANP_STR-PARCELA sy-vline
WA_VIXCSKSDANP_STR-VYMERA sy-vline
WA_VIXCSKSDANP_STR-VYMERAOSV sy-vline
WA_VIXCSKSDANP_STR-TRANSFSTAT sy-vline
WA_VIXCSKSDANP_STR-PRAVZTAH sy-vline
WA_VIXCSKSDANP_STR-SPOLVLAST sy-vline
WA_VIXCSKSDANP_STR-POCSPOL sy-vline
WA_VIXCSKSDANP_STR-SPOLDOH sy-vline
WA_VIXCSKSDANP_STR-USAGETP sy-vline
WA_VIXCSKSDANP_STR-KODOSVOB sy-vline
WA_VIXCSKSDANP_STR-OSVOD sy-vline
WA_VIXCSKSDANP_STR-OSVDO sy-vline
WA_VIXCSKSDANP_STR-KODREDU sy-vline
WA_VIXCSKSDANP_STR-REDOD sy-vline
WA_VIXCSKSDANP_STR-REDDO sy-vline
WA_VIXCSKSDANP_STR-PRICEBYEXP sy-vline
WA_VIXCSKSDANP_STR-CENAODHAD sy-vline
WA_VIXCSKSDANP_STR-DATVYDRAZ sy-vline
WA_VIXCSKSDANP_STR-AUCTION sy-vline
WA_VIXCSKSDANP_STR-ULICE sy-vline
WA_VIXCSKSDANP_STR-CISLOP sy-vline
WA_VIXCSKSDANP_STR-CIZIPOZ sy-vline
WA_VIXCSKSDANP_STR-ZASTPLOCHA sy-vline
WA_VIXCSKSDANP_STR-PODLPLOCHA_A sy-vline
WA_VIXCSKSDANP_STR-PODLPLOCHA_B sy-vline
WA_VIXCSKSDANP_STR-PODLPLOCHA_C sy-vline
WA_VIXCSKSDANP_STR-PODLPLOCHA_D sy-vline
WA_VIXCSKSDANP_STR-PODLPLOCHA_E sy-vline
WA_VIXCSKSDANP_STR-PODLPLOCHA_F sy-vline
WA_VIXCSKSDANP_STR-PODLPLOCHA_G sy-vline
WA_VIXCSKSDANP_STR-PODLPLOCHA_H sy-vline
WA_VIXCSKSDANP_STR-PODLPLOCHA_I sy-vline
WA_VIXCSKSDANP_STR-PODLPLOCHA sy-vline
WA_VIXCSKSDANP_STR-PODLPLOOSV sy-vline
WA_VIXCSKSDANP_STR-POCPATER sy-vline
WA_VIXCSKSDANP_STR-CISBYT sy-vline
WA_VIXCSKSDANP_STR-NBYT sy-vline
WA_VIXCSKSDANP_STR-CISNBYT sy-vline
WA_VIXCSKSDANP_STR-PODPLB sy-vline
WA_VIXCSKSDANP_STR-PODPLNB sy-vline
WA_VIXCSKSDANP_STR-PODPLBOSV sy-vline
WA_VIXCSKSDANP_STR-PODPLNBOSV sy-vline
WA_VIXCSKSDANP_STR-PODPLBNONLIV sy-vline
WA_VIXCSKSDANP_STR-POZNAMKA sy-vline
WA_VIXCSKSDANP_STR-DATZMENY sy-vline
WA_VIXCSKSDANP_STR-CASZMENY sy-vline
WA_VIXCSKSDANP_STR-ZMENIL sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.