ABAP Select data from SAP table BIW_COOR 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 BIW_COOR 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 BIW_COOR. 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 BIW_COOR 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_BIW_COOR TYPE STANDARD TABLE OF BIW_COOR,
      WA_BIW_COOR TYPE BIW_COOR,
      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: <BIW_COOR> TYPE BIW_COOR.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM BIW_COOR
*  INTO TABLE @DATA(IT_BIW_COOR2).
*--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_BIW_COOR INDEX 1 INTO DATA(WA_BIW_COOR2).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_BIW_COOR ASSIGNING <BIW_COOR>.
*To update a field value using a field symbol simply change the value via the field symbol pointer
<BIW_COOR>-MANDT = 1.
<BIW_COOR>-AUFNR = 1.
<BIW_COOR>-AUART = 1.
<BIW_COOR>-ERLOESE = 1.
<BIW_COOR>-OBLIGOX = 1.
ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_BIW_COOR-AUTYP, sy-vline,
WA_BIW_COOR-BUKRS, sy-vline,
WA_BIW_COOR-WERKS, sy-vline,
WA_BIW_COOR-GSBER, sy-vline,
WA_BIW_COOR-KOKRS, sy-vline,
WA_BIW_COOR-KOSTV, sy-vline.
ENDLOOP. *Add any further fields from structure WA_BIW_COOR 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_BIW_COOR 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_BIW_COOR INTO WA_BIW_COOR. *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 AUFNR CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_BIW_COOR-AUFNR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_BIW_COOR-AUFNR.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

*Conversion exit ABPSN, internal->external for field POSID CALL FUNCTION 'CONVERSION_EXIT_ABPSN_OUTPUT' EXPORTING input = WA_BIW_COOR-POSID IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_BIW_COOR-POSID.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

*Conversion exit SCOPE, internal->external for field SCOPE CALL FUNCTION 'CONVERSION_EXIT_SCOPE_OUTPUT' EXPORTING input = WA_BIW_COOR-SCOPE IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_BIW_COOR-SCOPE.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

