ABAP Select data from SAP table SOUDO 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 SOUDO 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 SOUDO. 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 SOUDO 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_SOUDO TYPE STANDARD TABLE OF SOUDO, WA_SOUDO TYPE SOUDO, 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: <SOUDO> TYPE SOUDO. *Process all fields in table header/work area as string values PERFORM process_as_string_field_values CHANGING wa_SOUDO. SELECT * *restrict ABAP select to first 10 rows UP TO 10 ROWS FROM SOUDO INTO TABLE IT_SOUDO. *Select data and declare internal table using in-line method @DATA *SELECT * * FROM SOUDO * INTO TABLE @DATA(IT_SOUDO2). *--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_SOUDO INDEX 1 INTO DATA(WA_SOUDO2). *Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL LOOP AT IT_SOUDO ASSIGNING <SOUDO>.*To update a field value using a field symbol simply change the value via the field symbol pointer
<SOUDO>-USRTP = 1.
<SOUDO>-USRYR = 1.
<SOUDO>-USRNO = 1.
<SOUDO>-CROTP = 1.
<SOUDO>-CROYR = 1.
ENDLOOP. LOOP AT IT_SOUDO INTO WA_SOUDO. *Write horizonal line to screen report. WRITE:/ sy-uline. *Write selected data to screen/report before conversion. WRITE:/ sy-vline, WA_SOUDO-CRONO, sy-vline,
WA_SOUDO-CRONAM, sy-vline,
WA_SOUDO-CRDAT, sy-vline,
WA_SOUDO-CRTIM, sy-vline,
WA_SOUDO-CHOTP, sy-vline,
WA_SOUDO-CHOYR, sy-vline.
ENDLOOP. *Add any further fields from structure WA_SOUDO 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_SOUDO 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_SOUDO INTO WA_SOUDO. *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 USRADR CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_SOUDO-USRADR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_SOUDO-USRADR.
WRITE:/ 'New Value:', ld_input.
*Conversion exit SXIDN, internal->external for field ADRNAME CALL FUNCTION 'CONVERSION_EXIT_SXIDN_OUTPUT' EXPORTING input = WA_SOUDO-ADRNAME IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_SOUDO-ADRNAME.
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_SOUDO_STR,
USRTP TYPE STRING,
USRYR TYPE STRING,
USRNO TYPE STRING,
CROTP TYPE STRING,
CROYR TYPE STRING,
CRONO TYPE STRING,
CRONAM TYPE STRING,
CRDAT TYPE STRING,
CRTIM TYPE STRING,
CHOTP TYPE STRING,
CHOYR TYPE STRING,
CHONO TYPE STRING,
CHONAM TYPE STRING,
CHDAT TYPE STRING,
CHTIM TYPE STRING,
SAPNAM TYPE STRING,
USRNAM TYPE STRING,
LOADAT TYPE STRING,
EXMAX TYPE STRING,
RCMAX TYPE STRING,
INMAX TYPE STRING,
USRAU TYPE STRING,
CRGDL TYPE STRING,
CRFCL TYPE STRING,
CRFCC TYPE STRING,
CRFPL TYPE STRING,
CRFDP TYPE STRING,
CRFAD TYPE STRING,
CRFGR TYPE STRING,
HOMAX TYPE STRING,
HOCNT TYPE STRING,
GLMAX TYPE STRING,
GFMAX TYPE STRING,
GFCNT TYPE STRING,
AUTEXT TYPE STRING,
NOTTP TYPE STRING,
CALEN TYPE STRING,
OUTFL TYPE STRING,
SQWIN TYPE STRING,
SYUSR TYPE STRING,
SYUSRINB TYPE STRING,
SYUSROUT TYPE STRING,
ADREXT TYPE STRING,
PRWYR TYPE STRING,
PRWNO TYPE STRING,
PUWYR TYPE STRING,
PUWNO TYPE STRING,
INBYR TYPE STRING,
INBNO TYPE STRING,
OUTYR TYPE STRING,
OUTNO TYPE STRING,
WSTYR TYPE STRING,
WSTNO TYPE STRING,
PFRYR TYPE STRING,
PFRNO TYPE STRING,
PDLYR TYPE STRING,
PDLNO TYPE STRING,
VORYR TYPE STRING,
VORNO TYPE STRING,
NOTYR TYPE STRING,
NOTNO TYPE STRING,
DELETED TYPE STRING,
RSWORKDAY TYPE STRING,
RSFACID TYPE STRING,
USRADR TYPE STRING,
LFDNR TYPE STRING,
SNDART TYPE STRING,
FLAG1 TYPE STRING,
FLAG2 TYPE STRING,
FLAG3 TYPE STRING,
NATIO TYPE STRING,
LADAT TYPE STRING,
VLADAT TYPE STRING,
LASDAT TYPE STRING,
EXTTELE TYPE STRING,
EXTSMTP TYPE STRING,
EXTX400 TYPE STRING,
EXTSAP TYPE STRING,
EXTX500 TYPE STRING,
EXTPAG TYPE STRING,
EXTPRT TYPE STRING,
ARCHIV TYPE STRING,
ADRNAME TYPE STRING,
AREPYR TYPE STRING,
AREPNO TYPE STRING,
AREPABDAT TYPE STRING,
AREPAEDAT TYPE STRING,
FAXFORM TYPE STRING,
SCRFORM TYPE STRING,
NUMTELE TYPE STRING,
NUMSMTP TYPE STRING,
NUMX400 TYPE STRING,
NUMSAP TYPE STRING,
OFFMAX TYPE STRING,
INTSND TYPE STRING,
CHATSEND TYPE STRING,
NOARSDEX TYPE STRING,
PRPARCHG TYPE STRING,
PRPARNDH TYPE STRING,
PRPARRCL TYPE STRING,
PRPARNOP TYPE STRING,
DELFORIB TYPE STRING,
GHRAWDOC TYPE STRING,
FOLDSORT TYPE STRING,
DELTRASH TYPE STRING,
FOLLINYR TYPE STRING,
FOLLINNO TYPE STRING,
NORTFEDIT TYPE STRING,
PCOLE TYPE STRING,END OF T_EKKO_STR. DATA: WA_SOUDO_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_SOUDO_STR-USRTP sy-vline
WA_SOUDO_STR-USRYR sy-vline
WA_SOUDO_STR-USRNO sy-vline
WA_SOUDO_STR-CROTP sy-vline
WA_SOUDO_STR-CROYR sy-vline
WA_SOUDO_STR-CRONO sy-vline
WA_SOUDO_STR-CRONAM sy-vline
WA_SOUDO_STR-CRDAT sy-vline
WA_SOUDO_STR-CRTIM sy-vline
WA_SOUDO_STR-CHOTP sy-vline
WA_SOUDO_STR-CHOYR sy-vline
WA_SOUDO_STR-CHONO sy-vline
WA_SOUDO_STR-CHONAM sy-vline
WA_SOUDO_STR-CHDAT sy-vline
WA_SOUDO_STR-CHTIM sy-vline
WA_SOUDO_STR-SAPNAM sy-vline
WA_SOUDO_STR-USRNAM sy-vline
WA_SOUDO_STR-LOADAT sy-vline
WA_SOUDO_STR-EXMAX sy-vline
WA_SOUDO_STR-RCMAX sy-vline
WA_SOUDO_STR-INMAX sy-vline
WA_SOUDO_STR-USRAU sy-vline
WA_SOUDO_STR-CRGDL sy-vline
WA_SOUDO_STR-CRFCL sy-vline
WA_SOUDO_STR-CRFCC sy-vline
WA_SOUDO_STR-CRFPL sy-vline
WA_SOUDO_STR-CRFDP sy-vline
WA_SOUDO_STR-CRFAD sy-vline
WA_SOUDO_STR-CRFGR sy-vline
WA_SOUDO_STR-HOMAX sy-vline
WA_SOUDO_STR-HOCNT sy-vline
WA_SOUDO_STR-GLMAX sy-vline
WA_SOUDO_STR-GFMAX sy-vline
WA_SOUDO_STR-GFCNT sy-vline
WA_SOUDO_STR-AUTEXT sy-vline
WA_SOUDO_STR-NOTTP sy-vline
WA_SOUDO_STR-CALEN sy-vline
WA_SOUDO_STR-OUTFL sy-vline
WA_SOUDO_STR-SQWIN sy-vline
WA_SOUDO_STR-SYUSR sy-vline
WA_SOUDO_STR-SYUSRINB sy-vline
WA_SOUDO_STR-SYUSROUT sy-vline
WA_SOUDO_STR-ADREXT sy-vline
WA_SOUDO_STR-PRWYR sy-vline
WA_SOUDO_STR-PRWNO sy-vline
WA_SOUDO_STR-PUWYR sy-vline
WA_SOUDO_STR-PUWNO sy-vline
WA_SOUDO_STR-INBYR sy-vline
WA_SOUDO_STR-INBNO sy-vline
WA_SOUDO_STR-OUTYR sy-vline
WA_SOUDO_STR-OUTNO sy-vline
WA_SOUDO_STR-WSTYR sy-vline
WA_SOUDO_STR-WSTNO sy-vline
WA_SOUDO_STR-PFRYR sy-vline
WA_SOUDO_STR-PFRNO sy-vline
WA_SOUDO_STR-PDLYR sy-vline
WA_SOUDO_STR-PDLNO sy-vline
WA_SOUDO_STR-VORYR sy-vline
WA_SOUDO_STR-VORNO sy-vline
WA_SOUDO_STR-NOTYR sy-vline
WA_SOUDO_STR-NOTNO sy-vline
WA_SOUDO_STR-DELETED sy-vline
WA_SOUDO_STR-RSWORKDAY sy-vline
WA_SOUDO_STR-RSFACID sy-vline
WA_SOUDO_STR-USRADR sy-vline
WA_SOUDO_STR-LFDNR sy-vline
WA_SOUDO_STR-SNDART sy-vline
WA_SOUDO_STR-FLAG1 sy-vline
WA_SOUDO_STR-FLAG2 sy-vline
WA_SOUDO_STR-FLAG3 sy-vline
WA_SOUDO_STR-NATIO sy-vline
WA_SOUDO_STR-LADAT sy-vline
WA_SOUDO_STR-VLADAT sy-vline
WA_SOUDO_STR-LASDAT sy-vline
WA_SOUDO_STR-EXTTELE sy-vline
WA_SOUDO_STR-EXTSMTP sy-vline
WA_SOUDO_STR-EXTX400 sy-vline
WA_SOUDO_STR-EXTSAP sy-vline
WA_SOUDO_STR-EXTX500 sy-vline
WA_SOUDO_STR-EXTPAG sy-vline
WA_SOUDO_STR-EXTPRT sy-vline
WA_SOUDO_STR-ARCHIV sy-vline
WA_SOUDO_STR-ADRNAME sy-vline
WA_SOUDO_STR-AREPYR sy-vline
WA_SOUDO_STR-AREPNO sy-vline
WA_SOUDO_STR-AREPABDAT sy-vline
WA_SOUDO_STR-AREPAEDAT sy-vline
WA_SOUDO_STR-FAXFORM sy-vline
WA_SOUDO_STR-SCRFORM sy-vline
WA_SOUDO_STR-NUMTELE sy-vline
WA_SOUDO_STR-NUMSMTP sy-vline
WA_SOUDO_STR-NUMX400 sy-vline
WA_SOUDO_STR-NUMSAP sy-vline
WA_SOUDO_STR-OFFMAX sy-vline
WA_SOUDO_STR-INTSND sy-vline
WA_SOUDO_STR-CHATSEND sy-vline
WA_SOUDO_STR-NOARSDEX sy-vline
WA_SOUDO_STR-PRPARCHG sy-vline
WA_SOUDO_STR-PRPARNDH sy-vline
WA_SOUDO_STR-PRPARRCL sy-vline
WA_SOUDO_STR-PRPARNOP sy-vline
WA_SOUDO_STR-DELFORIB sy-vline
WA_SOUDO_STR-GHRAWDOC sy-vline
WA_SOUDO_STR-FOLDSORT sy-vline
WA_SOUDO_STR-DELTRASH sy-vline
WA_SOUDO_STR-FOLLINYR sy-vline
WA_SOUDO_STR-FOLLINNO sy-vline
WA_SOUDO_STR-NORTFEDIT sy-vline
WA_SOUDO_STR-PCOLE sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.