ABAP Select data from SAP table FMS200_OLD_CONTROL_DATA 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 FMS200_OLD_CONTROL_DATA 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 FMS200_OLD_CONTROL_DATA. 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 FMS200_OLD_CONTROL_DATA 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_FMS200_OLD_CONTROL_DATA TYPE STANDARD TABLE OF FMS200_OLD_CONTROL_DATA,
      WA_FMS200_OLD_CONTROL_DATA TYPE FMS200_OLD_CONTROL_DATA,
      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: <FMS200_OLD_CONTROL_DATA> TYPE FMS200_OLD_CONTROL_DATA.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM FMS200_OLD_CONTROL_DATA
*  INTO TABLE @DATA(IT_FMS200_OLD_CONTROL_DATA2).
*--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_FMS200_OLD_CONTROL_DATA INDEX 1 INTO DATA(WA_FMS200_OLD_CONTROL_DATA2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<FMS200_OLD_CONTROL_DATA>-WAERS_BKBUKRS = 1.
<FMS200_OLD_CONTROL_DATA>-MANDT = 1.
<FMS200_OLD_CONTROL_DATA>-FIKRS = 1.
<FMS200_OLD_CONTROL_DATA>-OBJNR = 1.
<FMS200_OLD_CONTROL_DATA>-FIPOE = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_FMS200_OLD_CONTROL_DATA-FIPOA, sy-vline,
  WA_FMS200_OLD_CONTROL_DATA-NZSTL, sy-vline,
  WA_FMS200_OLD_CONTROL_DATA-FCODE_PERIV_ACTV, sy-vline,
  WA_FMS200_OLD_CONTROL_DATA-FUND_BLANK, sy-vline,
  WA_FMS200_OLD_CONTROL_DATA-FUND_BLANK_TO, sy-vline,
  WA_FMS200_OLD_CONTROL_DATA-FUNCTION_BLANK, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_FMS200_OLD_CONTROL_DATA 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_FMS200_OLD_CONTROL_DATA 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_FMS200_OLD_CONTROL_DATA INTO WA_FMS200_OLD_CONTROL_DATA.


*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 FMCIS, internal->external for field FIPOE
CALL FUNCTION 'CONVERSION_EXIT_FMCIS_OUTPUT'
  EXPORTING
    input =                      WA_FMS200_OLD_CONTROL_DATA-FIPOE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FMS200_OLD_CONTROL_DATA-FIPOE.
WRITE:/ 'New Value:', ld_input.

*Conversion exit FMCIS, internal->external for field FIPOA
CALL FUNCTION 'CONVERSION_EXIT_FMCIS_OUTPUT'
  EXPORTING
    input =                      WA_FMS200_OLD_CONTROL_DATA-FIPOA
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FMS200_OLD_CONTROL_DATA-FIPOA.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

*Conversion exit FIPEX, internal->external for field FIPOE24
CALL FUNCTION 'CONVERSION_EXIT_FIPEX_OUTPUT'
  EXPORTING
    input =                      WA_FMS200_OLD_CONTROL_DATA-FIPOE24
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FMS200_OLD_CONTROL_DATA-FIPOE24.
WRITE:/ 'New Value:', ld_input.

*Conversion exit FIPEX, internal->external for field FIPOA24
CALL FUNCTION 'CONVERSION_EXIT_FIPEX_OUTPUT'
  EXPORTING
    input =                      WA_FMS200_OLD_CONTROL_DATA-FIPOA24
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FMS200_OLD_CONTROL_DATA-FIPOA24.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit FMCIL, internal->external for field FM_PAYM_FIPEX
CALL FUNCTION 'CONVERSION_EXIT_FMCIL_OUTPUT'
  EXPORTING
    input =                      WA_FMS200_OLD_CONTROL_DATA-FM_PAYM_FIPEX
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FMS200_OLD_CONTROL_DATA-FM_PAYM_FIPEX.
WRITE:/ 'New Value:', ld_input.

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

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

*Conversion exit ALPHA, internal->external for field FM_PAYTR_EDOC_1
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_FMS200_OLD_CONTROL_DATA-FM_PAYTR_EDOC_1
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FMS200_OLD_CONTROL_DATA-FM_PAYTR_EDOC_1.
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_FMS200_OLD_CONTROL_DATA_STR, 
WAERS_BKBUKRS TYPE STRING,
MANDT TYPE STRING,
FIKRS TYPE STRING,
OBJNR TYPE STRING,
FIPOE TYPE STRING,
FIPOA TYPE STRING,
NZSTL TYPE STRING,
FCODE_PERIV_ACTV TYPE STRING,
FUND_BLANK TYPE STRING,
FUND_BLANK_TO TYPE STRING,
FUNCTION_BLANK TYPE STRING,
FUNCT_BLANK_TO TYPE STRING,
MEASURE_BLANK TYPE STRING,
MEASURE_BLANK_TO TYPE STRING,
GRANT_BLANK TYPE STRING,
GRANT_BLANK_TO TYPE STRING,
F_OBSOLETE TYPE STRING,
WAERS TYPE STRING,
SPRAS TYPE STRING,
PERIV TYPE STRING,
FMAKT TYPE STRING,
DATBIS TYPE STRING,
CB_PROFIL TYPE STRING,
CA_PROFIL TYPE STRING,
CA_PERIV TYPE STRING,
CA_NUMKR TYPE STRING,
CA_AKTIV TYPE STRING,
CO_PERIV TYPE STRING,
SP_PROFIL TYPE STRING,
CA_STSMA TYPE STRING,
FMCARR TYPE STRING,
XFMCS TYPE STRING,
SEQUENCE TYPE STRING,
CO_TIMEDEP TYPE STRING,
YEARPOS TYPE STRING,
YEARCTR TYPE STRING,
FS_PROFIL TYPE STRING,
FS_PROFIL_AL TYPE STRING,
CO_INTEGRATION TYPE STRING,
CO_INT_START_HR TYPE STRING,
HRBA_PRECOM TYPE STRING,
HRBA_COMMIT TYPE STRING,
HRBA_BLOCK TYPE STRING,
VERSACT TYPE STRING,
AUGRP TYPE STRING,
ACTMODE TYPE STRING,
FSTVARE TYPE STRING,
DR_NUMKR TYPE STRING,
FIPOE24 TYPE STRING,
FIPOA24 TYPE STRING,
FAREA_ACTIVE TYPE STRING,
NO_HIERARCHY TYPE STRING,
BUDGETTYPE_RIB TYPE STRING,
BUDGETTYPE_COVER TYPE STRING,
BUDGETTYPE_FYC TYPE STRING,
BUDGETTYPE_HR TYPE STRING,
CREATE_VAD TYPE STRING,
HRBA_PRECOM_NEG TYPE STRING,
HRBA_COMMIT_NEG TYPE STRING,
BUD_PER_BLANK TYPE STRING,
BUD_PER_BLANK_TO TYPE STRING,
REV_CI_POST_OBJ TYPE STRING,
CO_PLAN_NO_CHECK TYPE STRING,
KENNZIFFER TYPE STRING,
XBGACTIVE TYPE STRING,
CIACC TYPE STRING,
COACC TYPE STRING,
FLG_PODATE TYPE STRING,
FLG_MWST TYPE STRING,
FLG_WERE TYPE STRING,
FLG_AUTO TYPE STRING,
FLG_INDATE TYPE STRING,
FLG_PADATE TYPE STRING,
FLG_PRDATE TYPE STRING,
FLG_WAKNT TYPE STRING,
FLG_BEKNT TYPE STRING,
FLG_PAYM TYPE STRING,
FLG_PAYM_RC TYPE STRING,
FLG_PAYM_RC_DEL TYPE STRING,
FLG_PAYM_RC_66 TYPE STRING,
FLG_CFPAY TYPE STRING,
FLG_SPLIT TYPE STRING,
FM_DP_DIT TYPE STRING,
CFLEV_OI TYPE STRING,
CFLEV_FI TYPE STRING,
FM_PAYM_FISTL TYPE STRING,
FM_PAYM_FIPEX TYPE STRING,
FM_MONTH_CLOSING TYPE STRING,
FM_YEAR_CLOSING TYPE STRING,
FM_PAYTR_PARAL TYPE STRING,
FM_PAYTR_DEST TYPE STRING,
FM_PAYTR_SDOC_1 TYPE STRING,
FM_PAYTR_EDOC_1 TYPE STRING,
FM_PAYTR_NPARA_1 TYPE STRING,
FM_PAYM_S200_NRC TYPE STRING,
FM_PAYM_S200_RC TYPE STRING,
PCACC TYPE STRING,
FM_USEREAL TYPE STRING,
XSEC_CURRENCY TYPE STRING,
FM_PAYM_CM_UPD TYPE STRING,
FLG_TAX_TO_GL TYPE STRING,
FLG_MULTIANNUAL TYPE STRING,
FLG_AK_PAYM_FICA TYPE STRING,
FLG_AK_PAYM_FIAR TYPE STRING,
FLG_FM_CURTP TYPE STRING,
FLG_SDOR_UPDATE TYPE STRING,
FM_PAYM_PUR TYPE STRING,
FM_DTACT_PUR TYPE STRING,
FM_PO_ADJ_INV TYPE STRING,
FM_USE_INV_COMPL TYPE STRING,
FM_NO_PO_REVAL TYPE STRING,
FM_PAYM_PUR_OFF TYPE STRING,
BUDUECYEAR TYPE STRING,
BUDUEFYEAR TYPE STRING,
PAY_GNJHR TYPE STRING,
COM_GNJHR TYPE STRING,
WFAPPROVED TYPE STRING,
VASFUND TYPE STRING,
VCOFUND TYPE STRING,
STATLDG TYPE STRING,
CVASFUND TYPE STRING,
CVCOFUND TYPE STRING,
PAYBUDGET TYPE STRING,
COMBUDGET TYPE STRING,
YEARDEPEND TYPE STRING,
PAYREDUCT TYPE STRING,
COMREDUCT TYPE STRING,
PAYDTFYEAR TYPE STRING,
COMDTFYEAR TYPE STRING,
PAYDTAYEAR TYPE STRING,
COMDTAYEAR TYPE STRING,
PAYAUTOCF TYPE STRING,
COMAUTOCF TYPE STRING,
PAYCCN TYPE STRING,
COMCCN TYPE STRING,
PAYVASFUND TYPE STRING,
COMVASFUND TYPE STRING,
ASSBDGT TYPE STRING,
RECONTROL TYPE STRING,
UNAME TYPE STRING,
PAYVCOFUND TYPE STRING,
COMVCOFUND TYPE STRING,
PAYAPPR TYPE STRING,
COMAPPR TYPE STRING,
WRTTP TYPE STRING,
WAERS_BK TYPE STRING,END OF T_EKKO_STR.
DATA: WA_FMS200_OLD_CONTROL_DATA_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_FMS200_OLD_CONTROL_DATA_STR-WAERS_BKBUKRS sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-MANDT sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-FIKRS sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-OBJNR sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-FIPOE sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-FIPOA sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-NZSTL sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-FCODE_PERIV_ACTV sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-FUND_BLANK sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-FUND_BLANK_TO sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-FUNCTION_BLANK sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-FUNCT_BLANK_TO sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-MEASURE_BLANK sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-MEASURE_BLANK_TO sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-GRANT_BLANK sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-GRANT_BLANK_TO sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-F_OBSOLETE sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-WAERS sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-SPRAS sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-PERIV sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-FMAKT sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-DATBIS sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-CB_PROFIL sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-CA_PROFIL sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-CA_PERIV sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-CA_NUMKR sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-CA_AKTIV sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-CO_PERIV sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-SP_PROFIL sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-CA_STSMA sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-FMCARR sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-XFMCS sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-SEQUENCE sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-CO_TIMEDEP sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-YEARPOS sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-YEARCTR sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-FS_PROFIL sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-FS_PROFIL_AL sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-CO_INTEGRATION sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-CO_INT_START_HR sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-HRBA_PRECOM sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-HRBA_COMMIT sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-HRBA_BLOCK sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-VERSACT sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-AUGRP sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-ACTMODE sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-FSTVARE sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-DR_NUMKR sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-FIPOE24 sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-FIPOA24 sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-FAREA_ACTIVE sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-NO_HIERARCHY sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-BUDGETTYPE_RIB sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-BUDGETTYPE_COVER sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-BUDGETTYPE_FYC sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-BUDGETTYPE_HR sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-CREATE_VAD sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-HRBA_PRECOM_NEG sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-HRBA_COMMIT_NEG sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-BUD_PER_BLANK sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-BUD_PER_BLANK_TO sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-REV_CI_POST_OBJ sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-CO_PLAN_NO_CHECK sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-KENNZIFFER sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-XBGACTIVE sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-CIACC sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-COACC sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-FLG_PODATE sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-FLG_MWST sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-FLG_WERE sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-FLG_AUTO sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-FLG_INDATE sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-FLG_PADATE sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-FLG_PRDATE sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-FLG_WAKNT sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-FLG_BEKNT sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-FLG_PAYM sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-FLG_PAYM_RC sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-FLG_PAYM_RC_DEL sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-FLG_PAYM_RC_66 sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-FLG_CFPAY sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-FLG_SPLIT sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-FM_DP_DIT sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-CFLEV_OI sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-CFLEV_FI sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-FM_PAYM_FISTL sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-FM_PAYM_FIPEX sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-FM_MONTH_CLOSING sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-FM_YEAR_CLOSING sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-FM_PAYTR_PARAL sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-FM_PAYTR_DEST sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-FM_PAYTR_SDOC_1 sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-FM_PAYTR_EDOC_1 sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-FM_PAYTR_NPARA_1 sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-FM_PAYM_S200_NRC sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-FM_PAYM_S200_RC sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-PCACC sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-FM_USEREAL sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-XSEC_CURRENCY sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-FM_PAYM_CM_UPD sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-FLG_TAX_TO_GL sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-FLG_MULTIANNUAL sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-FLG_AK_PAYM_FICA sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-FLG_AK_PAYM_FIAR sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-FLG_FM_CURTP sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-FLG_SDOR_UPDATE sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-FM_PAYM_PUR sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-FM_DTACT_PUR sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-FM_PO_ADJ_INV sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-FM_USE_INV_COMPL sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-FM_NO_PO_REVAL sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-FM_PAYM_PUR_OFF sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-BUDUECYEAR sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-BUDUEFYEAR sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-PAY_GNJHR sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-COM_GNJHR sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-WFAPPROVED sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-VASFUND sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-VCOFUND sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-STATLDG sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-CVASFUND sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-CVCOFUND sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-PAYBUDGET sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-COMBUDGET sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-YEARDEPEND sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-PAYREDUCT sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-COMREDUCT sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-PAYDTFYEAR sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-COMDTFYEAR sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-PAYDTAYEAR sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-COMDTAYEAR sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-PAYAUTOCF sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-COMAUTOCF sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-PAYCCN sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-COMCCN sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-PAYVASFUND sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-COMVASFUND sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-ASSBDGT sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-RECONTROL sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-UNAME sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-PAYVCOFUND sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-COMVCOFUND sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-PAYAPPR sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-COMAPPR sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-WRTTP sy-vline 
WA_FMS200_OLD_CONTROL_DATA_STR-WAERS_BK sy-vline      INTO ld_text SEPARATED BY SPACE.

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