ABAP Select data from SAP table RC29A 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 RC29A 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 RC29A. 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 RC29A 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_RC29A TYPE STANDARD TABLE OF RC29A,
      WA_RC29A TYPE RC29A,
      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: <RC29A> TYPE RC29A.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM RC29A
*  INTO TABLE @DATA(IT_RC29A2).
*--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_RC29A INDEX 1 INTO DATA(WA_RC29A2).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_RC29A ASSIGNING <RC29A>.
*To update a field value using a field symbol simply change the value via the field symbol pointer
<RC29A>-AEDAT = 1.
<RC29A>-AEDTD = 1.
<RC29A>-AEDTE = 1.
<RC29A>-AEDTN = 1.
<RC29A>-AEDTO = 1.
ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_RC29A-AEDTZ, sy-vline,
WA_RC29A-AEEIN, sy-vline,
WA_RC29A-AEERL, sy-vline,
WA_RC29A-AEFNT, sy-vline,
WA_RC29A-AEFUN, sy-vline,
WA_RC29A-AEGRU, sy-vline.
ENDLOOP. *Add any further fields from structure WA_RC29A 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_RC29A 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_RC29A INTO WA_RC29A. *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 AEEIN CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_RC29A-AEEIN IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RC29A-AEEIN.
WRITE:/ 'New Value:', ld_input.

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

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

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

