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

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

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

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


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
</TDAG/CPS_ICMDS_BUF>-BUF_MODE = 1.
</TDAG/CPS_ICMDS_BUF>-SCENARIO = 1.
</TDAG/CPS_ICMDS_BUF>-MANDT = 1.
</TDAG/CPS_ICMDS_BUF>-GUID = 1.
</TDAG/CPS_ICMDS_BUF>-CRDAT = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_/TDAG/CPS_ICMDS_BUF-CRNAM, sy-vline,
  WA_/TDAG/CPS_ICMDS_BUF-CRTSTMP, sy-vline,
  WA_/TDAG/CPS_ICMDS_BUF-UPDDAT, sy-vline,
  WA_/TDAG/CPS_ICMDS_BUF-UPDNAM, sy-vline,
  WA_/TDAG/CPS_ICMDS_BUF-UPDTSTMP, sy-vline,
  WA_/TDAG/CPS_ICMDS_BUF-DELFLG, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_/TDAG/CPS_ICMDS_BUF 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_/TDAG/CPS_ICMDS_BUF 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_/TDAG/CPS_ICMDS_BUF INTO WA_/TDAG/CPS_ICMDS_BUF.


*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 SPEC1, internal->external for field SPEC_ID
CALL FUNCTION 'CONVERSION_EXIT_SPEC1_OUTPUT'
  EXPORTING
    input =                      WA_/TDAG/CPS_ICMDS_BUF-SPEC_ID
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_/TDAG/CPS_ICMDS_BUF-SPEC_ID.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit ALPHA, internal->external for field SF_DOCNUMBER
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_/TDAG/CPS_ICMDS_BUF-SF_DOCNUMBER
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_/TDAG/CPS_ICMDS_BUF-SF_DOCNUMBER.
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_/TDAG/CPS_ICMDS_BUF_STR, 
BUF_MODE TYPE STRING,
SCENARIO TYPE STRING,
MANDT TYPE STRING,
GUID TYPE STRING,
CRDAT TYPE STRING,
CRNAM TYPE STRING,
CRTSTMP TYPE STRING,
UPDDAT TYPE STRING,
UPDNAM TYPE STRING,
UPDTSTMP TYPE STRING,
DELFLG TYPE STRING,
SPEC_ID TYPE STRING,
MODULE_ID TYPE STRING,
MODULE_VERSION TYPE STRING,
NODE_ID TYPE STRING,
MDS_TYPE TYPE STRING,
PART_NO TYPE STRING,
PART_NO_NORM TYPE STRING,
PART_NAME TYPE STRING,
PART_NAME_NORM TYPE STRING,
MDS_STATUS TYPE STRING,
PREC_MDS_STATUS TYPE STRING,
SEND_DATE TYPE STRING,
SEND_TIME TYPE STRING,
DEVSAMPLEREP TYPE STRING,
RF_DOCTYPE TYPE STRING,
RF_DOCNUMBER TYPE STRING,
RF_DOCPART TYPE STRING,
RF_DOCVERSION TYPE STRING,
SF_DOCTYPE TYPE STRING,
SF_DOCNUMBER TYPE STRING,
SF_DOCPART TYPE STRING,
SF_DOCVERSION TYPE STRING,
OWN_ORGID TYPE STRING,
OWN_CONTPERS TYPE STRING,
COMM_STATUS TYPE STRING,
IMPORT_STATUS TYPE STRING,
APPL_LOG TYPE STRING,
OUTG_TEMPL TYPE STRING,
CREATE_DATE TYPE STRING,
CHECK_DATE TYPE STRING,
CHANGE_DATE TYPE STRING,
RELEASE_DATE TYPE STRING,
DATASH_TYPE TYPE STRING,END OF T_EKKO_STR.
DATA: WA_/TDAG/CPS_ICMDS_BUF_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_/TDAG/CPS_ICMDS_BUF_STR-BUF_MODE sy-vline 
WA_/TDAG/CPS_ICMDS_BUF_STR-SCENARIO sy-vline 
WA_/TDAG/CPS_ICMDS_BUF_STR-MANDT sy-vline 
WA_/TDAG/CPS_ICMDS_BUF_STR-GUID sy-vline 
WA_/TDAG/CPS_ICMDS_BUF_STR-CRDAT sy-vline 
WA_/TDAG/CPS_ICMDS_BUF_STR-CRNAM sy-vline 
WA_/TDAG/CPS_ICMDS_BUF_STR-CRTSTMP sy-vline 
WA_/TDAG/CPS_ICMDS_BUF_STR-UPDDAT sy-vline 
WA_/TDAG/CPS_ICMDS_BUF_STR-UPDNAM sy-vline 
WA_/TDAG/CPS_ICMDS_BUF_STR-UPDTSTMP sy-vline 
WA_/TDAG/CPS_ICMDS_BUF_STR-DELFLG sy-vline 
WA_/TDAG/CPS_ICMDS_BUF_STR-SPEC_ID sy-vline 
WA_/TDAG/CPS_ICMDS_BUF_STR-MODULE_ID sy-vline 
WA_/TDAG/CPS_ICMDS_BUF_STR-MODULE_VERSION sy-vline 
WA_/TDAG/CPS_ICMDS_BUF_STR-NODE_ID sy-vline 
WA_/TDAG/CPS_ICMDS_BUF_STR-MDS_TYPE sy-vline 
WA_/TDAG/CPS_ICMDS_BUF_STR-PART_NO sy-vline 
WA_/TDAG/CPS_ICMDS_BUF_STR-PART_NO_NORM sy-vline 
WA_/TDAG/CPS_ICMDS_BUF_STR-PART_NAME sy-vline 
WA_/TDAG/CPS_ICMDS_BUF_STR-PART_NAME_NORM sy-vline 
WA_/TDAG/CPS_ICMDS_BUF_STR-MDS_STATUS sy-vline 
WA_/TDAG/CPS_ICMDS_BUF_STR-PREC_MDS_STATUS sy-vline 
WA_/TDAG/CPS_ICMDS_BUF_STR-SEND_DATE sy-vline 
WA_/TDAG/CPS_ICMDS_BUF_STR-SEND_TIME sy-vline 
WA_/TDAG/CPS_ICMDS_BUF_STR-DEVSAMPLEREP sy-vline 
WA_/TDAG/CPS_ICMDS_BUF_STR-RF_DOCTYPE sy-vline 
WA_/TDAG/CPS_ICMDS_BUF_STR-RF_DOCNUMBER sy-vline 
WA_/TDAG/CPS_ICMDS_BUF_STR-RF_DOCPART sy-vline 
WA_/TDAG/CPS_ICMDS_BUF_STR-RF_DOCVERSION sy-vline 
WA_/TDAG/CPS_ICMDS_BUF_STR-SF_DOCTYPE sy-vline 
WA_/TDAG/CPS_ICMDS_BUF_STR-SF_DOCNUMBER sy-vline 
WA_/TDAG/CPS_ICMDS_BUF_STR-SF_DOCPART sy-vline 
WA_/TDAG/CPS_ICMDS_BUF_STR-SF_DOCVERSION sy-vline 
WA_/TDAG/CPS_ICMDS_BUF_STR-OWN_ORGID sy-vline 
WA_/TDAG/CPS_ICMDS_BUF_STR-OWN_CONTPERS sy-vline 
WA_/TDAG/CPS_ICMDS_BUF_STR-COMM_STATUS sy-vline 
WA_/TDAG/CPS_ICMDS_BUF_STR-IMPORT_STATUS sy-vline 
WA_/TDAG/CPS_ICMDS_BUF_STR-APPL_LOG sy-vline 
WA_/TDAG/CPS_ICMDS_BUF_STR-OUTG_TEMPL sy-vline 
WA_/TDAG/CPS_ICMDS_BUF_STR-CREATE_DATE sy-vline 
WA_/TDAG/CPS_ICMDS_BUF_STR-CHECK_DATE sy-vline 
WA_/TDAG/CPS_ICMDS_BUF_STR-CHANGE_DATE sy-vline 
WA_/TDAG/CPS_ICMDS_BUF_STR-RELEASE_DATE sy-vline 
WA_/TDAG/CPS_ICMDS_BUF_STR-DATASH_TYPE sy-vline      INTO ld_text SEPARATED BY SPACE.

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