ABAP Select data from SAP table /SCMB/INBCRITICL 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 /SCMB/INBCRITICL 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 /SCMB/INBCRITICL. 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 /SCMB/INBCRITICL 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_/SCMB/INBCRITICL TYPE STANDARD TABLE OF /SCMB/INBCRITICL,
      WA_/SCMB/INBCRITICL TYPE /SCMB/INBCRITICL,
      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: </SCMB/INBCRITICL> TYPE /SCMB/INBCRITICL.

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

SELECT *
*restrict ABAP select to first 10 rows
 UP TO 10 ROWS      
  FROM /SCMB/INBCRITICL
  INTO TABLE IT_/SCMB/INBCRITICL.

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM /SCMB/INBCRITICL
*  INTO TABLE @DATA(IT_/SCMB/INBCRITICL2).
*--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_/SCMB/INBCRITICL INDEX 1 INTO DATA(WA_/SCMB/INBCRITICL2).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_/SCMB/INBCRITICL ASSIGNING </SCMB/INBCRITICL>.

*To update a field value using a field symbol simply change the value via the field symbol pointer
</SCMB/INBCRITICL>-CLNT = 1.
</SCMB/INBCRITICL>-DLV_HDR_GUID = 1.
</SCMB/INBCRITICL>-DLV_ITM_GUID = 1.
</SCMB/INBCRITICL>-DLV_STATUS = 1.
</SCMB/INBCRITICL>-REC_CHANGE = 1.

ENDLOOP.

LOOP AT IT_/SCMB/INBCRITICL INTO WA_/SCMB/INBCRITICL.
*Write horizonal line to screen report.
  WRITE:/ sy-uline.

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_/SCMB/INBCRITICL-DLV_HDR, sy-vline,
  WA_/SCMB/INBCRITICL-DLV_ITEM, sy-vline,
  WA_/SCMB/INBCRITICL-LIFEX, sy-vline,
  WA_/SCMB/INBCRITICL-TRAID, sy-vline,
  WA_/SCMB/INBCRITICL-TRAMODE, sy-vline,
  WA_/SCMB/INBCRITICL-SUPPLGRP, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_/SCMB/INBCRITICL 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_/SCMB/INBCRITICL 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_/SCMB/INBCRITICL INTO WA_/SCMB/INBCRITICL.


*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 TSTPS, internal->external for field REC_CHANGE
CALL FUNCTION 'CONVERSION_EXIT_TSTPS_OUTPUT'
  EXPORTING
    input =                      WA_/SCMB/INBCRITICL-REC_CHANGE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_/SCMB/INBCRITICL-REC_CHANGE.
WRITE:/ 'New Value:', ld_input.

*Conversion exit MATN1, internal->external for field PRODNR
CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT'
  EXPORTING
    input =                      WA_/SCMB/INBCRITICL-PRODNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_/SCMB/INBCRITICL-PRODNR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit TSTPS, internal->external for field END_TIME
