ABAP Select data from SAP table FSCYT_S_JA 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 FSCYT_S_JA 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 FSCYT_S_JA. 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 FSCYT_S_JA 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_FSCYT_S_JA TYPE STANDARD TABLE OF FSCYT_S_JA,
      WA_FSCYT_S_JA TYPE FSCYT_S_JA,
      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: <FSCYT_S_JA> TYPE FSCYT_S_JA.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM FSCYT_S_JA
*  INTO TABLE @DATA(IT_FSCYT_S_JA2).
*--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_FSCYT_S_JA INDEX 1 INTO DATA(WA_FSCYT_S_JA2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<FSCYT_S_JA>-MANDANT = 1.
<FSCYT_S_JA>-CYTID = 1.
<FSCYT_S_JA>-STPFL = 1.
<FSCYT_S_JA>-BANKL = 1.
<FSCYT_S_JA>-BANKS = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_FSCYT_S_JA-ACEXT, sy-vline,
  WA_FSCYT_S_JA-CURRENCY, sy-vline,
  WA_FSCYT_S_JA-DIFCHR, sy-vline,
  WA_FSCYT_S_JA-IBAN, sy-vline,
  WA_FSCYT_S_JA-SWAERS, sy-vline,
  WA_FSCYT_S_JA-SJAHR, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_FSCYT_S_JA 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_FSCYT_S_JA 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_FSCYT_S_JA INTO WA_FSCYT_S_JA.


*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 ALPHA, internal->external for field STPFL
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_FSCYT_S_JA-STPFL
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FSCYT_S_JA-STPFL.
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_FSCYT_S_JA_STR, 
MANDANT TYPE STRING,
CYTID TYPE STRING,
STPFL TYPE STRING,
BANKL TYPE STRING,
BANKS TYPE STRING,
ACEXT TYPE STRING,
CURRENCY TYPE STRING,
DIFCHR TYPE STRING,
IBAN TYPE STRING,
SWAERS TYPE STRING,
SJAHR TYPE STRING,
VERFA TYPE STRING,
VERBG TYPE STRING,
TAX TYPE STRING,
ACCNT TYPE STRING,
FABLZ TYPE STRING,
FALFD TYPE STRING,
FASCOR TYPE STRING,
TAXSUM1 TYPE STRING,
TAXSUM2 TYPE STRING,
TAXSUM3 TYPE STRING,
TAXSUM4 TYPE STRING,
TAXSUM5 TYPE STRING,
TAXSUM6 TYPE STRING,
TAXSUM7 TYPE STRING,
TAXSUM8 TYPE STRING,
TAXSUM9 TYPE STRING,
TAXSUM10 TYPE STRING,
TAXSUM11 TYPE STRING,
TAXSUM12 TYPE STRING,
VERFA1 TYPE STRING,
VERFA2 TYPE STRING,
VSTERT1 TYPE STRING,
VSTERT2 TYPE STRING,
VSTERT3 TYPE STRING,
VSTERT4 TYPE STRING,
AQST TYPE STRING,
AQST_VER TYPE STRING,
AQST_VER2 TYPE STRING,
AQST_NICHT TYPE STRING,
EVV TYPE STRING,
VERNB1 TYPE STRING,
VERNB2 TYPE STRING,
VERNB3 TYPE STRING,
VERNB4 TYPE STRING,
VERNB5 TYPE STRING,END OF T_EKKO_STR.
DATA: WA_FSCYT_S_JA_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_FSCYT_S_JA_STR-MANDANT sy-vline 
WA_FSCYT_S_JA_STR-CYTID sy-vline 
WA_FSCYT_S_JA_STR-STPFL sy-vline 
WA_FSCYT_S_JA_STR-BANKL sy-vline 
WA_FSCYT_S_JA_STR-BANKS sy-vline 
WA_FSCYT_S_JA_STR-ACEXT sy-vline 
WA_FSCYT_S_JA_STR-CURRENCY sy-vline 
WA_FSCYT_S_JA_STR-DIFCHR sy-vline 
WA_FSCYT_S_JA_STR-IBAN sy-vline 
WA_FSCYT_S_JA_STR-SWAERS sy-vline 
WA_FSCYT_S_JA_STR-SJAHR sy-vline 
WA_FSCYT_S_JA_STR-VERFA sy-vline 
WA_FSCYT_S_JA_STR-VERBG sy-vline 
WA_FSCYT_S_JA_STR-TAX sy-vline 
WA_FSCYT_S_JA_STR-ACCNT sy-vline 
WA_FSCYT_S_JA_STR-FABLZ sy-vline 
WA_FSCYT_S_JA_STR-FALFD sy-vline 
WA_FSCYT_S_JA_STR-FASCOR sy-vline 
WA_FSCYT_S_JA_STR-TAXSUM1 sy-vline 
WA_FSCYT_S_JA_STR-TAXSUM2 sy-vline 
WA_FSCYT_S_JA_STR-TAXSUM3 sy-vline 
WA_FSCYT_S_JA_STR-TAXSUM4 sy-vline 
WA_FSCYT_S_JA_STR-TAXSUM5 sy-vline 
WA_FSCYT_S_JA_STR-TAXSUM6 sy-vline 
WA_FSCYT_S_JA_STR-TAXSUM7 sy-vline 
WA_FSCYT_S_JA_STR-TAXSUM8 sy-vline 
WA_FSCYT_S_JA_STR-TAXSUM9 sy-vline 
WA_FSCYT_S_JA_STR-TAXSUM10 sy-vline 
WA_FSCYT_S_JA_STR-TAXSUM11 sy-vline 
WA_FSCYT_S_JA_STR-TAXSUM12 sy-vline 
WA_FSCYT_S_JA_STR-VERFA1 sy-vline 
WA_FSCYT_S_JA_STR-VERFA2 sy-vline 
WA_FSCYT_S_JA_STR-VSTERT1 sy-vline 
WA_FSCYT_S_JA_STR-VSTERT2 sy-vline 
WA_FSCYT_S_JA_STR-VSTERT3 sy-vline 
WA_FSCYT_S_JA_STR-VSTERT4 sy-vline 
WA_FSCYT_S_JA_STR-AQST sy-vline 
WA_FSCYT_S_JA_STR-AQST_VER sy-vline 
WA_FSCYT_S_JA_STR-AQST_VER2 sy-vline 
WA_FSCYT_S_JA_STR-AQST_NICHT sy-vline 
WA_FSCYT_S_JA_STR-EVV sy-vline 
WA_FSCYT_S_JA_STR-VERNB1 sy-vline 
WA_FSCYT_S_JA_STR-VERNB2 sy-vline 
WA_FSCYT_S_JA_STR-VERNB3 sy-vline 
WA_FSCYT_S_JA_STR-VERNB4 sy-vline 
WA_FSCYT_S_JA_STR-VERNB5 sy-vline      INTO ld_text SEPARATED BY SPACE.

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