ABAP Select data from SAP table FIRO_FS_S_SEL_PAR 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 FIRO_FS_S_SEL_PAR 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 FIRO_FS_S_SEL_PAR. 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 FIRO_FS_S_SEL_PAR 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_FIRO_FS_S_SEL_PAR TYPE STANDARD TABLE OF FIRO_FS_S_SEL_PAR,
      WA_FIRO_FS_S_SEL_PAR TYPE FIRO_FS_S_SEL_PAR,
      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: <FIRO_FS_S_SEL_PAR> TYPE FIRO_FS_S_SEL_PAR.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM FIRO_FS_S_SEL_PAR
*  INTO TABLE @DATA(IT_FIRO_FS_S_SEL_PAR2).
*--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_FIRO_FS_S_SEL_PAR INDEX 1 INTO DATA(WA_FIRO_FS_S_SEL_PAR2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<FIRO_FS_S_SEL_PAR>-CHARTOFACCT = 1.
<FIRO_FS_S_SEL_PAR>-REPORTINGYEAR = 1.
<FIRO_FS_S_SEL_PAR>-COMPARISONYEAR = 1.
<FIRO_FS_S_SEL_PAR>-CURRENCYTYPE = 1.
<FIRO_FS_S_SEL_PAR>-BUSINESSAREA = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_FIRO_FS_S_SEL_PAR-LEDGER, sy-vline,
  WA_FIRO_FS_S_SEL_PAR-SCALING, sy-vline,
  WA_FIRO_FS_S_SEL_PAR-FSV1, sy-vline,
  WA_FIRO_FS_S_SEL_PAR-FSV2, sy-vline,
  WA_FIRO_FS_S_SEL_PAR-SIGNDISPLAY, sy-vline,
  WA_FIRO_FS_S_SEL_PAR-ALTERNATIVPERIODSEL, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_FIRO_FS_S_SEL_PAR 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_FIRO_FS_S_SEL_PAR 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_FIRO_FS_S_SEL_PAR INTO WA_FIRO_FS_S_SEL_PAR.


*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 GJAHR, internal->external for field REPORTINGYEAR
CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT'
  EXPORTING
    input =                      WA_FIRO_FS_S_SEL_PAR-REPORTINGYEAR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FIRO_FS_S_SEL_PAR-REPORTINGYEAR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit GJAHR, internal->external for field COMPARISONYEAR
CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT'
  EXPORTING
    input =                      WA_FIRO_FS_S_SEL_PAR-COMPARISONYEAR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FIRO_FS_S_SEL_PAR-COMPARISONYEAR.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit ISOLA, internal->external for field FSV1LANGU
CALL FUNCTION 'CONVERSION_EXIT_ISOLA_OUTPUT'
  EXPORTING
    input =                      WA_FIRO_FS_S_SEL_PAR-FSV1LANGU
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FIRO_FS_S_SEL_PAR-FSV1LANGU.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ISOLA, internal->external for field FSV2LANGU
CALL FUNCTION 'CONVERSION_EXIT_ISOLA_OUTPUT'
  EXPORTING
    input =                      WA_FIRO_FS_S_SEL_PAR-FSV2LANGU
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FIRO_FS_S_SEL_PAR-FSV2LANGU.
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_FIRO_FS_S_SEL_PAR_STR, 
CHARTOFACCT TYPE STRING,
REPORTINGYEAR TYPE STRING,
COMPARISONYEAR TYPE STRING,
CURRENCYTYPE TYPE STRING,
BUSINESSAREA TYPE STRING,
LEDGER TYPE STRING,
SCALING TYPE STRING,
FSV1 TYPE STRING,
FSV2 TYPE STRING,
SIGNDISPLAY TYPE STRING,
ALTERNATIVPERIODSEL TYPE STRING,
ITEMWITHZEROBAL TYPE STRING,
CUMULATE TYPE STRING,
EXCLDOCTYPE TYPE STRING,
NOTEXCLACCT TYPE STRING,
EMPLCURRY TYPE STRING,
EMPLPREVY TYPE STRING,
AVGCURRY TYPE STRING,
AVGPREVY TYPE STRING,
LOSSUNITS TYPE STRING,
PRFTUNITS TYPE STRING,
NORECDUN TYPE STRING,
FSVTYPE TYPE STRING,
FSV1LANGU TYPE STRING,
FSV2LANGU TYPE STRING,
CALREPORTINGPERIOD TYPE STRING,
COMPARISONCALPERIOD TYPE STRING,
COMPANYCODE TYPE STRING,
CODEOFFUNCTION TYPE STRING,
NUMEADMIN TYPE STRING,
NUME_INTOCMIT TYPE STRING,
REGISTERNUM TYPE STRING,
BIGENTITY TYPE STRING,
KEYFIGURESET TYPE STRING,
DEPRECIATIONAREA TYPE STRING,
CURRENCYROLE TYPE STRING,
FISCALPERIOD_TO TYPE STRING,
ASSET_CLASS TYPE STRING,
MASTERFIXEDASSET TYPE STRING,
FIXEDASSET TYPE STRING,
FIXEDASSETGROUP TYPE STRING,
ASSETCOSTCENTER TYPE STRING,
ASSETBUSINESSAREA TYPE STRING,
DEPRECIATIONKEY TYPE STRING,
ASSETCAPITALIZATIONDATE TYPE STRING,
ASSETLOCATION TYPE STRING,
ALTERNATIVEACCOUNTNUMBER TYPE STRING,
CURRENCY TYPE STRING,
SEMESTERREPORT TYPE STRING,
SRF_REP_CAT_ID TYPE STRING,
SRF_REPORTING_ENTITY TYPE STRING,
SRF_REPORT_RUN_ID TYPE STRING,END OF T_EKKO_STR.
DATA: WA_FIRO_FS_S_SEL_PAR_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_FIRO_FS_S_SEL_PAR_STR-CHARTOFACCT sy-vline 
WA_FIRO_FS_S_SEL_PAR_STR-REPORTINGYEAR sy-vline 
WA_FIRO_FS_S_SEL_PAR_STR-COMPARISONYEAR sy-vline 
WA_FIRO_FS_S_SEL_PAR_STR-CURRENCYTYPE sy-vline 
WA_FIRO_FS_S_SEL_PAR_STR-BUSINESSAREA sy-vline 
WA_FIRO_FS_S_SEL_PAR_STR-LEDGER sy-vline 
WA_FIRO_FS_S_SEL_PAR_STR-SCALING sy-vline 
WA_FIRO_FS_S_SEL_PAR_STR-FSV1 sy-vline 
WA_FIRO_FS_S_SEL_PAR_STR-FSV2 sy-vline 
WA_FIRO_FS_S_SEL_PAR_STR-SIGNDISPLAY sy-vline 
WA_FIRO_FS_S_SEL_PAR_STR-ALTERNATIVPERIODSEL sy-vline 
WA_FIRO_FS_S_SEL_PAR_STR-ITEMWITHZEROBAL sy-vline 
WA_FIRO_FS_S_SEL_PAR_STR-CUMULATE sy-vline 
WA_FIRO_FS_S_SEL_PAR_STR-EXCLDOCTYPE sy-vline 
WA_FIRO_FS_S_SEL_PAR_STR-NOTEXCLACCT sy-vline 
WA_FIRO_FS_S_SEL_PAR_STR-EMPLCURRY sy-vline 
WA_FIRO_FS_S_SEL_PAR_STR-EMPLPREVY sy-vline 
WA_FIRO_FS_S_SEL_PAR_STR-AVGCURRY sy-vline 
WA_FIRO_FS_S_SEL_PAR_STR-AVGPREVY sy-vline 
WA_FIRO_FS_S_SEL_PAR_STR-LOSSUNITS sy-vline 
WA_FIRO_FS_S_SEL_PAR_STR-PRFTUNITS sy-vline 
WA_FIRO_FS_S_SEL_PAR_STR-NORECDUN sy-vline 
WA_FIRO_FS_S_SEL_PAR_STR-FSVTYPE sy-vline 
WA_FIRO_FS_S_SEL_PAR_STR-FSV1LANGU sy-vline 
WA_FIRO_FS_S_SEL_PAR_STR-FSV2LANGU sy-vline 
WA_FIRO_FS_S_SEL_PAR_STR-CALREPORTINGPERIOD sy-vline 
WA_FIRO_FS_S_SEL_PAR_STR-COMPARISONCALPERIOD sy-vline 
WA_FIRO_FS_S_SEL_PAR_STR-COMPANYCODE sy-vline 
WA_FIRO_FS_S_SEL_PAR_STR-CODEOFFUNCTION sy-vline 
WA_FIRO_FS_S_SEL_PAR_STR-NUMEADMIN sy-vline 
WA_FIRO_FS_S_SEL_PAR_STR-NUME_INTOCMIT sy-vline 
WA_FIRO_FS_S_SEL_PAR_STR-REGISTERNUM sy-vline 
WA_FIRO_FS_S_SEL_PAR_STR-BIGENTITY sy-vline 
WA_FIRO_FS_S_SEL_PAR_STR-KEYFIGURESET sy-vline 
WA_FIRO_FS_S_SEL_PAR_STR-DEPRECIATIONAREA sy-vline 
WA_FIRO_FS_S_SEL_PAR_STR-CURRENCYROLE sy-vline 
WA_FIRO_FS_S_SEL_PAR_STR-FISCALPERIOD_TO sy-vline 
WA_FIRO_FS_S_SEL_PAR_STR-ASSET_CLASS sy-vline 
WA_FIRO_FS_S_SEL_PAR_STR-MASTERFIXEDASSET sy-vline 
WA_FIRO_FS_S_SEL_PAR_STR-FIXEDASSET sy-vline 
WA_FIRO_FS_S_SEL_PAR_STR-FIXEDASSETGROUP sy-vline 
WA_FIRO_FS_S_SEL_PAR_STR-ASSETCOSTCENTER sy-vline 
WA_FIRO_FS_S_SEL_PAR_STR-ASSETBUSINESSAREA sy-vline 
WA_FIRO_FS_S_SEL_PAR_STR-DEPRECIATIONKEY sy-vline 
WA_FIRO_FS_S_SEL_PAR_STR-ASSETCAPITALIZATIONDATE sy-vline 
WA_FIRO_FS_S_SEL_PAR_STR-ASSETLOCATION sy-vline 
WA_FIRO_FS_S_SEL_PAR_STR-ALTERNATIVEACCOUNTNUMBER sy-vline 
WA_FIRO_FS_S_SEL_PAR_STR-CURRENCY sy-vline 
WA_FIRO_FS_S_SEL_PAR_STR-SEMESTERREPORT sy-vline 
WA_FIRO_FS_S_SEL_PAR_STR-SRF_REP_CAT_ID sy-vline 
WA_FIRO_FS_S_SEL_PAR_STR-SRF_REPORTING_ENTITY sy-vline 
WA_FIRO_FS_S_SEL_PAR_STR-SRF_REPORT_RUN_ID sy-vline      INTO ld_text SEPARATED BY SPACE.

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