ABAP Select data from SAP table CIFRES30X 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 CIFRES30X 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 CIFRES30X. 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 CIFRES30X 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_CIFRES30X TYPE STANDARD TABLE OF CIFRES30X,
      WA_CIFRES30X TYPE CIFRES30X,
      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: <CIFRES30X> TYPE CIFRES30X.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM CIFRES30X
*  INTO TABLE @DATA(IT_CIFRES30X2).
*--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_CIFRES30X INDEX 1 INTO DATA(WA_CIFRES30X2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<CIFRES30X>-RESUID = 1.
<CIFRES30X>-NAME = 1.
<CIFRES30X>-RESTYPE = 1.
<CIFRES30X>-EXT_LOCNO = 1.
<CIFRES30X>-LOCTYPE = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_CIFRES30X-CALENDAR, sy-vline,
  WA_CIFRES30X-TYPE, sy-vline,
  WA_CIFRES30X-DIMENSION, sy-vline,
  WA_CIFRES30X-DIM_BUCKET, sy-vline,
  WA_CIFRES30X-BEGTI, sy-vline,
  WA_CIFRES30X-ENDTI, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_CIFRES30X 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_CIFRES30X 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_CIFRES30X INTO WA_CIFRES30X.


*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.
ENDFORM. 

*&---------------------------------------------------------------------*
*& Form process_as_string_field_values
*&---------------------------------------------------------------------*
FORM process_as_string_field_values CHANGING p_EKKO LIKE wa_EKKO.

TYPES: BEGIN OF T_CIFRES30X_STR, 
RESUID TYPE STRING,
NAME TYPE STRING,
RESTYPE TYPE STRING,
EXT_LOCNO TYPE STRING,
LOCTYPE TYPE STRING,
CALENDAR TYPE STRING,
TYPE TYPE STRING,
DIMENSION TYPE STRING,
DIM_BUCKET TYPE STRING,
BEGTI TYPE STRING,
ENDTI TYPE STRING,
BREAKTIME TYPE STRING,
BUFTIME TYPE STRING,
BUFTIMEU TYPE STRING,
BUFTIMEUI TYPE STRING,
NOINDIVRES TYPE STRING,
NOINDIVRSU TYPE STRING,
NOINDUSIO TYPE STRING,
INDIVCAP TYPE STRING,
UTILIZATIO TYPE STRING,
DEF_BUCKET TYPE STRING,
CAP_A TYPE STRING,
CAP_A_UNIT TYPE STRING,
CAP_A_UISO TYPE STRING,
NUM_PERIOS TYPE STRING,
PERIOD TYPE STRING,
PLANNER TYPE STRING,
VERS_ACT TYPE STRING,
FIN_PLAN TYPE STRING,
BOTTNECK TYPE STRING,
MIN_GAPS TYPE STRING,
OVERLOAD TYPE STRING,
UNDERLOAD TYPE STRING,
OLBUCK TYPE STRING,
STARTGRID TYPE STRING,
MIN_OL TYPE STRING,
MIN_OLUN TYPE STRING,
MIN_OLAPUI TYPE STRING,
LOSSFAC TYPE STRING,
REFPROC TYPE STRING,
REFPROCU TYPE STRING,
REFPROCUI TYPE STRING,
TZONE TYPE STRING,
TAKTS TYPE STRING,
BRQUAN TYPE STRING,
BRQUANU TYPE STRING,
BRQUANUI TYPE STRING,
BRTIME TYPE STRING,
BRTIMEU TYPE STRING,
BRTIMEUI TYPE STRING,
RITT_FLG TYPE STRING,
MDRMODEL TYPE STRING,
SORT TYPE STRING,
SYNC_START TYPE STRING,
SYNC_COMP TYPE STRING,
MATRIX_N TYPE STRING,
REF_RES TYPE STRING,
TRATY TYPE STRING,
DAYS_MINUS TYPE STRING,
DAYS_PLUS TYPE STRING,
STOR_CAP TYPE STRING,
MIN_STOR TYPE STRING,
MAX_STOR TYPE STRING,
MIN_REPL TYPE STRING,
STOR_UNIT TYPE STRING,
STOR_UNITI TYPE STRING,
R3KAPID TYPE STRING,
R3ARBID TYPE STRING,END OF T_EKKO_STR.
DATA: WA_CIFRES30X_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_CIFRES30X_STR-RESUID sy-vline 
WA_CIFRES30X_STR-NAME sy-vline 
WA_CIFRES30X_STR-RESTYPE sy-vline 
WA_CIFRES30X_STR-EXT_LOCNO sy-vline 
WA_CIFRES30X_STR-LOCTYPE sy-vline 
WA_CIFRES30X_STR-CALENDAR sy-vline 
WA_CIFRES30X_STR-TYPE sy-vline 
WA_CIFRES30X_STR-DIMENSION sy-vline 
WA_CIFRES30X_STR-DIM_BUCKET sy-vline 
WA_CIFRES30X_STR-BEGTI sy-vline 
WA_CIFRES30X_STR-ENDTI sy-vline 
WA_CIFRES30X_STR-BREAKTIME sy-vline 
WA_CIFRES30X_STR-BUFTIME sy-vline 
WA_CIFRES30X_STR-BUFTIMEU sy-vline 
WA_CIFRES30X_STR-BUFTIMEUI sy-vline 
WA_CIFRES30X_STR-NOINDIVRES sy-vline 
WA_CIFRES30X_STR-NOINDIVRSU sy-vline 
WA_CIFRES30X_STR-NOINDUSIO sy-vline 
WA_CIFRES30X_STR-INDIVCAP sy-vline 
WA_CIFRES30X_STR-UTILIZATIO sy-vline 
WA_CIFRES30X_STR-DEF_BUCKET sy-vline 
WA_CIFRES30X_STR-CAP_A sy-vline 
WA_CIFRES30X_STR-CAP_A_UNIT sy-vline 
WA_CIFRES30X_STR-CAP_A_UISO sy-vline 
WA_CIFRES30X_STR-NUM_PERIOS sy-vline 
WA_CIFRES30X_STR-PERIOD sy-vline 
WA_CIFRES30X_STR-PLANNER sy-vline 
WA_CIFRES30X_STR-VERS_ACT sy-vline 
WA_CIFRES30X_STR-FIN_PLAN sy-vline 
WA_CIFRES30X_STR-BOTTNECK sy-vline 
WA_CIFRES30X_STR-MIN_GAPS sy-vline 
WA_CIFRES30X_STR-OVERLOAD sy-vline 
WA_CIFRES30X_STR-UNDERLOAD sy-vline 
WA_CIFRES30X_STR-OLBUCK sy-vline 
WA_CIFRES30X_STR-STARTGRID sy-vline 
WA_CIFRES30X_STR-MIN_OL sy-vline 
WA_CIFRES30X_STR-MIN_OLUN sy-vline 
WA_CIFRES30X_STR-MIN_OLAPUI sy-vline 
WA_CIFRES30X_STR-LOSSFAC sy-vline 
WA_CIFRES30X_STR-REFPROC sy-vline 
WA_CIFRES30X_STR-REFPROCU sy-vline 
WA_CIFRES30X_STR-REFPROCUI sy-vline 
WA_CIFRES30X_STR-TZONE sy-vline 
WA_CIFRES30X_STR-TAKTS sy-vline 
WA_CIFRES30X_STR-BRQUAN sy-vline 
WA_CIFRES30X_STR-BRQUANU sy-vline 
WA_CIFRES30X_STR-BRQUANUI sy-vline 
WA_CIFRES30X_STR-BRTIME sy-vline 
WA_CIFRES30X_STR-BRTIMEU sy-vline 
WA_CIFRES30X_STR-BRTIMEUI sy-vline 
WA_CIFRES30X_STR-RITT_FLG sy-vline 
WA_CIFRES30X_STR-MDRMODEL sy-vline 
WA_CIFRES30X_STR-SORT sy-vline 
WA_CIFRES30X_STR-SYNC_START sy-vline 
WA_CIFRES30X_STR-SYNC_COMP sy-vline 
WA_CIFRES30X_STR-MATRIX_N sy-vline 
WA_CIFRES30X_STR-REF_RES sy-vline 
WA_CIFRES30X_STR-TRATY sy-vline 
WA_CIFRES30X_STR-DAYS_MINUS sy-vline 
WA_CIFRES30X_STR-DAYS_PLUS sy-vline 
WA_CIFRES30X_STR-STOR_CAP sy-vline 
WA_CIFRES30X_STR-MIN_STOR sy-vline 
WA_CIFRES30X_STR-MAX_STOR sy-vline 
WA_CIFRES30X_STR-MIN_REPL sy-vline 
WA_CIFRES30X_STR-STOR_UNIT sy-vline 
WA_CIFRES30X_STR-STOR_UNITI sy-vline 
WA_CIFRES30X_STR-R3KAPID sy-vline 
WA_CIFRES30X_STR-R3ARBID sy-vline      INTO ld_text SEPARATED BY SPACE.

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