*Conversion exit CCMAT, internal->external for field MATNR CALL FUNCTION 'CONVERSION_EXIT_CCMAT_OUTPUT' EXPORTING input = WA_RC29A-MATNR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RC29A-MATNR.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit ABPSP, internal->external for field PSPNR CALL FUNCTION 'CONVERSION_EXIT_ABPSP_OUTPUT' EXPORTING input = WA_RC29A-PSPNR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RC29A-PSPNR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit NUMCV, internal->external for field REVLV CALL FUNCTION 'CONVERSION_EXIT_NUMCV_OUTPUT' EXPORTING input = WA_RC29A-REVLV IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RC29A-REVLV.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit CCMAT, internal->external for field SELMT CALL FUNCTION 'CONVERSION_EXIT_CCMAT_OUTPUT' EXPORTING input = WA_RC29A-SELMT IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RC29A-SELMT.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit NUMCV, internal->external for field STLNR CALL FUNCTION 'CONVERSION_EXIT_NUMCV_OUTPUT' EXPORTING input = WA_RC29A-STLNR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RC29A-STLNR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit CCTPL, internal->external for field TPLNR CALL FUNCTION 'CONVERSION_EXIT_CCTPL_OUTPUT' EXPORTING input = WA_RC29A-TPLNR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RC29A-TPLNR.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit ALPHA, internal->external for field VBELN CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_RC29A-VBELN IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RC29A-VBELN.
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_RC29A_STR,
AEDAT TYPE STRING,
AEDTD TYPE STRING,
AEDTE TYPE STRING,
AEDTN TYPE STRING,
AEDTO TYPE STRING,
AEDTZ TYPE STRING,
AEEIN TYPE STRING,
AEERL TYPE STRING,
AEFNT TYPE STRING,
AEFUN TYPE STRING,
AEGRU TYPE STRING,
AENAM TYPE STRING,
AENBE TYPE STRING,
AENNR TYPE STRING,
AENOB TYPE STRING,
AEPRO TYPE STRING,
AENSP TYPE STRING,
AENST TYPE STRING,
AERNG TYPE STRING,
AETXT TYPE STRING,
AETPO TYPE STRING,
AMOUNT3 TYPE STRING,
ANDAT TYPE STRING,
ANNAM TYPE STRING,
ASTTX TYPE STRING,
ATEXT TYPE STRING,
ATABR TYPE STRING,
AUDAT TYPE STRING,
AUSKZ TYPE STRING,
CCART TYPE STRING,
CCBEX TYPE STRING,
CCLCK TYPE STRING,
CCOAA TYPE STRING,
CCVEX TYPE STRING,
CC12T TYPE STRING,
CC14T TYPE STRING,
CLINT TYPE STRING,
DATUV TYPE STRING,
DKTXT TYPE STRING,
DOCDT TYPE STRING,
DOCNM TYPE STRING,
DOKAR TYPE STRING,
DOKNR TYPE STRING,
DOKTL TYPE STRING,
DOKVR TYPE STRING,
EFFPTX TYPE STRING,
EFFTYP TYPE STRING,
EFFVAL TYPE STRING,
EQTXT TYPE STRING,
EQUNR TYPE STRING,
ERLED TYPE STRING,
FILT1 TYPE STRING,
FILT2 TYPE STRING,
FLBAS TYPE STRING,
GENAN TYPE STRING,
GENDI TYPE STRING,
ICON1 TYPE STRING,
INDAT TYPE STRING,
INDFL TYPE STRING,
INUSE TYPE STRING,
KZEXP TYPE STRING,
LTXOI TYPE STRING,
LTXSS TYPE STRING,
LVORM TYPE STRING,
MAKTX TYPE STRING,
MATDT TYPE STRING,
MATNM TYPE STRING,
MATNR TYPE STRING,
MTART TYPE STRING,
NACHT TYPE STRING,
OBKTX TYPE STRING,
OIGEN TYPE STRING,
OITXT TYPE STRING,
PLNDT TYPE STRING,
PLNNM TYPE STRING,
PLNNR TYPE STRING,
PLNTY TYPE STRING,
PLTXT TYPE STRING,
PSPNR TYPE STRING,
REVLV TYPE STRING,
RLDAT TYPE STRING,
RLKEY TYPE STRING,
RLTIM TYPE STRING,
SELEQ TYPE STRING,
SELMT TYPE STRING,
SELPL TYPE STRING,
SELPT TYPE STRING,
SELWK TYPE STRING,
SELVW TYPE STRING,
STSMA TYPE STRING,
STLAN TYPE STRING,
STLDT TYPE STRING,
STLNM TYPE STRING,
STLNR TYPE STRING,
STLTY TYPE STRING,
STOBJ TYPE STRING,
STTXT TYPE STRING,
TEREL TYPE STRING,
TOPLN TYPE STRING,
TOSTL TYPE STRING,
TOPVS TYPE STRING,
TPLNR TYPE STRING,
VAENN TYPE STRING,
VBELN TYPE STRING,
VBPOS TYPE STRING,
WERKS TYPE STRING,
WTEXT TYPE STRING,
PNAME TYPE STRING,
CLASS TYPE STRING,
KLART TYPE STRING,
PVNAME TYPE STRING,
PVSDT TYPE STRING,
PVSNM TYPE STRING,
PVSTXT TYPE STRING,END OF T_EKKO_STR. DATA: WA_RC29A_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_RC29A_STR-AEDAT sy-vline
WA_RC29A_STR-AEDTD sy-vline
WA_RC29A_STR-AEDTE sy-vline
WA_RC29A_STR-AEDTN sy-vline
WA_RC29A_STR-AEDTO sy-vline
WA_RC29A_STR-AEDTZ sy-vline
WA_RC29A_STR-AEEIN sy-vline
WA_RC29A_STR-AEERL sy-vline
WA_RC29A_STR-AEFNT sy-vline
WA_RC29A_STR-AEFUN sy-vline
WA_RC29A_STR-AEGRU sy-vline
WA_RC29A_STR-AENAM sy-vline
WA_RC29A_STR-AENBE sy-vline
WA_RC29A_STR-AENNR sy-vline
WA_RC29A_STR-AENOB sy-vline
WA_RC29A_STR-AEPRO sy-vline
WA_RC29A_STR-AENSP sy-vline
WA_RC29A_STR-AENST sy-vline
WA_RC29A_STR-AERNG sy-vline
WA_RC29A_STR-AETXT sy-vline
WA_RC29A_STR-AETPO sy-vline
WA_RC29A_STR-AMOUNT3 sy-vline
WA_RC29A_STR-ANDAT sy-vline
WA_RC29A_STR-ANNAM sy-vline
WA_RC29A_STR-ASTTX sy-vline
WA_RC29A_STR-ATEXT sy-vline
WA_RC29A_STR-ATABR sy-vline
WA_RC29A_STR-AUDAT sy-vline
WA_RC29A_STR-AUSKZ sy-vline
WA_RC29A_STR-CCART sy-vline
WA_RC29A_STR-CCBEX sy-vline
WA_RC29A_STR-CCLCK sy-vline
WA_RC29A_STR-CCOAA sy-vline
WA_RC29A_STR-CCVEX sy-vline
WA_RC29A_STR-CC12T sy-vline
WA_RC29A_STR-CC14T sy-vline
WA_RC29A_STR-CLINT sy-vline
WA_RC29A_STR-DATUV sy-vline
WA_RC29A_STR-DKTXT sy-vline
WA_RC29A_STR-DOCDT sy-vline
WA_RC29A_STR-DOCNM sy-vline
WA_RC29A_STR-DOKAR sy-vline
WA_RC29A_STR-DOKNR sy-vline
WA_RC29A_STR-DOKTL sy-vline
WA_RC29A_STR-DOKVR sy-vline
WA_RC29A_STR-EFFPTX sy-vline
WA_RC29A_STR-EFFTYP sy-vline
WA_RC29A_STR-EFFVAL sy-vline
WA_RC29A_STR-EQTXT sy-vline
WA_RC29A_STR-EQUNR sy-vline
WA_RC29A_STR-ERLED sy-vline
WA_RC29A_STR-FILT1 sy-vline
WA_RC29A_STR-FILT2 sy-vline
WA_RC29A_STR-FLBAS sy-vline
WA_RC29A_STR-GENAN sy-vline
WA_RC29A_STR-GENDI sy-vline
WA_RC29A_STR-ICON1 sy-vline
WA_RC29A_STR-INDAT sy-vline
WA_RC29A_STR-INDFL sy-vline
WA_RC29A_STR-INUSE sy-vline
WA_RC29A_STR-KZEXP sy-vline
WA_RC29A_STR-LTXOI sy-vline
WA_RC29A_STR-LTXSS sy-vline
WA_RC29A_STR-LVORM sy-vline
WA_RC29A_STR-MAKTX sy-vline
WA_RC29A_STR-MATDT sy-vline
WA_RC29A_STR-MATNM sy-vline
WA_RC29A_STR-MATNR sy-vline
WA_RC29A_STR-MTART sy-vline
WA_RC29A_STR-NACHT sy-vline
WA_RC29A_STR-OBKTX sy-vline
WA_RC29A_STR-OIGEN sy-vline
WA_RC29A_STR-OITXT sy-vline
WA_RC29A_STR-PLNDT sy-vline
WA_RC29A_STR-PLNNM sy-vline
WA_RC29A_STR-PLNNR sy-vline
WA_RC29A_STR-PLNTY sy-vline
WA_RC29A_STR-PLTXT sy-vline
WA_RC29A_STR-PSPNR sy-vline
WA_RC29A_STR-REVLV sy-vline
WA_RC29A_STR-RLDAT sy-vline
WA_RC29A_STR-RLKEY sy-vline
WA_RC29A_STR-RLTIM sy-vline
WA_RC29A_STR-SELEQ sy-vline
WA_RC29A_STR-SELMT sy-vline
WA_RC29A_STR-SELPL sy-vline
WA_RC29A_STR-SELPT sy-vline
WA_RC29A_STR-SELWK sy-vline
WA_RC29A_STR-SELVW sy-vline
WA_RC29A_STR-STSMA sy-vline
WA_RC29A_STR-STLAN sy-vline
WA_RC29A_STR-STLDT sy-vline
WA_RC29A_STR-STLNM sy-vline
WA_RC29A_STR-STLNR sy-vline
WA_RC29A_STR-STLTY sy-vline
WA_RC29A_STR-STOBJ sy-vline
WA_RC29A_STR-STTXT sy-vline
WA_RC29A_STR-TEREL sy-vline
WA_RC29A_STR-TOPLN sy-vline
WA_RC29A_STR-TOSTL sy-vline
WA_RC29A_STR-TOPVS sy-vline
WA_RC29A_STR-TPLNR sy-vline
WA_RC29A_STR-VAENN sy-vline
WA_RC29A_STR-VBELN sy-vline
WA_RC29A_STR-VBPOS sy-vline
WA_RC29A_STR-WERKS sy-vline
WA_RC29A_STR-WTEXT sy-vline
WA_RC29A_STR-PNAME sy-vline
WA_RC29A_STR-CLASS sy-vline
WA_RC29A_STR-KLART sy-vline
WA_RC29A_STR-PVNAME sy-vline
WA_RC29A_STR-PVSDT sy-vline
WA_RC29A_STR-PVSNM sy-vline
WA_RC29A_STR-PVSTXT sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.