ABAP Select data from SAP table SINOBJ 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 SINOBJ 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 SINOBJ. 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 SINOBJ 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_SINOBJ TYPE STANDARD TABLE OF SINOBJ,
      WA_SINOBJ TYPE SINOBJ,
      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: <SINOBJ> TYPE SINOBJ.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM SINOBJ
*  INTO TABLE @DATA(IT_SINOBJ2).
*--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_SINOBJ INDEX 1 INTO DATA(WA_SINOBJ2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<SINOBJ>-MANDT = 1.
<SINOBJ>-SEL = 1.
<SINOBJ>-SEL1 = 1.
<SINOBJ>-POS = 1.
<SINOBJ>-FOLRG = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_SINOBJ-RSYSTEM, sy-vline,
  WA_SINOBJ-RFCDES, sy-vline,
  WA_SINOBJ-CLASS, sy-vline,
  WA_SINOBJ-CLDES, sy-vline,
  WA_SINOBJ-OBJTP, sy-vline,
  WA_SINOBJ-TPDES, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_SINOBJ 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_SINOBJ 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_SINOBJ INTO WA_SINOBJ.


*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 ISOLA, internal->external for field OBJLA
CALL FUNCTION 'CONVERSION_EXIT_ISOLA_OUTPUT'
  EXPORTING
    input =                      WA_SINOBJ-OBJLA
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_SINOBJ-OBJLA.
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_SINOBJ_STR, 
MANDT TYPE STRING,
SEL TYPE STRING,
SEL1 TYPE STRING,
POS TYPE STRING,
FOLRG TYPE STRING,
RSYSTEM TYPE STRING,
RFCDES TYPE STRING,
CLASS TYPE STRING,
CLDES TYPE STRING,
OBJTP TYPE STRING,
TPDES TYPE STRING,
OBJNAM TYPE STRING,
OBJDES TYPE STRING,
INDAT TYPE STRING,
INTIM TYPE STRING,
CRDAT TYPE STRING,
CRTIM TYPE STRING,
REDAT TYPE STRING,
RETIM TYPE STRING,
CHDAT TYPE STRING,
CHTIM TYPE STRING,
OBJPR TYPE STRING,
RECPR TYPE STRING,
FORADR TYPE STRING,
CRADR TYPE STRING,
ACDAT TYPE STRING,
ACTIM TYPE STRING,
OWNTP TYPE STRING,
STATSO TYPE STRING,
STATWF TYPE STRING,
PROCESS TYPE STRING,
OBJAC TYPE STRING,
ACDO TYPE STRING,
ATTACH TYPE STRING,
WIOBJID TYPE STRING,
WIOBJID_K TYPE STRING,
GROUPID TYPE STRING,
GROUPID_K TYPE STRING,
WIREJECT TYPE STRING,
TASK TYPE STRING,
DHSTAT TYPE STRING,
DISTRIB TYPE STRING,
TOLATE TYPE STRING,
SUBST TYPE STRING,
OBJSND TYPE STRING,
OBJCHN TYPE STRING,
OBJRD TYPE STRING,
RESUB TYPE STRING,
SNDEX TYPE STRING,
SNDCP TYPE STRING,
SNDBC TYPE STRING,
OBJRR TYPE STRING,
PRIFB TYPE STRING,
FORFB TYPE STRING,
OBJLA TYPE STRING,
RECCNT TYPE STRING,
RRDCNT TYPE STRING,
RRRCNT TYPE STRING,
RRPCNT TYPE STRING,
RARCNT TYPE STRING,
RAPCNT TYPE STRING,
RATCNT TYPE STRING,
RCPCNT TYPE STRING,
RBCCNT TYPE STRING,
SDDAT TYPE STRING,
SDTIM TYPE STRING,
RBDAT TYPE STRING,
RBTIM TYPE STRING,
FOLNAM TYPE STRING,
FOLDES TYPE STRING,
OBJRS TYPE STRING,
DLDAT TYPE STRING,
OBJLEN TYPE STRING,
FOLRGTP TYPE STRING,
CLDEP TYPE STRING,
DYNCOL1 TYPE STRING,
DYNCOL2 TYPE STRING,
DYNCOL3 TYPE STRING,
DYNCOL4 TYPE STRING,
DYNCOL5 TYPE STRING,
DYNCOL6 TYPE STRING,
DYNTYP1 TYPE STRING,
DYNTYP2 TYPE STRING,
DYNTYP3 TYPE STRING,
DYNTYP4 TYPE STRING,
DYNTYP5 TYPE STRING,
DYNTYP6 TYPE STRING,
DYNLEN1 TYPE STRING,
DYNLEN2 TYPE STRING,
DYNLEN3 TYPE STRING,
DYNLEN4 TYPE STRING,
DYNLEN5 TYPE STRING,
DYNLEN6 TYPE STRING,
CRADR_X TYPE STRING,
FORADR_X TYPE STRING,
WLC_DISPL TYPE STRING,
WF_TYPE TYPE STRING,
WI_CLASS TYPE STRING,
TOP_WI_ID TYPE STRING,
DEF_GUID TYPE STRING,
EXEC_TIME TYPE STRING,
NOTE_COUNT TYPE STRING,
PRS_PROFIL TYPE STRING,
CREA_TMP TYPE STRING,
CHECK_STAT TYPE STRING,
DYNCOL7 TYPE STRING,
DYNCOL8 TYPE STRING,
DYNCOL9 TYPE STRING,
DYNCOL10 TYPE STRING,
DYNCOL11 TYPE STRING,
DYNCOL12 TYPE STRING,
DYNTYP7 TYPE STRING,
DYNTYP8 TYPE STRING,
DYNTYP9 TYPE STRING,
DYNTYP10 TYPE STRING,
DYNTYP11 TYPE STRING,
DYNTYP12 TYPE STRING,
DYNLEN7 TYPE STRING,
DYNLEN8 TYPE STRING,
DYNLEN9 TYPE STRING,
DYNLEN10 TYPE STRING,
DYNLEN11 TYPE STRING,
DYNLEN12 TYPE STRING,
DYNCOL13 TYPE STRING,
DYNCOL14 TYPE STRING,
DYNCOL15 TYPE STRING,
DYNCOL16 TYPE STRING,
DYNCOL17 TYPE STRING,
DYNCOL18 TYPE STRING,
DYNCOL19 TYPE STRING,
DYNCOL20 TYPE STRING,
DYNTYP13 TYPE STRING,
DYNTYP14 TYPE STRING,
DYNTYP15 TYPE STRING,
DYNTYP16 TYPE STRING,
DYNTYP17 TYPE STRING,
DYNTYP18 TYPE STRING,
DYNTYP19 TYPE STRING,
DYNTYP20 TYPE STRING,
DYNLEN13 TYPE STRING,
DYNLEN14 TYPE STRING,
DYNLEN15 TYPE STRING,
DYNLEN16 TYPE STRING,
DYNLEN17 TYPE STRING,
DYNLEN18 TYPE STRING,
DYNLEN19 TYPE STRING,
DYNLEN20 TYPE STRING,END OF T_EKKO_STR.
DATA: WA_SINOBJ_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_SINOBJ_STR-MANDT sy-vline 
WA_SINOBJ_STR-SEL sy-vline 
WA_SINOBJ_STR-SEL1 sy-vline 
WA_SINOBJ_STR-POS sy-vline 
WA_SINOBJ_STR-FOLRG sy-vline 
WA_SINOBJ_STR-RSYSTEM sy-vline 
WA_SINOBJ_STR-RFCDES sy-vline 
WA_SINOBJ_STR-CLASS sy-vline 
WA_SINOBJ_STR-CLDES sy-vline 
WA_SINOBJ_STR-OBJTP sy-vline 
WA_SINOBJ_STR-TPDES sy-vline 
WA_SINOBJ_STR-OBJNAM sy-vline 
WA_SINOBJ_STR-OBJDES sy-vline 
WA_SINOBJ_STR-INDAT sy-vline 
WA_SINOBJ_STR-INTIM sy-vline 
WA_SINOBJ_STR-CRDAT sy-vline 
WA_SINOBJ_STR-CRTIM sy-vline 
WA_SINOBJ_STR-REDAT sy-vline 
WA_SINOBJ_STR-RETIM sy-vline 
WA_SINOBJ_STR-CHDAT sy-vline 
WA_SINOBJ_STR-CHTIM sy-vline 
WA_SINOBJ_STR-OBJPR sy-vline 
WA_SINOBJ_STR-RECPR sy-vline 
WA_SINOBJ_STR-FORADR sy-vline 
WA_SINOBJ_STR-CRADR sy-vline 
WA_SINOBJ_STR-ACDAT sy-vline 
WA_SINOBJ_STR-ACTIM sy-vline 
WA_SINOBJ_STR-OWNTP sy-vline 
WA_SINOBJ_STR-STATSO sy-vline 
WA_SINOBJ_STR-STATWF sy-vline 
WA_SINOBJ_STR-PROCESS sy-vline 
WA_SINOBJ_STR-OBJAC sy-vline 
WA_SINOBJ_STR-ACDO sy-vline 
WA_SINOBJ_STR-ATTACH sy-vline 
WA_SINOBJ_STR-WIOBJID sy-vline 
WA_SINOBJ_STR-WIOBJID_K sy-vline 
WA_SINOBJ_STR-GROUPID sy-vline 
WA_SINOBJ_STR-GROUPID_K sy-vline 
WA_SINOBJ_STR-WIREJECT sy-vline 
WA_SINOBJ_STR-TASK sy-vline 
WA_SINOBJ_STR-DHSTAT sy-vline 
WA_SINOBJ_STR-DISTRIB sy-vline 
WA_SINOBJ_STR-TOLATE sy-vline 
WA_SINOBJ_STR-SUBST sy-vline 
WA_SINOBJ_STR-OBJSND sy-vline 
WA_SINOBJ_STR-OBJCHN sy-vline 
WA_SINOBJ_STR-OBJRD sy-vline 
WA_SINOBJ_STR-RESUB sy-vline 
WA_SINOBJ_STR-SNDEX sy-vline 
WA_SINOBJ_STR-SNDCP sy-vline 
WA_SINOBJ_STR-SNDBC sy-vline 
WA_SINOBJ_STR-OBJRR sy-vline 
WA_SINOBJ_STR-PRIFB sy-vline 
WA_SINOBJ_STR-FORFB sy-vline 
WA_SINOBJ_STR-OBJLA sy-vline 
WA_SINOBJ_STR-RECCNT sy-vline 
WA_SINOBJ_STR-RRDCNT sy-vline 
WA_SINOBJ_STR-RRRCNT sy-vline 
WA_SINOBJ_STR-RRPCNT sy-vline 
WA_SINOBJ_STR-RARCNT sy-vline 
WA_SINOBJ_STR-RAPCNT sy-vline 
WA_SINOBJ_STR-RATCNT sy-vline 
WA_SINOBJ_STR-RCPCNT sy-vline 
WA_SINOBJ_STR-RBCCNT sy-vline 
WA_SINOBJ_STR-SDDAT sy-vline 
WA_SINOBJ_STR-SDTIM sy-vline 
WA_SINOBJ_STR-RBDAT sy-vline 
WA_SINOBJ_STR-RBTIM sy-vline 
WA_SINOBJ_STR-FOLNAM sy-vline 
WA_SINOBJ_STR-FOLDES sy-vline 
WA_SINOBJ_STR-OBJRS sy-vline 
WA_SINOBJ_STR-DLDAT sy-vline 
WA_SINOBJ_STR-OBJLEN sy-vline 
WA_SINOBJ_STR-FOLRGTP sy-vline 
WA_SINOBJ_STR-CLDEP sy-vline 
WA_SINOBJ_STR-DYNCOL1 sy-vline 
WA_SINOBJ_STR-DYNCOL2 sy-vline 
WA_SINOBJ_STR-DYNCOL3 sy-vline 
WA_SINOBJ_STR-DYNCOL4 sy-vline 
WA_SINOBJ_STR-DYNCOL5 sy-vline 
WA_SINOBJ_STR-DYNCOL6 sy-vline 
WA_SINOBJ_STR-DYNTYP1 sy-vline 
WA_SINOBJ_STR-DYNTYP2 sy-vline 
WA_SINOBJ_STR-DYNTYP3 sy-vline 
WA_SINOBJ_STR-DYNTYP4 sy-vline 
WA_SINOBJ_STR-DYNTYP5 sy-vline 
WA_SINOBJ_STR-DYNTYP6 sy-vline 
WA_SINOBJ_STR-DYNLEN1 sy-vline 
WA_SINOBJ_STR-DYNLEN2 sy-vline 
WA_SINOBJ_STR-DYNLEN3 sy-vline 
WA_SINOBJ_STR-DYNLEN4 sy-vline 
WA_SINOBJ_STR-DYNLEN5 sy-vline 
WA_SINOBJ_STR-DYNLEN6 sy-vline 
WA_SINOBJ_STR-CRADR_X sy-vline 
WA_SINOBJ_STR-FORADR_X sy-vline 
WA_SINOBJ_STR-WLC_DISPL sy-vline 
WA_SINOBJ_STR-WF_TYPE sy-vline 
WA_SINOBJ_STR-WI_CLASS sy-vline 
WA_SINOBJ_STR-TOP_WI_ID sy-vline 
WA_SINOBJ_STR-DEF_GUID sy-vline 
WA_SINOBJ_STR-EXEC_TIME sy-vline 
WA_SINOBJ_STR-NOTE_COUNT sy-vline 
WA_SINOBJ_STR-PRS_PROFIL sy-vline 
WA_SINOBJ_STR-CREA_TMP sy-vline 
WA_SINOBJ_STR-CHECK_STAT sy-vline 
WA_SINOBJ_STR-DYNCOL7 sy-vline 
WA_SINOBJ_STR-DYNCOL8 sy-vline 
WA_SINOBJ_STR-DYNCOL9 sy-vline 
WA_SINOBJ_STR-DYNCOL10 sy-vline 
WA_SINOBJ_STR-DYNCOL11 sy-vline 
WA_SINOBJ_STR-DYNCOL12 sy-vline 
WA_SINOBJ_STR-DYNTYP7 sy-vline 
WA_SINOBJ_STR-DYNTYP8 sy-vline 
WA_SINOBJ_STR-DYNTYP9 sy-vline 
WA_SINOBJ_STR-DYNTYP10 sy-vline 
WA_SINOBJ_STR-DYNTYP11 sy-vline 
WA_SINOBJ_STR-DYNTYP12 sy-vline 
WA_SINOBJ_STR-DYNLEN7 sy-vline 
WA_SINOBJ_STR-DYNLEN8 sy-vline 
WA_SINOBJ_STR-DYNLEN9 sy-vline 
WA_SINOBJ_STR-DYNLEN10 sy-vline 
WA_SINOBJ_STR-DYNLEN11 sy-vline 
WA_SINOBJ_STR-DYNLEN12 sy-vline 
WA_SINOBJ_STR-DYNCOL13 sy-vline 
WA_SINOBJ_STR-DYNCOL14 sy-vline 
WA_SINOBJ_STR-DYNCOL15 sy-vline 
WA_SINOBJ_STR-DYNCOL16 sy-vline 
WA_SINOBJ_STR-DYNCOL17 sy-vline 
WA_SINOBJ_STR-DYNCOL18 sy-vline 
WA_SINOBJ_STR-DYNCOL19 sy-vline 
WA_SINOBJ_STR-DYNCOL20 sy-vline 
WA_SINOBJ_STR-DYNTYP13 sy-vline 
WA_SINOBJ_STR-DYNTYP14 sy-vline 
WA_SINOBJ_STR-DYNTYP15 sy-vline 
WA_SINOBJ_STR-DYNTYP16 sy-vline 
WA_SINOBJ_STR-DYNTYP17 sy-vline 
WA_SINOBJ_STR-DYNTYP18 sy-vline 
WA_SINOBJ_STR-DYNTYP19 sy-vline 
WA_SINOBJ_STR-DYNTYP20 sy-vline 
WA_SINOBJ_STR-DYNLEN13 sy-vline 
WA_SINOBJ_STR-DYNLEN14 sy-vline 
WA_SINOBJ_STR-DYNLEN15 sy-vline 
WA_SINOBJ_STR-DYNLEN16 sy-vline 
WA_SINOBJ_STR-DYNLEN17 sy-vline 
WA_SINOBJ_STR-DYNLEN18 sy-vline 
WA_SINOBJ_STR-DYNLEN19 sy-vline 
WA_SINOBJ_STR-DYNLEN20 sy-vline      INTO ld_text SEPARATED BY SPACE.

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