ABAP Select data from SAP table IFMWRTTP 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 IFMWRTTP 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 IFMWRTTP. 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 IFMWRTTP 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_IFMWRTTP TYPE STANDARD TABLE OF IFMWRTTP,
      WA_IFMWRTTP TYPE IFMWRTTP,
      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: <IFMWRTTP> TYPE IFMWRTTP.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM IFMWRTTP
*  INTO TABLE @DATA(IT_IFMWRTTP2).
*--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_IFMWRTTP INDEX 1 INTO DATA(WA_IFMWRTTP2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<IFMWRTTP>-FWAER = 1.
<IFMWRTTP>-TWAER = 1.
<IFMWRTTP>-BWAER = 1.
<IFMWRTTP>-FPREQ = 1.
<IFMWRTTP>-FPCHO = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_IFMWRTTP-FGRGI, sy-vline,
  WA_IFMWRTTP-FUSER, sy-vline,
  WA_IFMWRTTP-FINVC, sy-vline,
  WA_IFMWRTTP-FBKCL, sy-vline,
  WA_IFMWRTTP-FCSCL, sy-vline,
  WA_IFMWRTTP-FPMNT, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_IFMWRTTP 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_IFMWRTTP 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_IFMWRTTP INTO WA_IFMWRTTP.


*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_IFMWRTTP_STR, 
FWAER TYPE STRING,
TWAER TYPE STRING,
BWAER TYPE STRING,
FPREQ TYPE STRING,
FPCHO TYPE STRING,
FGRGI TYPE STRING,
FUSER TYPE STRING,
FINVC TYPE STRING,
FBKCL TYPE STRING,
FCSCL TYPE STRING,
FPMNT TYPE STRING,
FDPRQ TYPE STRING,
FDPBC TYPE STRING,
FDPCC TYPE STRING,
FDPMT TYPE STRING,
FCBCL TYPE STRING,
FFNDR TYPE STRING,
FGRTR TYPE STRING,
FOSDC TYPE STRING,
FODOC TYPE STRING,
FCBUD TYPE STRING,
BPREQ TYPE STRING,
BPCHO TYPE STRING,
BGRGI TYPE STRING,
BUSER TYPE STRING,
BINVC TYPE STRING,
BBKCL TYPE STRING,
BCSCL TYPE STRING,
BPMNT TYPE STRING,
BDPRQ TYPE STRING,
BDPBC TYPE STRING,
BDPCC TYPE STRING,
BDPMT TYPE STRING,
BCBCL TYPE STRING,
BFNDR TYPE STRING,
BGRTR TYPE STRING,
BOSDC TYPE STRING,
BODOC TYPE STRING,
BCBUD TYPE STRING,
TPREQ TYPE STRING,
TPCHO TYPE STRING,
TGRGI TYPE STRING,
TUSER TYPE STRING,
TINVC TYPE STRING,
TBKCL TYPE STRING,
TCSCL TYPE STRING,
TPMNT TYPE STRING,
TDPRQ TYPE STRING,
TDPBC TYPE STRING,
TDPCC TYPE STRING,
TDPMT TYPE STRING,
TCBCL TYPE STRING,
TFNDR TYPE STRING,
TGRTR TYPE STRING,
TOSDC TYPE STRING,
TODOC TYPE STRING,
TCBUD TYPE STRING,END OF T_EKKO_STR.
DATA: WA_IFMWRTTP_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_IFMWRTTP_STR-FWAER sy-vline 
WA_IFMWRTTP_STR-TWAER sy-vline 
WA_IFMWRTTP_STR-BWAER sy-vline 
WA_IFMWRTTP_STR-FPREQ sy-vline 
WA_IFMWRTTP_STR-FPCHO sy-vline 
WA_IFMWRTTP_STR-FGRGI sy-vline 
WA_IFMWRTTP_STR-FUSER sy-vline 
WA_IFMWRTTP_STR-FINVC sy-vline 
WA_IFMWRTTP_STR-FBKCL sy-vline 
WA_IFMWRTTP_STR-FCSCL sy-vline 
WA_IFMWRTTP_STR-FPMNT sy-vline 
WA_IFMWRTTP_STR-FDPRQ sy-vline 
WA_IFMWRTTP_STR-FDPBC sy-vline 
WA_IFMWRTTP_STR-FDPCC sy-vline 
WA_IFMWRTTP_STR-FDPMT sy-vline 
WA_IFMWRTTP_STR-FCBCL sy-vline 
WA_IFMWRTTP_STR-FFNDR sy-vline 
WA_IFMWRTTP_STR-FGRTR sy-vline 
WA_IFMWRTTP_STR-FOSDC sy-vline 
WA_IFMWRTTP_STR-FODOC sy-vline 
WA_IFMWRTTP_STR-FCBUD sy-vline 
WA_IFMWRTTP_STR-BPREQ sy-vline 
WA_IFMWRTTP_STR-BPCHO sy-vline 
WA_IFMWRTTP_STR-BGRGI sy-vline 
WA_IFMWRTTP_STR-BUSER sy-vline 
WA_IFMWRTTP_STR-BINVC sy-vline 
WA_IFMWRTTP_STR-BBKCL sy-vline 
WA_IFMWRTTP_STR-BCSCL sy-vline 
WA_IFMWRTTP_STR-BPMNT sy-vline 
WA_IFMWRTTP_STR-BDPRQ sy-vline 
WA_IFMWRTTP_STR-BDPBC sy-vline 
WA_IFMWRTTP_STR-BDPCC sy-vline 
WA_IFMWRTTP_STR-BDPMT sy-vline 
WA_IFMWRTTP_STR-BCBCL sy-vline 
WA_IFMWRTTP_STR-BFNDR sy-vline 
WA_IFMWRTTP_STR-BGRTR sy-vline 
WA_IFMWRTTP_STR-BOSDC sy-vline 
WA_IFMWRTTP_STR-BODOC sy-vline 
WA_IFMWRTTP_STR-BCBUD sy-vline 
WA_IFMWRTTP_STR-TPREQ sy-vline 
WA_IFMWRTTP_STR-TPCHO sy-vline 
WA_IFMWRTTP_STR-TGRGI sy-vline 
WA_IFMWRTTP_STR-TUSER sy-vline 
WA_IFMWRTTP_STR-TINVC sy-vline 
WA_IFMWRTTP_STR-TBKCL sy-vline 
WA_IFMWRTTP_STR-TCSCL sy-vline 
WA_IFMWRTTP_STR-TPMNT sy-vline 
WA_IFMWRTTP_STR-TDPRQ sy-vline 
WA_IFMWRTTP_STR-TDPBC sy-vline 
WA_IFMWRTTP_STR-TDPCC sy-vline 
WA_IFMWRTTP_STR-TDPMT sy-vline 
WA_IFMWRTTP_STR-TCBCL sy-vline 
WA_IFMWRTTP_STR-TFNDR sy-vline 
WA_IFMWRTTP_STR-TGRTR sy-vline 
WA_IFMWRTTP_STR-TOSDC sy-vline 
WA_IFMWRTTP_STR-TODOC sy-vline 
WA_IFMWRTTP_STR-TCBUD sy-vline      INTO ld_text SEPARATED BY SPACE.

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