ABAP Select data from SAP table FIWTIN_QCHALLAN 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 FIWTIN_QCHALLAN 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 FIWTIN_QCHALLAN. 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 FIWTIN_QCHALLAN 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_FIWTIN_QCHALLAN TYPE STANDARD TABLE OF FIWTIN_QCHALLAN,
      WA_FIWTIN_QCHALLAN TYPE FIWTIN_QCHALLAN,
      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: <FIWTIN_QCHALLAN> TYPE FIWTIN_QCHALLAN.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM FIWTIN_QCHALLAN
*  INTO TABLE @DATA(IT_FIWTIN_QCHALLAN2).
*--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_FIWTIN_QCHALLAN INDEX 1 INTO DATA(WA_FIWTIN_QCHALLAN2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<FIWTIN_QCHALLAN>-RECTYPE = 1.
<FIWTIN_QCHALLAN>-BATCHNO = 1.
<FIWTIN_QCHALLAN>-RECNUM = 1.
<FIWTIN_QCHALLAN>-CNTDEDREC = 1.
<FIWTIN_QCHALLAN>-CHLIND = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_FIWTIN_QCHALLAN-BNKCHLNNO, sy-vline,
  WA_FIWTIN_QCHALLAN-TRNSVOUCHNUM, sy-vline,
  WA_FIWTIN_QCHALLAN-BNKBRCHCD, sy-vline,
  WA_FIWTIN_QCHALLAN-CHLNDT, sy-vline,
  WA_FIWTIN_QCHALLAN-SECTIONCD, sy-vline,
  WA_FIWTIN_QCHALLAN-OLTASTDS, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_FIWTIN_QCHALLAN 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_FIWTIN_QCHALLAN 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_FIWTIN_QCHALLAN INTO WA_FIWTIN_QCHALLAN.


*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 AU152, internal->external for field OLTASTDS
CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT'
  EXPORTING
    input =                      WA_FIWTIN_QCHALLAN-OLTASTDS
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FIWTIN_QCHALLAN-OLTASTDS.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU152, internal->external for field OLTASURC
CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT'
  EXPORTING
    input =                      WA_FIWTIN_QCHALLAN-OLTASURC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FIWTIN_QCHALLAN-OLTASURC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU152, internal->external for field OLTASCESS
CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT'
  EXPORTING
    input =                      WA_FIWTIN_QCHALLAN-OLTASCESS
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FIWTIN_QCHALLAN-OLTASCESS.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU152, internal->external for field OLTASINT
CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT'
  EXPORTING
    input =                      WA_FIWTIN_QCHALLAN-OLTASINT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FIWTIN_QCHALLAN-OLTASINT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU152, internal->external for field OLTASOTH
CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT'
  EXPORTING
    input =                      WA_FIWTIN_QCHALLAN-OLTASOTH
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FIWTIN_QCHALLAN-OLTASOTH.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU152, internal->external for field TOTDEPAMT
CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT'
  EXPORTING
    input =                      WA_FIWTIN_QCHALLAN-TOTDEPAMT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FIWTIN_QCHALLAN-TOTDEPAMT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU152, internal->external for field TOTTAXDEP
CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT'
  EXPORTING
    input =                      WA_FIWTIN_QCHALLAN-TOTTAXDEP
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FIWTIN_QCHALLAN-TOTTAXDEP.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU152, internal->external for field SUMINCTAX
CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT'
  EXPORTING
    input =                      WA_FIWTIN_QCHALLAN-SUMINCTAX
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FIWTIN_QCHALLAN-SUMINCTAX.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU152, internal->external for field SUMSURC
CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT'
  EXPORTING
    input =                      WA_FIWTIN_QCHALLAN-SUMSURC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FIWTIN_QCHALLAN-SUMSURC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU152, internal->external for field SUMCESS
CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT'
  EXPORTING
    input =                      WA_FIWTIN_QCHALLAN-SUMCESS
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FIWTIN_QCHALLAN-SUMCESS.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU152, internal->external for field AMTDED
CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT'
  EXPORTING
    input =                      WA_FIWTIN_QCHALLAN-AMTDED
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FIWTIN_QCHALLAN-AMTDED.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU152, internal->external for field AMTINT
CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT'
  EXPORTING
    input =                      WA_FIWTIN_QCHALLAN-AMTINT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FIWTIN_QCHALLAN-AMTINT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU152, internal->external for field AMTOTH
CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT'
  EXPORTING
    input =                      WA_FIWTIN_QCHALLAN-AMTOTH
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FIWTIN_QCHALLAN-AMTOTH.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU152, internal->external for field FEE
CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT'
  EXPORTING
    input =                      WA_FIWTIN_QCHALLAN-FEE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FIWTIN_QCHALLAN-FEE.
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_FIWTIN_QCHALLAN_STR, 
RECTYPE TYPE STRING,
BATCHNO TYPE STRING,
RECNUM TYPE STRING,
CNTDEDREC TYPE STRING,
CHLIND TYPE STRING,
BNKCHLNNO TYPE STRING,
TRNSVOUCHNUM TYPE STRING,
BNKBRCHCD TYPE STRING,
CHLNDT TYPE STRING,
SECTIONCD TYPE STRING,
OLTASTDS TYPE STRING,
OLTASURC TYPE STRING,
OLTASCESS TYPE STRING,
OLTASINT TYPE STRING,
OLTASOTH TYPE STRING,
TOTDEPAMT TYPE STRING,
TOTTAXDEP TYPE STRING,
SUMINCTAX TYPE STRING,
SUMSURC TYPE STRING,
SUMCESS TYPE STRING,
AMTDED TYPE STRING,
AMTINT TYPE STRING,
AMTOTH TYPE STRING,
CHEQUENO TYPE STRING,
BOOKENTRY TYPE STRING,
REMARKS TYPE STRING,
FEE TYPE STRING,
MINORCHALLAN TYPE STRING,
WAERS TYPE STRING,END OF T_EKKO_STR.
DATA: WA_FIWTIN_QCHALLAN_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_FIWTIN_QCHALLAN_STR-RECTYPE sy-vline 
WA_FIWTIN_QCHALLAN_STR-BATCHNO sy-vline 
WA_FIWTIN_QCHALLAN_STR-RECNUM sy-vline 
WA_FIWTIN_QCHALLAN_STR-CNTDEDREC sy-vline 
WA_FIWTIN_QCHALLAN_STR-CHLIND sy-vline 
WA_FIWTIN_QCHALLAN_STR-BNKCHLNNO sy-vline 
WA_FIWTIN_QCHALLAN_STR-TRNSVOUCHNUM sy-vline 
WA_FIWTIN_QCHALLAN_STR-BNKBRCHCD sy-vline 
WA_FIWTIN_QCHALLAN_STR-CHLNDT sy-vline 
WA_FIWTIN_QCHALLAN_STR-SECTIONCD sy-vline 
WA_FIWTIN_QCHALLAN_STR-OLTASTDS sy-vline 
WA_FIWTIN_QCHALLAN_STR-OLTASURC sy-vline 
WA_FIWTIN_QCHALLAN_STR-OLTASCESS sy-vline 
WA_FIWTIN_QCHALLAN_STR-OLTASINT sy-vline 
WA_FIWTIN_QCHALLAN_STR-OLTASOTH sy-vline 
WA_FIWTIN_QCHALLAN_STR-TOTDEPAMT sy-vline 
WA_FIWTIN_QCHALLAN_STR-TOTTAXDEP sy-vline 
WA_FIWTIN_QCHALLAN_STR-SUMINCTAX sy-vline 
WA_FIWTIN_QCHALLAN_STR-SUMSURC sy-vline 
WA_FIWTIN_QCHALLAN_STR-SUMCESS sy-vline 
WA_FIWTIN_QCHALLAN_STR-AMTDED sy-vline 
WA_FIWTIN_QCHALLAN_STR-AMTINT sy-vline 
WA_FIWTIN_QCHALLAN_STR-AMTOTH sy-vline 
WA_FIWTIN_QCHALLAN_STR-CHEQUENO sy-vline 
WA_FIWTIN_QCHALLAN_STR-BOOKENTRY sy-vline 
WA_FIWTIN_QCHALLAN_STR-REMARKS sy-vline 
WA_FIWTIN_QCHALLAN_STR-FEE sy-vline 
WA_FIWTIN_QCHALLAN_STR-MINORCHALLAN sy-vline 
WA_FIWTIN_QCHALLAN_STR-WAERS sy-vline      INTO ld_text SEPARATED BY SPACE.

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