ABAP Select data from SAP table OIISOCK 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 OIISOCK 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 OIISOCK. 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 OIISOCK 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_OIISOCK TYPE STANDARD TABLE OF OIISOCK, WA_OIISOCK TYPE OIISOCK, 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: <OIISOCK> TYPE OIISOCK. *Process all fields in table header/work area as string values PERFORM process_as_string_field_values CHANGING wa_OIISOCK. SELECT * *restrict ABAP select to first 10 rows UP TO 10 ROWS FROM OIISOCK INTO TABLE IT_OIISOCK. *Select data and declare internal table using in-line method @DATA *SELECT * * FROM OIISOCK * INTO TABLE @DATA(IT_OIISOCK2). *--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_OIISOCK INDEX 1 INTO DATA(WA_OIISOCK2). *Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL LOOP AT IT_OIISOCK ASSIGNING <OIISOCK>.*To update a field value using a field symbol simply change the value via the field symbol pointer
<OIISOCK>-MANDT = 1.
<OIISOCK>-SOCNR = 1.
<OIISOCK>-OBJNR = 1.
<OIISOCK>-SOCAM = 1.
<OIISOCK>-SOCKL = 1.
ENDLOOP. LOOP AT IT_OIISOCK INTO WA_OIISOCK. *Write horizonal line to screen report. WRITE:/ sy-uline. *Write selected data to screen/report before conversion. WRITE:/ sy-vline, WA_OIISOCK-SOCTYP, sy-vline,
WA_OIISOCK-EQUNR, sy-vline,
WA_OIISOCK-TPLNR, sy-vline,
WA_OIISOCK-HERST, sy-vline,
WA_OIISOCK-HERLD, sy-vline,
WA_OIISOCK-HZEIN, sy-vline.
ENDLOOP. *Add any further fields from structure WA_OIISOCK 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_OIISOCK 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_OIISOCK INTO WA_OIISOCK. *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 EQUNR CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_OIISOCK-EQUNR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_OIISOCK-EQUNR.
WRITE:/ 'New Value:', ld_input.
*Conversion exit TPLNR, internal->external for field TPLNR CALL FUNCTION 'CONVERSION_EXIT_TPLNR_OUTPUT' EXPORTING input = WA_OIISOCK-TPLNR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_OIISOCK-TPLNR.
WRITE:/ 'New Value:', ld_input.
*Conversion exit CUNIT, internal->external for field VOLUN CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT' EXPORTING input = WA_OIISOCK-VOLUN IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_OIISOCK-VOLUN.
WRITE:/ 'New Value:', ld_input.
*Conversion exit CUNIT, internal->external for field MASUN CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT' EXPORTING input = WA_OIISOCK-MASUN IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_OIISOCK-MASUN.
WRITE:/ 'New Value:', ld_input.
*Conversion exit CUNIT, internal->external for field LENUN CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT' EXPORTING input = WA_OIISOCK-LENUN IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_OIISOCK-LENUN.
WRITE:/ 'New Value:', ld_input.
*Conversion exit CUNIT, internal->external for field FRTUN CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT' EXPORTING input = WA_OIISOCK-FRTUN IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_OIISOCK-FRTUN.
WRITE:/ 'New Value:', ld_input.
*Conversion exit CUNIT, internal->external for field TIMUN CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT' EXPORTING input = WA_OIISOCK-TIMUN IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_OIISOCK-TIMUN.
WRITE:/ 'New Value:', ld_input.
*Conversion exit CUNIT, internal->external for field TMPUN CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT' EXPORTING input = WA_OIISOCK-TMPUN IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_OIISOCK-TMPUN.
WRITE:/ 'New Value:', ld_input.
*Conversion exit CUNIT, internal->external for field DNSUN CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT' EXPORTING input = WA_OIISOCK-DNSUN IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_OIISOCK-DNSUN.
WRITE:/ 'New Value:', ld_input.
*Conversion exit CUNIT, internal->external for field SPVUN CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT' EXPORTING input = WA_OIISOCK-SPVUN IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_OIISOCK-SPVUN.
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_OIISOCK_STR,
MANDT TYPE STRING,
SOCNR TYPE STRING,
OBJNR TYPE STRING,
SOCAM TYPE STRING,
SOCKL TYPE STRING,
SOCTYP TYPE STRING,
EQUNR TYPE STRING,
TPLNR TYPE STRING,
HERST TYPE STRING,
HERLD TYPE STRING,
HZEIN TYPE STRING,
SERGE TYPE STRING,
TYPBZ TYPE STRING,
BAUJJ TYPE STRING,
BAUMM TYPE STRING,
VOLUN TYPE STRING,
MASUN TYPE STRING,
LENUN TYPE STRING,
FRTUN TYPE STRING,
TIMUN TYPE STRING,
TMPUN TYPE STRING,
DNSUN TYPE STRING,
SPVUN TYPE STRING,
DNTYP TYPE STRING,
KAPAZ TYPE STRING,
MXMAS TYPE STRING,
GXDAT TYPE STRING,
GXTIM TYPE STRING,
GXREA TYPE STRING,
SOGRP TYPE STRING,
ERDAT TYPE STRING,
ERZEIT TYPE STRING,
ERNAM TYPE STRING,
AEDAT TYPE STRING,
AEZEIT TYPE STRING,
AENAM TYPE STRING,
BLOIND TYPE STRING,
DELIND TYPE STRING,
ST_GAUGE_RT TYPE STRING,END OF T_EKKO_STR. DATA: WA_OIISOCK_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_OIISOCK_STR-MANDT sy-vline
WA_OIISOCK_STR-SOCNR sy-vline
WA_OIISOCK_STR-OBJNR sy-vline
WA_OIISOCK_STR-SOCAM sy-vline
WA_OIISOCK_STR-SOCKL sy-vline
WA_OIISOCK_STR-SOCTYP sy-vline
WA_OIISOCK_STR-EQUNR sy-vline
WA_OIISOCK_STR-TPLNR sy-vline
WA_OIISOCK_STR-HERST sy-vline
WA_OIISOCK_STR-HERLD sy-vline
WA_OIISOCK_STR-HZEIN sy-vline
WA_OIISOCK_STR-SERGE sy-vline
WA_OIISOCK_STR-TYPBZ sy-vline
WA_OIISOCK_STR-BAUJJ sy-vline
WA_OIISOCK_STR-BAUMM sy-vline
WA_OIISOCK_STR-VOLUN sy-vline
WA_OIISOCK_STR-MASUN sy-vline
WA_OIISOCK_STR-LENUN sy-vline
WA_OIISOCK_STR-FRTUN sy-vline
WA_OIISOCK_STR-TIMUN sy-vline
WA_OIISOCK_STR-TMPUN sy-vline
WA_OIISOCK_STR-DNSUN sy-vline
WA_OIISOCK_STR-SPVUN sy-vline
WA_OIISOCK_STR-DNTYP sy-vline
WA_OIISOCK_STR-KAPAZ sy-vline
WA_OIISOCK_STR-MXMAS sy-vline
WA_OIISOCK_STR-GXDAT sy-vline
WA_OIISOCK_STR-GXTIM sy-vline
WA_OIISOCK_STR-GXREA sy-vline
WA_OIISOCK_STR-SOGRP sy-vline
WA_OIISOCK_STR-ERDAT sy-vline
WA_OIISOCK_STR-ERZEIT sy-vline
WA_OIISOCK_STR-ERNAM sy-vline
WA_OIISOCK_STR-AEDAT sy-vline
WA_OIISOCK_STR-AEZEIT sy-vline
WA_OIISOCK_STR-AENAM sy-vline
WA_OIISOCK_STR-BLOIND sy-vline
WA_OIISOCK_STR-DELIND sy-vline
WA_OIISOCK_STR-ST_GAUGE_RT sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.