*Conversion exit ALPHA, internal->external for field ADRNRA CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_BIW_COOR-ADRNRA IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_BIW_COOR-ADRNRA.
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_BIW_COOR_STR,
MANDT TYPE STRING,
AUFNR TYPE STRING,
AUART TYPE STRING,
ERLOESE TYPE STRING,
OBLIGOX TYPE STRING,
AUTYP TYPE STRING,
BUKRS TYPE STRING,
WERKS TYPE STRING,
GSBER TYPE STRING,
KOKRS TYPE STRING,
KOSTV TYPE STRING,
WAERS TYPE STRING,
AKSTL TYPE STRING,
PRCTR TYPE STRING,
PSPEL TYPE STRING,
SIZECL TYPE STRING,
OBJNR TYPE STRING,
POSID TYPE STRING,
KTEXT TYPE STRING,
BWSTSYS0 TYPE STRING,
REFNR TYPE STRING,
ERNAM TYPE STRING,
ERDAT TYPE STRING,
AENAM TYPE STRING,
AEDAT TYPE STRING,
LTEXT TYPE STRING,
CCKEY TYPE STRING,
STORT TYPE STRING,
SOWRK TYPE STRING,
ASTKZ TYPE STRING,
ASTNR TYPE STRING,
STDAT TYPE STRING,
ESTNR TYPE STRING,
PHAS0 TYPE STRING,
PHAS1 TYPE STRING,
PHAS2 TYPE STRING,
PHAS3 TYPE STRING,
PDAT1 TYPE STRING,
PDAT2 TYPE STRING,
PDAT3 TYPE STRING,
IDAT1 TYPE STRING,
IDAT2 TYPE STRING,
IDAT3 TYPE STRING,
OBJID TYPE STRING,
VOGRP TYPE STRING,
LOEKZ TYPE STRING,
PLGKZ TYPE STRING,
KVEWE TYPE STRING,
KAPPL TYPE STRING,
KALSM TYPE STRING,
ZSCHL TYPE STRING,
ABKRS TYPE STRING,
KSTAR TYPE STRING,
KOSTL TYPE STRING,
SAKNR TYPE STRING,
SETNM TYPE STRING,
CYCLE TYPE STRING,
SDATE TYPE STRING,
SEQNR TYPE STRING,
USER0 TYPE STRING,
USER1 TYPE STRING,
USER2 TYPE STRING,
USER3 TYPE STRING,
USER4 TYPE STRING,
USER5 TYPE STRING,
USER6 TYPE STRING,
USER7 TYPE STRING,
USER8 TYPE STRING,
USER9 TYPE STRING,
AWSLS TYPE STRING,
ABGSL TYPE STRING,
TXJCD TYPE STRING,
FUNC_AREA TYPE STRING,
SCOPE TYPE STRING,
PLINT TYPE STRING,
KDAUF TYPE STRING,
KDPOS TYPE STRING,
AUFEX TYPE STRING,
IVPRO TYPE STRING,
LOGSYSTEM TYPE STRING,
FLG_MLTPS TYPE STRING,
ABUKR TYPE STRING,
IZWEK TYPE STRING,
UMWKZ TYPE STRING,
KSTEMPF TYPE STRING,
ZSCHM TYPE STRING,
PKOSA TYPE STRING,
ANFAUFNR TYPE STRING,
PROCNR TYPE STRING,
PROTY TYPE STRING,
RSORD TYPE STRING,
BEMOT TYPE STRING,
ADRNRA TYPE STRING,
ERFZEIT TYPE STRING,
AEZEIT TYPE STRING,
CSTG_VRNT TYPE STRING,
COSTESTNR TYPE STRING,
VERAA_USER TYPE STRING,END OF T_EKKO_STR. DATA: WA_BIW_COOR_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_BIW_COOR_STR-MANDT sy-vline
WA_BIW_COOR_STR-AUFNR sy-vline
WA_BIW_COOR_STR-AUART sy-vline
WA_BIW_COOR_STR-ERLOESE sy-vline
WA_BIW_COOR_STR-OBLIGOX sy-vline
WA_BIW_COOR_STR-AUTYP sy-vline
WA_BIW_COOR_STR-BUKRS sy-vline
WA_BIW_COOR_STR-WERKS sy-vline
WA_BIW_COOR_STR-GSBER sy-vline
WA_BIW_COOR_STR-KOKRS sy-vline
WA_BIW_COOR_STR-KOSTV sy-vline
WA_BIW_COOR_STR-WAERS sy-vline
WA_BIW_COOR_STR-AKSTL sy-vline
WA_BIW_COOR_STR-PRCTR sy-vline
WA_BIW_COOR_STR-PSPEL sy-vline
WA_BIW_COOR_STR-SIZECL sy-vline
WA_BIW_COOR_STR-OBJNR sy-vline
WA_BIW_COOR_STR-POSID sy-vline
WA_BIW_COOR_STR-KTEXT sy-vline
WA_BIW_COOR_STR-BWSTSYS0 sy-vline
WA_BIW_COOR_STR-REFNR sy-vline
WA_BIW_COOR_STR-ERNAM sy-vline
WA_BIW_COOR_STR-ERDAT sy-vline
WA_BIW_COOR_STR-AENAM sy-vline
WA_BIW_COOR_STR-AEDAT sy-vline
WA_BIW_COOR_STR-LTEXT sy-vline
WA_BIW_COOR_STR-CCKEY sy-vline
WA_BIW_COOR_STR-STORT sy-vline
WA_BIW_COOR_STR-SOWRK sy-vline
WA_BIW_COOR_STR-ASTKZ sy-vline
WA_BIW_COOR_STR-ASTNR sy-vline
WA_BIW_COOR_STR-STDAT sy-vline
WA_BIW_COOR_STR-ESTNR sy-vline
WA_BIW_COOR_STR-PHAS0 sy-vline
WA_BIW_COOR_STR-PHAS1 sy-vline
WA_BIW_COOR_STR-PHAS2 sy-vline
WA_BIW_COOR_STR-PHAS3 sy-vline
WA_BIW_COOR_STR-PDAT1 sy-vline
WA_BIW_COOR_STR-PDAT2 sy-vline
WA_BIW_COOR_STR-PDAT3 sy-vline
WA_BIW_COOR_STR-IDAT1 sy-vline
WA_BIW_COOR_STR-IDAT2 sy-vline
WA_BIW_COOR_STR-IDAT3 sy-vline
WA_BIW_COOR_STR-OBJID sy-vline
WA_BIW_COOR_STR-VOGRP sy-vline
WA_BIW_COOR_STR-LOEKZ sy-vline
WA_BIW_COOR_STR-PLGKZ sy-vline
WA_BIW_COOR_STR-KVEWE sy-vline
WA_BIW_COOR_STR-KAPPL sy-vline
WA_BIW_COOR_STR-KALSM sy-vline
WA_BIW_COOR_STR-ZSCHL sy-vline
WA_BIW_COOR_STR-ABKRS sy-vline
WA_BIW_COOR_STR-KSTAR sy-vline
WA_BIW_COOR_STR-KOSTL sy-vline
WA_BIW_COOR_STR-SAKNR sy-vline
WA_BIW_COOR_STR-SETNM sy-vline
WA_BIW_COOR_STR-CYCLE sy-vline
WA_BIW_COOR_STR-SDATE sy-vline
WA_BIW_COOR_STR-SEQNR sy-vline
WA_BIW_COOR_STR-USER0 sy-vline
WA_BIW_COOR_STR-USER1 sy-vline
WA_BIW_COOR_STR-USER2 sy-vline
WA_BIW_COOR_STR-USER3 sy-vline
WA_BIW_COOR_STR-USER4 sy-vline
WA_BIW_COOR_STR-USER5 sy-vline
WA_BIW_COOR_STR-USER6 sy-vline
WA_BIW_COOR_STR-USER7 sy-vline
WA_BIW_COOR_STR-USER8 sy-vline
WA_BIW_COOR_STR-USER9 sy-vline
WA_BIW_COOR_STR-AWSLS sy-vline
WA_BIW_COOR_STR-ABGSL sy-vline
WA_BIW_COOR_STR-TXJCD sy-vline
WA_BIW_COOR_STR-FUNC_AREA sy-vline
WA_BIW_COOR_STR-SCOPE sy-vline
WA_BIW_COOR_STR-PLINT sy-vline
WA_BIW_COOR_STR-KDAUF sy-vline
WA_BIW_COOR_STR-KDPOS sy-vline
WA_BIW_COOR_STR-AUFEX sy-vline
WA_BIW_COOR_STR-IVPRO sy-vline
WA_BIW_COOR_STR-LOGSYSTEM sy-vline
WA_BIW_COOR_STR-FLG_MLTPS sy-vline
WA_BIW_COOR_STR-ABUKR sy-vline
WA_BIW_COOR_STR-IZWEK sy-vline
WA_BIW_COOR_STR-UMWKZ sy-vline
WA_BIW_COOR_STR-KSTEMPF sy-vline
WA_BIW_COOR_STR-ZSCHM sy-vline
WA_BIW_COOR_STR-PKOSA sy-vline
WA_BIW_COOR_STR-ANFAUFNR sy-vline
WA_BIW_COOR_STR-PROCNR sy-vline
WA_BIW_COOR_STR-PROTY sy-vline
WA_BIW_COOR_STR-RSORD sy-vline
WA_BIW_COOR_STR-BEMOT sy-vline
WA_BIW_COOR_STR-ADRNRA sy-vline
WA_BIW_COOR_STR-ERFZEIT sy-vline
WA_BIW_COOR_STR-AEZEIT sy-vline
WA_BIW_COOR_STR-CSTG_VRNT sy-vline
WA_BIW_COOR_STR-COSTESTNR sy-vline
WA_BIW_COOR_STR-VERAA_USER sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.