CALL FUNCTION 'CONVERSION_EXIT_TSTPS_OUTPUT'
  EXPORTING
    input =                      WA_/SCMB/INBCRITICL-END_TIME
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_/SCMB/INBCRITICL-END_TIME.
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_/SCMB/INBCRITICL_STR, 
CLNT TYPE STRING,
DLV_HDR_GUID TYPE STRING,
DLV_ITM_GUID TYPE STRING,
DLV_STATUS TYPE STRING,
REC_CHANGE TYPE STRING,
DLV_HDR TYPE STRING,
DLV_ITEM TYPE STRING,
LIFEX TYPE STRING,
TRAID TYPE STRING,
TRAMODE TYPE STRING,
SUPPLGRP TYPE STRING,
SUPPL_LOC TYPE STRING,
LIFNR TYPE STRING,
SHPTO_LOC TYPE STRING,
PLANT TYPE STRING,
SHPFR_LOC TYPE STRING,
PRODGROUP TYPE STRING,
PROD_GUID TYPE STRING,
PRODNR TYPE STRING,
END_DATED TYPE STRING,
END_TIME TYPE STRING,
DLV_QUAN TYPE STRING,
BASE_UOM TYPE STRING,
EVNTLA TYPE STRING,
RSTDTIME TYPE STRING,
EXPECDATE TYPE STRING,
ALERTQTY TYPE STRING,
SHORTQTY TYPE STRING,
BORDQTY TYPE STRING,
BORDLINS TYPE STRING,
BODATE TYPE STRING,
BOAGE TYPE STRING,
EMERGQTY TYPE STRING,
EMERGLINS TYPE STRING,
DEMAND TYPE STRING,
NEWPROD TYPE STRING,
UPDTMODE TYPE STRING,
FLAG_DEL_REC TYPE STRING,END OF T_EKKO_STR.
DATA: WA_/SCMB/INBCRITICL_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_/SCMB/INBCRITICL_STR-CLNT sy-vline 
WA_/SCMB/INBCRITICL_STR-DLV_HDR_GUID sy-vline 
WA_/SCMB/INBCRITICL_STR-DLV_ITM_GUID sy-vline 
WA_/SCMB/INBCRITICL_STR-DLV_STATUS sy-vline 
WA_/SCMB/INBCRITICL_STR-REC_CHANGE sy-vline 
WA_/SCMB/INBCRITICL_STR-DLV_HDR sy-vline 
WA_/SCMB/INBCRITICL_STR-DLV_ITEM sy-vline 
WA_/SCMB/INBCRITICL_STR-LIFEX sy-vline 
WA_/SCMB/INBCRITICL_STR-TRAID sy-vline 
WA_/SCMB/INBCRITICL_STR-TRAMODE sy-vline 
WA_/SCMB/INBCRITICL_STR-SUPPLGRP sy-vline 
WA_/SCMB/INBCRITICL_STR-SUPPL_LOC sy-vline 
WA_/SCMB/INBCRITICL_STR-LIFNR sy-vline 
WA_/SCMB/INBCRITICL_STR-SHPTO_LOC sy-vline 
WA_/SCMB/INBCRITICL_STR-PLANT sy-vline 
WA_/SCMB/INBCRITICL_STR-SHPFR_LOC sy-vline 
WA_/SCMB/INBCRITICL_STR-PRODGROUP sy-vline 
WA_/SCMB/INBCRITICL_STR-PROD_GUID sy-vline 
WA_/SCMB/INBCRITICL_STR-PRODNR sy-vline 
WA_/SCMB/INBCRITICL_STR-END_DATED sy-vline 
WA_/SCMB/INBCRITICL_STR-END_TIME sy-vline 
WA_/SCMB/INBCRITICL_STR-DLV_QUAN sy-vline 
WA_/SCMB/INBCRITICL_STR-BASE_UOM sy-vline 
WA_/SCMB/INBCRITICL_STR-EVNTLA sy-vline 
WA_/SCMB/INBCRITICL_STR-RSTDTIME sy-vline 
WA_/SCMB/INBCRITICL_STR-EXPECDATE sy-vline 
WA_/SCMB/INBCRITICL_STR-ALERTQTY sy-vline 
WA_/SCMB/INBCRITICL_STR-SHORTQTY sy-vline 
WA_/SCMB/INBCRITICL_STR-BORDQTY sy-vline 
WA_/SCMB/INBCRITICL_STR-BORDLINS sy-vline 
WA_/SCMB/INBCRITICL_STR-BODATE sy-vline 
WA_/SCMB/INBCRITICL_STR-BOAGE sy-vline 
WA_/SCMB/INBCRITICL_STR-EMERGQTY sy-vline 
WA_/SCMB/INBCRITICL_STR-EMERGLINS sy-vline 
WA_/SCMB/INBCRITICL_STR-DEMAND sy-vline 
WA_/SCMB/INBCRITICL_STR-NEWPROD sy-vline 
WA_/SCMB/INBCRITICL_STR-UPDTMODE sy-vline 
WA_/SCMB/INBCRITICL_STR-FLAG_DEL_REC sy-vline      INTO ld_text SEPARATED BY SPACE.

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