ABAP Select data from SAP table SOSUY 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 SOSUY 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 SOSUY. 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 SOSUY 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_SOSUY TYPE STANDARD TABLE OF SOSUY, WA_SOSUY TYPE SOSUY, 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: <SOSUY> TYPE SOSUY. *Process all fields in table header/work area as string values PERFORM process_as_string_field_values CHANGING wa_SOSUY. SELECT * *restrict ABAP select to first 10 rows UP TO 10 ROWS FROM SOSUY INTO TABLE IT_SOSUY. *Select data and declare internal table using in-line method @DATA *SELECT * * FROM SOSUY * INTO TABLE @DATA(IT_SOSUY2). *--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_SOSUY INDEX 1 INTO DATA(WA_SOSUY2). *Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL LOOP AT IT_SOSUY ASSIGNING <SOSUY>.*To update a field value using a field symbol simply change the value via the field symbol pointer
<SOSUY>-USRNAM = 1.
<SOSUY>-USRADRNAM = 1.
<SOSUY>-USRSAPNAM = 1.
<SOSUY>-SUBNAM = 1.
<SOSUY>-SBDAT = 1.
ENDLOOP. LOOP AT IT_SOSUY INTO WA_SOSUY. *Write horizonal line to screen report. WRITE:/ sy-uline. *Write selected data to screen/report before conversion. WRITE:/ sy-vline, WA_SOSUY-SBTIM, sy-vline,
WA_SOSUY-SEDAT, sy-vline,
WA_SOSUY-SETIM, sy-vline,
WA_SOSUY-PSTHR1, sy-vline,
WA_SOSUY-PSTHR2, sy-vline,
WA_SOSUY-AUTINT, sy-vline.
ENDLOOP. *Add any further fields from structure WA_SOSUY 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_SOSUY 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_SOSUY INTO WA_SOSUY. *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 SXIDN, internal->external for field USRADRNAM CALL FUNCTION 'CONVERSION_EXIT_SXIDN_OUTPUT' EXPORTING input = WA_SOSUY-USRADRNAM IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_SOSUY-USRADRNAM.
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_SOSUY_STR,
USRNAM TYPE STRING,
USRADRNAM TYPE STRING,
USRSAPNAM TYPE STRING,
SUBNAM TYPE STRING,
SBDAT TYPE STRING,
SBTIM TYPE STRING,
SEDAT TYPE STRING,
SETIM TYPE STRING,
PSTHR1 TYPE STRING,
PSTHR2 TYPE STRING,
AUTINT TYPE STRING,
AUTEXT TYPE STRING,
AUSER TYPE STRING,
PUBDL TYPE STRING,
BCOPY TYPE STRING,
OBJAPR TYPE STRING,
OBJACO TYPE STRING,
OBJACC TYPE STRING,
OBJAFC TYPE STRING,
AUANS TYPE STRING,
RESUB TYPE STRING,
AUSSL TYPE STRING,
PUFOL TYPE STRING,
PROTI TYPE STRING,
PROTO TYPE STRING,
PROT1 TYPE STRING,
PROT2 TYPE STRING,
PROT3 TYPE STRING,
PROT4 TYPE STRING,
PROT5 TYPE STRING,
PROT6 TYPE STRING,
PROT7 TYPE STRING,
PROT8 TYPE STRING,
PROT9 TYPE STRING,
OBJTP1 TYPE STRING,
OBJYR1 TYPE STRING,
OBJNO1 TYPE STRING,
OBJTP2 TYPE STRING,
OBJYR2 TYPE STRING,
OBJNO2 TYPE STRING,
OBJTP3 TYPE STRING,
OBJYR3 TYPE STRING,
OBJNO3 TYPE STRING,
FLAG0 TYPE STRING,
FLAG1 TYPE STRING,
FLAG2 TYPE STRING,
FLAG3 TYPE STRING,
FLAG4 TYPE STRING,
FLAG5 TYPE STRING,
FLAG6 TYPE STRING,
FLAG7 TYPE STRING,
FLAG8 TYPE STRING,
FLAG9 TYPE STRING,
AUTFW TYPE STRING,
AUTFW1 TYPE STRING,
COMART TYPE STRING,
LFDNR TYPE STRING,END OF T_EKKO_STR. DATA: WA_SOSUY_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_SOSUY_STR-USRNAM sy-vline
WA_SOSUY_STR-USRADRNAM sy-vline
WA_SOSUY_STR-USRSAPNAM sy-vline
WA_SOSUY_STR-SUBNAM sy-vline
WA_SOSUY_STR-SBDAT sy-vline
WA_SOSUY_STR-SBTIM sy-vline
WA_SOSUY_STR-SEDAT sy-vline
WA_SOSUY_STR-SETIM sy-vline
WA_SOSUY_STR-PSTHR1 sy-vline
WA_SOSUY_STR-PSTHR2 sy-vline
WA_SOSUY_STR-AUTINT sy-vline
WA_SOSUY_STR-AUTEXT sy-vline
WA_SOSUY_STR-AUSER sy-vline
WA_SOSUY_STR-PUBDL sy-vline
WA_SOSUY_STR-BCOPY sy-vline
WA_SOSUY_STR-OBJAPR sy-vline
WA_SOSUY_STR-OBJACO sy-vline
WA_SOSUY_STR-OBJACC sy-vline
WA_SOSUY_STR-OBJAFC sy-vline
WA_SOSUY_STR-AUANS sy-vline
WA_SOSUY_STR-RESUB sy-vline
WA_SOSUY_STR-AUSSL sy-vline
WA_SOSUY_STR-PUFOL sy-vline
WA_SOSUY_STR-PROTI sy-vline
WA_SOSUY_STR-PROTO sy-vline
WA_SOSUY_STR-PROT1 sy-vline
WA_SOSUY_STR-PROT2 sy-vline
WA_SOSUY_STR-PROT3 sy-vline
WA_SOSUY_STR-PROT4 sy-vline
WA_SOSUY_STR-PROT5 sy-vline
WA_SOSUY_STR-PROT6 sy-vline
WA_SOSUY_STR-PROT7 sy-vline
WA_SOSUY_STR-PROT8 sy-vline
WA_SOSUY_STR-PROT9 sy-vline
WA_SOSUY_STR-OBJTP1 sy-vline
WA_SOSUY_STR-OBJYR1 sy-vline
WA_SOSUY_STR-OBJNO1 sy-vline
WA_SOSUY_STR-OBJTP2 sy-vline
WA_SOSUY_STR-OBJYR2 sy-vline
WA_SOSUY_STR-OBJNO2 sy-vline
WA_SOSUY_STR-OBJTP3 sy-vline
WA_SOSUY_STR-OBJYR3 sy-vline
WA_SOSUY_STR-OBJNO3 sy-vline
WA_SOSUY_STR-FLAG0 sy-vline
WA_SOSUY_STR-FLAG1 sy-vline
WA_SOSUY_STR-FLAG2 sy-vline
WA_SOSUY_STR-FLAG3 sy-vline
WA_SOSUY_STR-FLAG4 sy-vline
WA_SOSUY_STR-FLAG5 sy-vline
WA_SOSUY_STR-FLAG6 sy-vline
WA_SOSUY_STR-FLAG7 sy-vline
WA_SOSUY_STR-FLAG8 sy-vline
WA_SOSUY_STR-FLAG9 sy-vline
WA_SOSUY_STR-AUTFW sy-vline
WA_SOSUY_STR-AUTFW1 sy-vline
WA_SOSUY_STR-COMART sy-vline
WA_SOSUY_STR-LFDNR sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.