///////////////////////////////////////////////////////////////////////////////
//                                                                           //
// Copyright (c) 2000-2019 Ericsson Telecom AB                               //
//                                                                           //
// All rights reserved. This program and the accompanying materials          //
// are made available under the terms of the Eclipse Public License v2.0     //
// which accompanies this distribution, and is available at                  //
// https://www.eclipse.org/org/documents/epl-2.0/EPL-2.0.html                                 //
///////////////////////////////////////////////////////////////////////////////

///////////////////////////////////////////////////////////
//  Module: EPTF_CLL_ExecCtrl_DSFunctions
//
//  Purpose:
//    This module contains the implementation of EPTF_CLL_ExecCtrl_DSFunctions functions.
//
//  Module depends on:
//    <EPTF_CLL_Common_Definitions>
//    <EPTF_CLL_ExecCtrl_Definitions>
//    <EPTF_CLL_DataSource_Definitions>
//    <EPTF_CLL_DataSource_Functions>
//    <EPTF_CLL_DataSourceClient_Functions>
//    <EPTF_CLL_ExecCtrl_LoggingFunctions>
//    <EPTF_CLL_Variable_Definitions>
//    <EPTF_CLL_Variable_Functions>
//    <EPTF_CLL_StatHandler_Functions>
//    <EPTF_CLL_Base_Functions>
//
//  Module Parameters:
//
//  Current Owner:
//    Jozsef Gyurusi (ethjgi)
//
//  Last Review Date:
//    2011-05-02
//
//  Detailed Comments:
//
//    Public functions:
//       -
//
//    All other functions in this module are private!
//
///////////////////////////////////////////////////////////////

module EPTF_CLL_ExecCtrl_DSFunctions {

//=========================================================================
// Import Part
//=========================================================================
import from EPTF_CLL_ExecCtrl_Functions all;
import from EPTF_CLL_Common_Definitions all;
import from EPTF_CLL_ExecCtrl_Definitions all;
//import from EPTF_CLL_ExecCtrlUIHandler_Definitions all;
import from EPTF_CLL_DataSource_Definitions all;
import from EPTF_CLL_DataSource_Functions all;
import from EPTF_CLL_DataSourceClient_Functions all;
import from EPTF_CLL_ExecCtrl_LoggingFunctions all;
import from EPTF_CLL_Variable_Definitions all;
import from EPTF_CLL_Variable_Functions all;
import from EPTF_CLL_ExecCtrl_ScenarioFunctions all;
import from EPTF_CLL_ExecCtrl_PhaseDefinitions all;
import from EPTF_CLL_ExecCtrl_PhaseFunctions all;
import from EPTF_CLL_HashMapStr2Int_Functions all;
//import from EPTF_CLL_ExecCtrlUIHandler_Functions all;
import from EPTF_CLL_LGenBase_ConfigFunctions all;
import from EPTF_CLL_StatHandler_Functions all;
import from EPTF_CLL_ExecCtrl_ScenarioDefinitions all;
import from EPTF_CLL_Base_Functions all;
import from EPTF_CLL_Common_Functions all;
import from EPTF_CLL_StatHandler_Definitions all;

friend module EPTF_CLL_ExecCtrl_Functions;
//=========================================================================
// Functions
//========================================================================

///////////////////////////////////////////////////////////
//  Group: EPTF_ExecCtrl
//
//  Purpose:
//    Functions related to EPTF_ExecCtrl feature
//
///////////////////////////////////////////////////////////
group DataSourceClient {

  ///////////////////////////////////////////////////////////
  //  Function: f_EPTF_ExecCtrl_createIteratorVars
  //
  //  Purpose:
  //    Creates the iterator variables that are needed for the implementation of the ExecCtrl DataSourceClient feature.
  //    Called from f_EPTF_ExecCtrl_UIHandler_createGUI, before GUIDone has been sent to the LGens
  //  Parameters:
  //    -
  //
  //  Return Value:
  //    -
  //
  //  Errors & assertions:
  //    -
  //
  //  Detailed Comments:
  //    -
  //
  ///////////////////////////////////////////////////////////
  friend function f_EPTF_ExecCtrl_createIteratorVars()
  runs on EPTF_ExecCtrl_CT{

    var EPTF_CharstringList vl_cList := {}, vl_cList2 := {}, vl_cList3 := {}
    var integer vl_idx := 0;
    //EntityGroups
    for(var integer i := 0; i < sizeof(v_ExecCtrl_entityGroups); i := i + 1){
      vl_cList[sizeof(vl_cList)] := v_ExecCtrl_entityGroups[i].name;
    }
    f_EPTF_Var_newCharstringlist(c_ExecCtrl_DS_iteratorVar_prefix & c_ExecCtrl_iteratorEntityGroups_varName, vl_cList ,vl_idx);

    //Lgens
    vl_cList := {}
    for(var integer i := 0; i < sizeof(v_ExecCtrl_lgens); i := i + 1){
      vl_cList[sizeof(vl_cList)] := v_ExecCtrl_lgens[i].name;
    }
    f_EPTF_Var_newCharstringlist(c_ExecCtrl_DS_iteratorVar_prefix & c_ExecCtrl_iteratorLGens_varName, vl_cList ,vl_idx);


    //Regulators
    vl_cList := {}
    for(var integer i := 0; i < sizeof(v_EPTF_ExecCtrl_RegulatorNames); i := i + 1){
      vl_cList[sizeof(vl_cList)] := v_EPTF_ExecCtrl_RegulatorNames[i];
    }
    f_EPTF_Var_newCharstringlist(c_ExecCtrl_DS_iteratorVar_prefix & c_ExecCtrl_iteratorRegulators_varName, vl_cList ,vl_idx);


    //ScenarioGroups
    vl_cList := {}
    for(var integer i := 0; i < sizeof(v_ExecCtrl_ScenarioGroupInstanceDB.data); i := i + 1){
      vl_cList[sizeof(vl_cList)] := v_ExecCtrl_ScenarioGroupInstanceDB.data[i].name;
    }
    f_EPTF_Var_newCharstringlist(c_ExecCtrl_DS_iteratorVar_prefix & c_ExecCtrl_iteratorScenarioGroups_varName, vl_cList ,vl_idx);

    //PhaseLists
    vl_cList := {};
    var boolean vl_insert;
    for(var integer i := 0; i < sizeof(v_ExecCtrl_PhaseListDeclaratorDB.data); i := i + 1){
       vl_cList[sizeof(vl_cList)] := v_ExecCtrl_PhaseListDeclaratorDB.data[i].name;
       //SCGoupsOfPhaseList
       vl_cList2 := {};
       for(var integer j := 0; j < sizeof(v_ExecCtrl_ScenarioGroupInstanceDB.data); j := j + 1){
         for(var integer k := 0; k < sizeof(v_ExecCtrl_ScenarioGroupInstanceDB.data[j].scenarioPhaseLists); k := k + 1){
           if(v_ExecCtrl_ScenarioGroupInstanceDB.data[j].scenarioPhaseLists[k].name == v_ExecCtrl_PhaseListDeclaratorDB.data[i].name) {
             vl_insert := true;
             for(var integer l := 0; l < sizeof(vl_cList2); l := l + 1){
               if(vl_cList2[l] == v_ExecCtrl_ScenarioGroupInstanceDB.data[j].name) {
                 vl_insert := false;
               }
             }
             if(vl_insert) {
               vl_cList2[sizeof(vl_cList2)] := v_ExecCtrl_ScenarioGroupInstanceDB.data[j].name;
             }
           }
         }
       }
       f_EPTF_Var_newCharstringlist(c_ExecCtrl_DS_iteratorVar_prefix & c_ExecCtrl_iteratorPhases_varName & "." & v_ExecCtrl_PhaseListDeclaratorDB.data[i].name & "." & c_ExecCtrl_iteratorScenarioGroups_varName, vl_cList2 ,vl_idx);

    }
    f_EPTF_Var_newCharstringlist(c_ExecCtrl_DS_iteratorVar_prefix & c_ExecCtrl_iteratorPhaseLists, vl_cList ,vl_idx);

    //Phases
    vl_cList := {}
    vl_cList2 := {}
    for(var integer i := 0; i < sizeof(v_ExecCtrl_PhaseListDeclaratorDB.data); i := i + 1){
      vl_cList2 := {};
      for(var integer j := 0; j < sizeof(v_ExecCtrl_PhaseListDeclaratorDB.data[i].phases); j := j + 1){
        vl_cList[sizeof(vl_cList)] := v_ExecCtrl_PhaseListDeclaratorDB.data[i].phases[j].name;
        vl_cList2[sizeof(vl_cList2)] := v_ExecCtrl_PhaseListDeclaratorDB.data[i].phases[j].name;
      }
      f_EPTF_Var_newCharstringlist(c_ExecCtrl_DS_iteratorVar_prefix & c_ExecCtrl_iteratorPhases_varName&v_ExecCtrl_PhaseListDeclaratorDB.data[i].name, vl_cList2 ,vl_idx);
    }
    f_EPTF_Var_newCharstringlist(c_ExecCtrl_DS_iteratorVar_prefix & c_ExecCtrl_iteratorPhases_varName, vl_cList ,vl_idx);

    //ScenarioOfScGroup
    for(var integer j := 0; j < sizeof(v_ExecCtrl_ScenarioGroupInstanceDB.data); j := j + 1){
       vl_cList := {}
       for(var integer i := 0; i < sizeof(v_ExecCtrl_ScenarioGroupInstanceDB.data[j].scenarios); i := i + 1){
          vl_cList[sizeof(vl_cList)] := v_ExecCtrl_ScenarioGroupInstanceDB.data[j].scenarios[i].name;
       }
       f_EPTF_Var_newCharstringlist(c_ExecCtrl_DS_iteratorVar_prefix & c_ExecCtrl_iteratorScenarioGroups_varName & "." & v_ExecCtrl_ScenarioGroupInstanceDB.data[j].name, vl_cList ,vl_idx);
    }

    //LGensForEntityGroup
    for(var integer j := 0; j < sizeof(v_ExecCtrl_entityGroups); j := j + 1){
        vl_cList := {}
        for(var integer i := 0; i < sizeof(v_ExecCtrl_entityGroups[j].lgenList); i := i + 1){
            vl_cList[sizeof(vl_cList)] := v_ExecCtrl_lgens[v_ExecCtrl_entityGroups[j].lgenList[i].lgenIdx].name;
        }
        f_EPTF_Var_newCharstringlist(c_ExecCtrl_DS_iteratorVar_prefix & c_ExecCtrl_iteratorLGens_varName & "." & v_ExecCtrl_entityGroups[j].name, vl_cList ,vl_idx);
    }

    //Scenarios
    for(var integer j := 0; j < sizeof(v_ExecCtrl_entityGroups); j := j + 1){
        vl_cList := {}
        vl_cList2 := {}
        vl_cList3 := {}
        for(var integer i := 0; i < sizeof(v_ExecCtrl_entityGroups[j].scenarios); i := i + 1){
          vl_cList[sizeof(vl_cList)] := v_ExecCtrl_scenarios[v_ExecCtrl_entityGroups[j].scenarios[i]].scData.name;
          if(v_ExecCtrl_scenarios[v_ExecCtrl_entityGroups[j].scenarios[i]].scData.trafficType == originating) {
            vl_cList2[sizeof(vl_cList2)] := v_ExecCtrl_scenarios[v_ExecCtrl_entityGroups[j].scenarios[i]].scData.name;
          }
          if(v_ExecCtrl_scenarios[v_ExecCtrl_entityGroups[j].scenarios[i]].scData.trafficType == terminating) {
            vl_cList3[sizeof(vl_cList3)] := v_ExecCtrl_scenarios[v_ExecCtrl_entityGroups[j].scenarios[i]].scData.name;
          }
        }
        f_EPTF_Var_newCharstringlist(c_ExecCtrl_DS_iteratorVar_prefix & c_ExecCtrl_iteratorScenarios_varName & "." & v_ExecCtrl_entityGroups[j].name, vl_cList ,vl_idx);
        f_EPTF_Var_newCharstringlist(c_ExecCtrl_DS_iteratorVar_prefix & c_ExecCtrl_iteratorScenarios_varName & "." & v_ExecCtrl_entityGroups[j].name & ".originating", vl_cList2 ,vl_idx);
        f_EPTF_Var_newCharstringlist(c_ExecCtrl_DS_iteratorVar_prefix & c_ExecCtrl_iteratorScenarios_varName & "." & v_ExecCtrl_entityGroups[j].name & ".terminating", vl_cList3 ,vl_idx);
      }

    //TrafficCases
    for(var integer j := 0; j < sizeof(v_ExecCtrl_entityGroups); j := j + 1){
      for(var integer k := 0; k < sizeof(v_ExecCtrl_entityGroups[j].scenarios); k := k + 1){
        vl_cList := {}
        var integer vl_scIdx := v_ExecCtrl_entityGroups[j].scenarios[k];
        for(var integer i:=0; i<sizeof(v_ExecCtrl_scenarios[vl_scIdx].scData.tcList);i:=i+1) {
            vl_cList[sizeof(vl_cList)] := f_EPTF_LGenBase_tcNameOfTcOfSc(v_ExecCtrl_scenarios[vl_scIdx].scData,i);
        }
        f_EPTF_Var_newCharstringlist(c_ExecCtrl_DS_iteratorVar_prefix & c_ExecCtrl_iteratorTrafficCases_varName & "." & v_ExecCtrl_entityGroups[j].name & "." & v_ExecCtrl_scenarios[v_ExecCtrl_entityGroups[j].scenarios[k]].scData.name, vl_cList ,vl_idx);
      }
    }
    //PhasesOfScGrp
    for(var integer j := 0; j < sizeof(v_ExecCtrl_ScenarioGroupInstanceDB.data); j := j + 1){
       for(var integer i := 0; i < sizeof(v_ExecCtrl_ScenarioGroupInstanceDB.data[j].scenarioPhaseLists); i := i + 1){
          vl_cList := {}
          for(var integer k := 0; k < sizeof(v_ExecCtrl_ScenarioGroupInstanceDB.data[j].scenarioPhaseLists[i].phases); k := k + 1){
            vl_cList[sizeof(vl_cList)] := v_ExecCtrl_ScenarioGroupInstanceDB.data[j].scenarioPhaseLists[i].phases[k].name;
          }
          if(f_EPTF_Var_getId(c_ExecCtrl_DS_iteratorVar_prefix & c_ExecCtrl_iteratorPhases_varName & "." & v_ExecCtrl_ScenarioGroupInstanceDB.data[j].name & "." & v_ExecCtrl_ScenarioGroupInstanceDB.data[j].scenarioPhaseLists[i].name) == -1 ) {
            f_EPTF_Var_newCharstringlist(c_ExecCtrl_DS_iteratorVar_prefix & c_ExecCtrl_iteratorPhases_varName & "." & v_ExecCtrl_ScenarioGroupInstanceDB.data[j].name & "." & v_ExecCtrl_ScenarioGroupInstanceDB.data[j].scenarioPhaseLists[i].name, vl_cList ,vl_idx);
          }
          if(f_EPTF_Var_getId(c_ExecCtrl_DS_iteratorVar_prefix & c_ExecCtrl_iteratorPhases_varName & "." & v_ExecCtrl_ScenarioGroupInstanceDB.data[j].scenarioPhaseLists[i].name) == -1 ) {
            f_EPTF_Var_newCharstringlist(c_ExecCtrl_DS_iteratorVar_prefix & c_ExecCtrl_iteratorPhases_varName & "." & v_ExecCtrl_ScenarioGroupInstanceDB.data[j].scenarioPhaseLists[i].name, vl_cList ,vl_idx);
          }
       }
    }


    //EntityGroups  - Lgens param
    for(var integer j := 0; j < sizeof(v_ExecCtrl_lgens); j := j + 1){
       vl_cList := {}
       for(var integer i := 0; i < sizeof(v_ExecCtrl_lgens[j].eGroups); i := i + 1){
          vl_cList[sizeof(vl_cList)] := v_ExecCtrl_entityGroups[v_ExecCtrl_lgens[j].eGroups[i].eGrpIdx].name;
       }
       f_EPTF_Var_newCharstringlist(c_ExecCtrl_DS_iteratorVar_prefix & c_ExecCtrl_iteratorEntityGroups_varName & "." & v_ExecCtrl_lgens[j].name, vl_cList ,vl_idx);
    }

    //EntityTypes  - Lgens param
    for(var integer j := 0; j < sizeof(v_ExecCtrl_lgens); j := j + 1){
       vl_cList := {}
       for(var integer i := 0; i < sizeof(v_ExecCtrl_lgens[j].resourceList); i := i + 1){
          vl_cList[sizeof(vl_cList)] := v_ExecCtrl_lgens[j].resourceList[i].eType;
       }
       f_EPTF_Var_newCharstringlist(c_ExecCtrl_DS_iteratorVar_prefix & c_ExecCtrl_iteratorEntityTypesForLGen_varName & "." & v_ExecCtrl_lgens[j].name, vl_cList ,vl_idx);
    }

    //Regulated items
    vl_cList := {}
    for(var integer i := 0; i < sizeof(v_EPTF_ExecCtrl_RegulatedItems); i := i + 1){
      if (ischosen(v_EPTF_ExecCtrl_RegulatedItems[i].idName.cps_TC)) {
        vl_cList[sizeof(vl_cList)] := v_EPTF_ExecCtrl_RegulatedItems[i].idName.cps_TC.eGrpName
          &"."&v_EPTF_ExecCtrl_RegulatedItems[i].idName.cps_TC.scName
          &"."&v_EPTF_ExecCtrl_RegulatedItems[i].idName.cps_TC.tcName;
      }
      if (ischosen(v_EPTF_ExecCtrl_RegulatedItems[i].idName.cps_SC)) {
        vl_cList[sizeof(vl_cList)] := v_EPTF_ExecCtrl_RegulatedItems[i].idName.cps_SC.eGrpName
          &"."&v_EPTF_ExecCtrl_RegulatedItems[i].idName.cps_SC.scName;
      }
      if (ischosen(v_EPTF_ExecCtrl_RegulatedItems[i].idName.cps_TCInPhase)) {
        vl_cList[sizeof(vl_cList)] := v_EPTF_ExecCtrl_RegulatedItems[i].idName.cps_TCInPhase.eGrpName
          &"."&v_EPTF_ExecCtrl_RegulatedItems[i].idName.cps_TCInPhase.scName
          &"."&v_EPTF_ExecCtrl_RegulatedItems[i].idName.cps_TCInPhase.tcName
          &"@"&v_EPTF_ExecCtrl_RegulatedItems[i].idName.cps_TCInPhase.phase;
      }
      if (ischosen(v_EPTF_ExecCtrl_RegulatedItems[i].idName.cps_SCInPhase)) {
        vl_cList[sizeof(vl_cList)] := v_EPTF_ExecCtrl_RegulatedItems[i].idName.cps_SCInPhase.eGrpName
          &"."&v_EPTF_ExecCtrl_RegulatedItems[i].idName.cps_SCInPhase.scName
          &"@"&v_EPTF_ExecCtrl_RegulatedItems[i].idName.cps_SCInPhase.phase;
      }
    }
    f_EPTF_Var_newCharstringlist(c_ExecCtrl_DS_iteratorVar_prefix & c_ExecCtrl_iteratorRegulatedItems_varName, vl_cList ,vl_idx);

    //Tc statistics
    f_EPTF_Var_newCharstringlist(c_ExecCtrl_DS_iteratorVar_prefix & c_ExecCtrl_iteratorTcStats_varName, c_EPTF_ExecCtrl_tcStatNames ,vl_idx);

    //FSM statistics
    for(var integer j := 0; j < sizeof(v_ExecCtrl_entityGroups); j := j + 1){
      for(var integer k := 0; k < sizeof(v_ExecCtrl_entityGroups[j].scenarios); k := k + 1){
        var integer vl_scIdx := v_ExecCtrl_entityGroups[j].scenarios[k];
        for(var integer i:=0; i<sizeof(v_ExecCtrl_scenarios[vl_scIdx].scData.tcList);i:=i+1) {

          vl_cList := {}
          // get FSM stats for this TC:
          for(var integer f:=0; f<sizeof(v_ExecCtrl_FSMStats); f:=f+1) {
            if (
              v_ExecCtrl_entityGroups[j].name == v_ExecCtrl_FSMStats[f].entityGroup and
              v_ExecCtrl_scenarios[v_ExecCtrl_entityGroups[j].scenarios[k]].scData.name==v_ExecCtrl_FSMStats[f].scenario and
              f_EPTF_LGenBase_tcNameOfTcOfSc(v_ExecCtrl_scenarios[vl_scIdx].scData,i)==v_ExecCtrl_FSMStats[f].tc
            ) {
              for (var integer st:=0; st<sizeof(v_ExecCtrl_FSMStats[f].stats); st:=st+1) {
                vl_cList[sizeof(vl_cList)] := v_ExecCtrl_FSMStats[f].stats[st].declaredName;
              }
            }
          }

          f_EPTF_Var_newCharstringlist(
            c_ExecCtrl_DS_iteratorVar_prefix & c_ExecCtrl_iteratorFSMStats_varName & "."
            & v_ExecCtrl_entityGroups[j].name & "."
            & v_ExecCtrl_scenarios[vl_scIdx].scData.name & "."
            & f_EPTF_LGenBase_tcNameOfTcOfSc(v_ExecCtrl_scenarios[vl_scIdx].scData,i), vl_cList ,vl_idx);
        }
      }
    }

    //ScGroup of Scenario
    for(var integer j := 0; j < sizeof(v_ExecCtrl_entityGroups); j := j + 1){
      for(var integer k := 0; k < sizeof(v_ExecCtrl_entityGroups[j].scenarios); k := k + 1){
        var integer vl_scIdx := v_ExecCtrl_entityGroups[j].scenarios[k];
        var integer vl_scGrpIdx := f_EPTF_ExecCtrl_ScenarioGroup_get_byScIndex(vl_scIdx);
        var EPTF_ExecCtrl_ScenarioGroup_Instance vl_instance;
    	//f_EPTF_ExecCtrl_ScenarioGroup_get_byIndex(vl_scGrpIdx, vl_instance);

	if (vl_scGrpIdx > -1 and vl_scGrpIdx < sizeof(v_ExecCtrl_ScenarioGroupInstanceDB.data))
	{
          f_EPTF_Var_newCharstring(c_ExecCtrl_DS_externalDataVar_prefix & "ScGroupOfSc_" & int2str(vl_scIdx), v_ExecCtrl_ScenarioGroupInstanceDB.data[vl_scGrpIdx].name,
	  vl_idx);
	}
      }
    }
  }


  ///////////////////////////////////////////////////////////
  //  Function: f_EPTF_ExecCtrl_DSProcessData
  //
  //  Purpose:
  //    Processes the incoming Data requests - iterators and external data elements - and gives back a variable name.
  //    It should be registered in the ExecCtrl_init_CT. Type function fcb_EPTF_DataSourceClient_dataHandler
  //
  //  Parameters:
  //    *out charstring pl_dataVarName* - this variable contains the value of the data or the iterator result
  //    *in charstring pl_source* - the name of the data source 'feature'
  //    *in charstring pl_ptcName* - the name of the ptc (ID of the PTC)
  //    *in charstring pl_element* - the name of the data element
  //    *in* <EPTF_DataSource_Params> *pl_params* - the parameters
  //      of the data for the dataElement
  //
  //  Return Value:
  //    integer - error code (0 of OK, non zero if unsuccessful: e.g. invalid parameters given in pl_params)
  //
  //  Detailed Comments:
  //    When this function is called in the first time it creates the variable that contains the
  //    names of the variables that store the values of the elements of the data or the iterator. This variable name
  //    is returned in pl_dataVarName.
  //
  ///////////////////////////////////////////////////////////
  friend function f_EPTF_ExecCtrl_DSProcessData(out charstring pl_dataVarName,
                                                      in charstring pl_source,
                                                      in charstring pl_ptcName,
                                                      in charstring pl_element,
                                                      in EPTF_DataSource_Params pl_params)
  runs on EPTF_ExecCtrl_CT return integer{

    var EPTF_CharstringList vl_cList := {}
    var EPTF_CharstringList pl_result := {}
    var EPTF_Var_SubscriptionMode vl_subscriptionModeForVars := sampled;
    if (v_ExecCtrl_usePullModeForStats) {
      vl_subscriptionModeForVars := pull;
    }

    var integer vl_idx := 0;
    pl_dataVarName := "";
    select(pl_element){
     case(c_ExecCtrl_iteratorEntityTypesForLGen){
       vl_cList := {}
       var charstring vl_LGenName := "";
       if(0 == f_EPTF_ExecCtrl_getParams(pl_params,{c_ExecCtrl_paramNameLGen}, pl_result)){
           vl_LGenName := pl_result[0];
           var integer vl_key := -1;
           if (f_EPTF_str2int_HashMap_Find(v_ExecCtrl_lgensHash, vl_LGenName, vl_key)){
             pl_dataVarName := c_ExecCtrl_DS_iteratorVar_prefix & c_ExecCtrl_iteratorEntityTypesForLGen_varName & "." & vl_LGenName;
           } else {
             pl_dataVarName :=  %definitionId& ": Datasource Parameter is wrong."&
                "\n" & c_ExecCtrl_paramNameLGen & ": " & vl_LGenName;
             f_EPTF_ExecCtrl_warning(pl_dataVarName);
           }
       }
     }
     case(c_ExecCtrl_iteratorRegulatedItems){
       if(sizeof(pl_params) == 0){
         pl_dataVarName := c_ExecCtrl_DS_iteratorVar_prefix & c_ExecCtrl_iteratorRegulatedItems_varName;
       } else {
         pl_dataVarName := log2str(%definitionId, ": Datasource Parameter not needed." );
         f_EPTF_ExecCtrl_warning(pl_dataVarName);
       }
     }
     case(c_ExecCtrl_iteratorEntityGroups){
       if(sizeof(pl_params) == 0){
         pl_dataVarName := c_ExecCtrl_DS_iteratorVar_prefix & c_ExecCtrl_iteratorEntityGroups_varName
       } else {
         // Lgen bemeno param kell - c_ExecCtrl_paramNameLGen
         vl_cList := {}
         var charstring vl_LGenName := "";
         if(0 == f_EPTF_ExecCtrl_getParams(pl_params, {c_ExecCtrl_paramNameLGen}, pl_result)){
           vl_LGenName := pl_result[0];
           var integer vl_key := -1;
           if (f_EPTF_str2int_HashMap_Find(v_ExecCtrl_lgensHash, vl_LGenName, vl_key)){
             pl_dataVarName := c_ExecCtrl_DS_iteratorVar_prefix & c_ExecCtrl_iteratorEntityGroups_varName & "." & vl_LGenName;
           } else {
             pl_dataVarName := %definitionId& ": Datasource Parameter is wrong."&
                "\n" & c_ExecCtrl_paramNameLGen & ": " & vl_LGenName;
             f_EPTF_ExecCtrl_warning(pl_dataVarName);
           }
         }
       }
     }
     case(c_ExecCtrl_iteratorRegulators){
       if(sizeof(pl_params) == 0){
         pl_dataVarName := c_ExecCtrl_DS_iteratorVar_prefix & c_ExecCtrl_iteratorRegulators_varName
       } else {
         pl_dataVarName := log2str(%definitionId, ": Datasource Parameter not needed." );
         f_EPTF_ExecCtrl_warning(pl_dataVarName);
       }
     }
     case(c_ExecCtrl_iteratorScenarioGroups){
       if(sizeof(pl_params) == 0){
         pl_dataVarName := c_ExecCtrl_DS_iteratorVar_prefix & c_ExecCtrl_iteratorScenarioGroups_varName
       } else if(sizeof(pl_params) == 1) {
         if(0 == f_EPTF_ExecCtrl_getParams(pl_params, {c_ExecCtrl_paramNamePhaseList}, pl_result)){
           pl_dataVarName := c_ExecCtrl_DS_iteratorVar_prefix & c_ExecCtrl_iteratorPhases_varName & "." & pl_result[0] & "." & c_ExecCtrl_iteratorScenarioGroups_varName
         }
       } else {
         pl_dataVarName := log2str(%definitionId, ": Datasource Parameter not needed." );
         f_EPTF_ExecCtrl_warning(pl_dataVarName);
       }
     }

     case(c_ExecCtrl_iteratorPhaseLists){
       if(0 == f_EPTF_ExecCtrl_getParams(pl_params, {}, pl_result)){
         pl_dataVarName := c_ExecCtrl_DS_iteratorVar_prefix & c_ExecCtrl_iteratorPhaseLists;
       } else {
         pl_dataVarName := log2str(%definitionId, ": Datasource Parameter not needed." );
         f_EPTF_ExecCtrl_warning(pl_dataVarName);
       }
     }

     case(c_ExecCtrl_iteratorPhases){
       if(sizeof(pl_params) == 0){
           pl_dataVarName := c_ExecCtrl_DS_iteratorVar_prefix & c_ExecCtrl_iteratorPhases_varName
       } else if(0 == f_EPTF_ExecCtrl_getParams(pl_params, {c_ExecCtrl_paramNamePhaseList}, pl_result, true)) {
           pl_dataVarName := c_ExecCtrl_DS_iteratorVar_prefix & c_ExecCtrl_iteratorPhases_varName & pl_result[0];
       } else if(0 == f_EPTF_ExecCtrl_getParams(pl_params, {c_ExecCtrl_paramNameScenarioGroup,c_ExecCtrl_paramNamePhaseList}, pl_result, true)){
           pl_dataVarName := c_ExecCtrl_DS_iteratorVar_prefix & c_ExecCtrl_iteratorPhases_varName & "." & pl_result[0] & "." & pl_result[1];
       } else if(0 == f_EPTF_ExecCtrl_getParams(pl_params, {c_ExecCtrl_paramNameEntityGroup, c_ExecCtrl_paramNameScenario}, pl_result)){
           vl_cList := {}
           var charstring vl_entityGrpName := "";
           var charstring vl_scName := "";
           vl_entityGrpName := pl_result[0];
           vl_scName := pl_result[1];
           var integer vl_scIdx := f_EPTF_ExecCtrl_getScenarioIdx(vl_entityGrpName, vl_scName);
           if (vl_scIdx!=-1) {
                var integer vl_scGrpIdx := f_EPTF_ExecCtrl_ScenarioGroup_get_byScIndex(vl_scIdx);
                if (vl_scGrpIdx != -1){
                    for(var integer i := 0; i < sizeof(v_ExecCtrl_ScenarioGroupInstanceDB.data[vl_scGrpIdx].scenarios); i := i + 1) {
                      if(v_ExecCtrl_ScenarioGroupInstanceDB.data[vl_scGrpIdx].scenarios[i].idx == vl_scIdx) {
                         pl_dataVarName := c_ExecCtrl_DS_iteratorVar_prefix & c_ExecCtrl_iteratorPhases_varName & "." & v_ExecCtrl_ScenarioGroupInstanceDB.data[vl_scGrpIdx].scenarioPhaseLists[i].name;
                         break;
                      }
                    }
                } else {
                    pl_dataVarName := %definitionId& ": Datasource Parameter is wrong. Scenario is not in scenarioGroup: "& vl_scName;
                    f_EPTF_ExecCtrl_warning(pl_dataVarName);
                }
           } else {
             pl_dataVarName := %definitionId& ": Datasource Parameter is wrong. Scenario doesn't exist: "& vl_scName;
             f_EPTF_ExecCtrl_warning(pl_dataVarName);
           }
        }
     }
     case(c_ExecCtrl_iteratorLGens){
       if(sizeof(pl_params) == 0){
         pl_dataVarName := c_ExecCtrl_DS_iteratorVar_prefix & c_ExecCtrl_iteratorLGens_varName
       } else {
         vl_cList := {}
         var charstring vl_entityGrpName := "";
         if(0 == f_EPTF_ExecCtrl_getParams(pl_params, {c_ExecCtrl_paramNameEntityGroup}, pl_result)){
           vl_entityGrpName := pl_result[0];
           var integer vl_eGrpIdx := f_EPTF_ExecCtrl_getEntityGroupIdx(vl_entityGrpName);
           if(vl_eGrpIdx > -1){
             pl_dataVarName := c_ExecCtrl_DS_iteratorVar_prefix & c_ExecCtrl_iteratorLGens_varName & "." & vl_entityGrpName;
           } else {
             pl_dataVarName := %definitionId& ": Datasource Parameter is wrong."&
                "\n" & c_ExecCtrl_paramNameEntityGroup & ": " & vl_entityGrpName ;
             f_EPTF_ExecCtrl_warning(pl_dataVarName);
           }
         }
       }
     }


     case(c_ExecCtrl_iteratorScenarios){
       vl_cList := {}
       var charstring vl_scenarioGrpName := "";
       // this if is needed to avoid false warning if the second param version is used:
       if (sizeof(pl_params)==1 and pl_params[0].paramName == c_ExecCtrl_paramNameScenarioGroup) {
         if(0 == f_EPTF_ExecCtrl_getParams(pl_params, {c_ExecCtrl_paramNameScenarioGroup}, pl_result)){
           vl_scenarioGrpName := pl_result[0];
           var integer vl_key := -1;
           if (f_EPTF_str2int_HashMap_Find(v_ExecCtrl_ScenarioGroupInstanceDB.hashRef, vl_scenarioGrpName, vl_key)){
              pl_dataVarName := c_ExecCtrl_DS_iteratorVar_prefix & c_ExecCtrl_iteratorScenarioGroups & "." & vl_scenarioGrpName;
           } else {
             pl_dataVarName := %definitionId& ": Datasource Parameter is wrong."&
                "\n" & c_ExecCtrl_paramNameScenarioGroup & ": " & vl_scenarioGrpName;
             f_EPTF_ExecCtrl_warning(pl_dataVarName);
           }
         }
       } else if (sizeof(pl_params)==2 and (pl_params[0].paramName == c_ExecCtrl_paramNameTrafficType or pl_params[1].paramName == c_ExecCtrl_paramNameTrafficType)) {
         var charstring vl_trafficType := "";
         if(pl_params[0].paramValue == "originating" or pl_params[0].paramValue == "terminating") {
           vl_trafficType := pl_params[0].paramValue;
         } else if (pl_params[1].paramValue == "originating" or pl_params[1].paramValue == "terminating") {
           vl_trafficType := pl_params[1].paramValue;
         }
         if(vl_trafficType != "") {
           if(0 == f_EPTF_ExecCtrl_getParams(pl_params, {c_ExecCtrl_paramNameEntityGroup, c_ExecCtrl_paramNameTrafficType}, pl_result)){
             var charstring vl_entityGrpName := "";
             vl_entityGrpName := pl_result[0];
             var integer vl_eGrpIdx := f_EPTF_ExecCtrl_getEntityGroupIdx(vl_entityGrpName);
             if(vl_eGrpIdx > -1){
               pl_dataVarName := c_ExecCtrl_DS_iteratorVar_prefix & c_ExecCtrl_iteratorScenarios_varName & "." & vl_entityGrpName;
             } else {
               pl_dataVarName := %definitionId& ": Datasource Parameter is wrong."&
                  "\n" & c_ExecCtrl_paramNameEntityGroup & ": " & vl_entityGrpName;
               f_EPTF_ExecCtrl_warning(pl_dataVarName);
             }
             pl_dataVarName := c_ExecCtrl_DS_iteratorVar_prefix & c_ExecCtrl_iteratorScenarios_varName & "." & vl_entityGrpName & "." & vl_trafficType;
           }
         } else {
           pl_dataVarName := %definitionId& ": Datasource Parameter is wrong."&
                "\n" & c_ExecCtrl_paramNameTrafficType & ": " & pl_params[0].paramValue & " It can be only originating or terminating";
           f_EPTF_ExecCtrl_warning(pl_dataVarName);
         }
       } else {
         var charstring vl_entityGrpName := "";
         if(0 == f_EPTF_ExecCtrl_getParams(pl_params, {c_ExecCtrl_paramNameEntityGroup}, pl_result)){
           vl_entityGrpName := pl_result[0];
           var integer vl_eGrpIdx := f_EPTF_ExecCtrl_getEntityGroupIdx(vl_entityGrpName);
           if(vl_eGrpIdx > -1){
             pl_dataVarName := c_ExecCtrl_DS_iteratorVar_prefix & c_ExecCtrl_iteratorScenarios_varName & "." & vl_entityGrpName;
           } else {
             pl_dataVarName := %definitionId& ": Datasource Parameter is wrong."&
                "\n" & c_ExecCtrl_paramNameEntityGroup & ": " & vl_entityGrpName;
             f_EPTF_ExecCtrl_warning(pl_dataVarName);
           }
         } else {
             pl_dataVarName := %definitionId& ": Datasource Parameter(s) is/are wrong. The iterator " & c_ExecCtrl_iteratorScenarios & " either has no parameters or has only one, EntityGroup.";
             f_EPTF_ExecCtrl_warning(pl_dataVarName);
         }
       }
     }
     case(c_ExecCtrl_iteratorTrafficCases){
       vl_cList := {}
       var charstring vl_entityGrpName := "";
       var charstring vl_scName := "";
       if(0 == f_EPTF_ExecCtrl_getParams(pl_params,{c_ExecCtrl_paramNameEntityGroup,c_ExecCtrl_paramNameScenario}, pl_result)){
         vl_entityGrpName := pl_result[0];
         vl_scName        := pl_result[1];
         var integer vl_eGrpIdx := f_EPTF_ExecCtrl_getEntityGroupIdx(vl_entityGrpName);
         var integer vl_scIdx := f_EPTF_ExecCtrl_getScenarioIdx(vl_entityGrpName, vl_scName);
         if(vl_eGrpIdx > -1 and vl_scIdx > -1){
           pl_dataVarName := c_ExecCtrl_DS_iteratorVar_prefix & c_ExecCtrl_iteratorTrafficCases_varName & "." & vl_entityGrpName & "." & vl_scName;
         } else {
           if( vl_scIdx > -1){
               pl_dataVarName := %definitionId& ": Datasource Parameter is wrong: "&
                  "\n" & c_ExecCtrl_paramNameEntityGroup & ": " & vl_entityGrpName;
               f_EPTF_ExecCtrl_warning(pl_dataVarName);
           } else {
               pl_dataVarName := %definitionId& ": Datasource Parameter is wrong: "&
                  "\n" & c_ExecCtrl_paramNameScenarioGroup & ": " & vl_scName;
               f_EPTF_ExecCtrl_warning(pl_dataVarName);
           }
         }
       } else if(0 == f_EPTF_ExecCtrl_getParams(pl_params,{c_ExecCtrl_paramNameScenarioInstance}, pl_result)){
         var charstring vl_scInstanceName := pl_result[0];
         var integer vl_scInstIdx := f_EPTF_ExecCtrl_getScenarioIdxByInstanceName(vl_scInstanceName);
         
         if (vl_scInstIdx==-1) {
           pl_dataVarName := %definitionId& ": Datasource Parameter is wrong: "&
              "\n" & c_ExecCtrl_paramNameScenarioInstance & ": " & vl_scInstanceName;
           f_EPTF_ExecCtrl_warning(pl_dataVarName);
         } else {
         
           vl_entityGrpName := f_EPTF_ExecCtrl_eGrp_name(f_EPTF_ExecCtrl_getScenarioEGroupIdx(vl_scInstIdx));
           vl_scName        := f_EPTF_ExecCtrl_getScenarioName(vl_scInstIdx);
           var integer vl_eGrpIdx := f_EPTF_ExecCtrl_getEntityGroupIdx(vl_entityGrpName);
           var integer vl_scIdx := f_EPTF_ExecCtrl_getScenarioIdx(vl_entityGrpName, vl_scName);
           if(vl_eGrpIdx > -1 and vl_scIdx > -1){
             pl_dataVarName := c_ExecCtrl_DS_iteratorVar_prefix & c_ExecCtrl_iteratorTrafficCases_varName & "." & vl_entityGrpName & "." & vl_scName;
           } else {
             if( vl_scIdx > -1){
                 pl_dataVarName := (%definitionId& ": Datasource Parameter is wrong: "&
                    "\n" & c_ExecCtrl_paramNameEntityGroup & ": " & vl_entityGrpName );
                 f_EPTF_ExecCtrl_warning(pl_dataVarName);
             } else {
                 pl_dataVarName := %definitionId& ": Datasource Parameter is wrong: "&
                    "\n" & c_ExecCtrl_paramNameScenarioGroup & ": " & vl_scName;
                 f_EPTF_ExecCtrl_warning(pl_dataVarName);
             }
           }
         }
       }
     }
     case(c_ExecCtrl_iteratorTcStats){
       if(sizeof(pl_params) == 0){
         pl_dataVarName := c_ExecCtrl_DS_iteratorVar_prefix & c_ExecCtrl_iteratorTcStats_varName;
       } else {
         pl_dataVarName := %definitionId& ": Datasource Parameter not needed.";
         f_EPTF_ExecCtrl_warning(pl_dataVarName);
       }
     }
     case(c_ExecCtrl_iteratorFSMStats){
       var charstring vl_eGrpName := "";
       var charstring vl_scName := "";
       var charstring vl_tcName := "";
       if(0 == f_EPTF_ExecCtrl_getParams( pl_params,
                                            {c_ExecCtrl_paramNameEntityGroup, c_ExecCtrl_paramNameScenario, c_ExecCtrl_paramNameTrafficCase},
                                            pl_result)){
         vl_eGrpName      := pl_result[0];
         vl_scName        := pl_result[1];
         vl_tcName        := pl_result[2];
         var integer vl_eGrpIdx := f_EPTF_ExecCtrl_getEntityGroupIdx(vl_eGrpName);
         var integer vl_scIdx := f_EPTF_ExecCtrl_getScenarioIdx(vl_eGrpName, vl_scName);
         var integer vl_tcIdx := f_EPTF_ExecCtrl_getTrafficCaseIdx(vl_eGrpName,vl_scName,vl_tcName);
         if( -1 == vl_eGrpIdx){
             pl_dataVarName := %definitionId& ": Datasource Parameter is wrong: "&
                "\n" & c_ExecCtrl_paramNameEntityGroup & ": " & vl_eGrpName;
             f_EPTF_ExecCtrl_warning(pl_dataVarName);
         }
         if( -1 == vl_scIdx){
             pl_dataVarName := %definitionId& ": Datasource Parameter is wrong: "&
                "\n" & c_ExecCtrl_paramNameScenario & ": " & vl_scName;
             f_EPTF_ExecCtrl_warning(pl_dataVarName);
         }
         if( -1 == vl_tcIdx){
             pl_dataVarName := %definitionId& ": Datasource Parameter is wrong: "&
                "\n" & c_ExecCtrl_paramNameTrafficCase & ": " & vl_tcName;
             f_EPTF_ExecCtrl_warning(pl_dataVarName);
         }
         if(-1 != vl_eGrpIdx and -1 != vl_scIdx and -1 != vl_tcIdx){
           pl_dataVarName := c_ExecCtrl_DS_iteratorVar_prefix & c_ExecCtrl_iteratorFSMStats_varName & "." & vl_eGrpName & "." & vl_scName & "." & vl_tcName;
         }
       }
     }
     case(c_ExecCtrl_iteratorGlobalStats){
       if(sizeof(pl_params) == 0){
         pl_dataVarName := c_ExecCtrl_DS_iteratorVar_prefix & c_ExecCtrl_iteratorGlobalStats_varName;
       } else {
         pl_dataVarName := %definitionId& ": Datasource Parameter not needed.";
         f_EPTF_ExecCtrl_warning(pl_dataVarName);
       }
     }

// DATAELEMENTS:

     case (c_ExecCtrl_dataElementProgressbar){
       if(sizeof(pl_params) == 0){
         pl_dataVarName := c_EPTF_ExecCtrl_statisticsRoot&".notif.progressbar";
       } else {
         pl_dataVarName := %definitionId& ": Datasource Parameter not needed.";
         f_EPTF_ExecCtrl_warning(pl_dataVarName);
       }
     }
     case (c_ExecCtrl_dataElementProgressbarText){
       if(sizeof(pl_params) == 0){
         pl_dataVarName := c_EPTF_ExecCtrl_statisticsRoot&".notif.progressbar.text";
       } else {
         pl_dataVarName := %definitionId& ": Datasource Parameter not needed.";
         f_EPTF_ExecCtrl_warning(pl_dataVarName);
       }
     }
     case (c_ExecCtrl_dataElementGlobalProgressbar){
       if(sizeof(pl_params) == 0){
         pl_dataVarName := c_EPTF_ExecCtrl_statisticsRoot&".notif.globalProgressbar";
       } else {
         pl_dataVarName := %definitionId& ": Datasource Parameter not needed.";
         f_EPTF_ExecCtrl_warning(pl_dataVarName);
       }
     }
     case (c_ExecCtrl_dataElementExit){
       if(sizeof(pl_params) == 0){
         pl_dataVarName := c_EPTF_ExecCtrl_Exit;
       } else {
         pl_dataVarName := %definitionId& ": Datasource Parameter not needed.";
         f_EPTF_ExecCtrl_warning(pl_dataVarName);
       }
     }
     case (c_ExecCtrl_dataElementEndOfConfig){
       if(sizeof(pl_params) == 0){
         pl_dataVarName := "EPTF_ExecCtrl.EventStatus.EndOfConfig";
       } else {
         pl_dataVarName := %definitionId& ": Datasource Parameter not needed.";
         f_EPTF_ExecCtrl_warning(pl_dataVarName);
       }
     }
     case (c_ExecCtrl_dataElementReadyToRun){
       if(sizeof(pl_params) == 0){
         pl_dataVarName := "EPTF_ExecCtrl.EventStatus.ReadyToRun";
       } else {
         pl_dataVarName := %definitionId& ": Datasource Parameter not needed.";
         f_EPTF_ExecCtrl_warning(pl_dataVarName);
       }
     }
     case (c_ExecCtrl_dataElementGUIDone){
       if(sizeof(pl_params) == 0){
         pl_dataVarName := "EPTF_ExecCtrl.EventStatus.GUIDone";
       } else {
         pl_dataVarName := %definitionId& ": Datasource Parameter not needed.";
         f_EPTF_ExecCtrl_warning(pl_dataVarName);
       }
     }
     case (c_ExecCtrl_dataElementEndOfTest){
       if(sizeof(pl_params) == 0){
         pl_dataVarName := "EPTF_ExecCtrl.EventStatus.EndOfTest";
       } else {
         pl_dataVarName := %definitionId& ": Datasource Parameter not needed.";
         f_EPTF_ExecCtrl_warning(pl_dataVarName);
       }
     }
     case (c_ExecCtrl_dataElementTimeElapsed){
       if(sizeof(pl_params) == 0){
         pl_dataVarName := c_EPTF_ExecCtrl_TimeElapsed;
       } else {
         pl_dataVarName := %definitionId& ": Datasource Parameter not needed.";
         f_EPTF_ExecCtrl_warning(pl_dataVarName);
       }
     }
     case (c_ExecCtrl_dataElementStart){
       if(sizeof(pl_params) == 0){
         pl_dataVarName := c_EPTF_ExecCtrl_Start;
       } else {
         pl_dataVarName := %definitionId& ": Datasource Parameter not needed.";
         f_EPTF_ExecCtrl_warning(pl_dataVarName);
       }
     }
     case (c_ExecCtrl_dataElementStop){
       if(sizeof(pl_params) == 0){
         pl_dataVarName := c_EPTF_ExecCtrl_Stop;
       } else {
         pl_dataVarName := %definitionId& ": Datasource Parameter not needed.";
         f_EPTF_ExecCtrl_warning(pl_dataVarName);
       }
     }
     case (c_ExecCtrl_dataElementTerminate){
       if(sizeof(pl_params) == 0){
         pl_dataVarName := c_EPTF_ExecCtrl_Terminate;
       } else {
         pl_dataVarName := %definitionId& ": Datasource Parameter not needed.";
         f_EPTF_ExecCtrl_warning(pl_dataVarName);
       }
     }
     case (c_ExecCtrl_dataElementSnapshot){
       if(sizeof(pl_params) == 0){
         pl_dataVarName := c_EPTF_ExecCtrl_Snapshot;
       } else {
         pl_dataVarName := %definitionId& ": Datasource Parameter not needed.";
         f_EPTF_ExecCtrl_warning(pl_dataVarName);
       }
     }
     case (c_ExecCtrl_dataElementEGrpType){
       var charstring vl_entityGrpName := "";
       if (0 == f_EPTF_ExecCtrl_getParams(pl_params,
                                           {c_ExecCtrl_paramNameEntityGroup},
                                           pl_result)){
         vl_entityGrpName := pl_result[0];
         var integer vl_eGrpIdx := f_EPTF_ExecCtrl_getEntityGroupIdx(vl_entityGrpName);
         pl_dataVarName := "EntityType."&int2str(vl_eGrpIdx);
       }
     }
     case (c_ExecCtrl_dataElementEGrpSize){
       var charstring vl_entityGrpName := "";
       if (0 == f_EPTF_ExecCtrl_getParams(pl_params,
                                           {c_ExecCtrl_paramNameEntityGroup},
                                           pl_result)){
         vl_entityGrpName := pl_result[0];
         var integer vl_eGrpIdx := f_EPTF_ExecCtrl_getEntityGroupIdx(vl_entityGrpName);
         pl_dataVarName := "EntityNum."&int2str(vl_eGrpIdx);
       }
     }
     case (c_ExecCtrl_dataElementNofMaxAvailEntitiesForLGen){
       var charstring vl_lGenName := "";
       var charstring vl_eTypeName := "";
       if (0 == f_EPTF_ExecCtrl_getParams(pl_params,
                                           {c_ExecCtrl_paramNameLGen, c_ExecCtrl_paramNameEntityType},
                                           pl_result)){
         vl_lGenName := pl_result[0];
         vl_eTypeName := pl_result[1];
         var integer vl_lGenIdx := f_EPTF_ExecCtrl_getLGenIdx(vl_lGenName);
         if(vl_lGenIdx != -1){
            var integer vl_eIdx := f_EPTF_ExecCtrl_getLGenResourceListETypeIdx(vl_lGenIdx,vl_eTypeName);
            if(vl_eIdx != -1){
              pl_dataVarName := "Resource.EntityAvailNum."&int2str(vl_lGenIdx)&"."&int2str(vl_eIdx);
            } else {
                   pl_dataVarName := %definitionId& ": Datasource Parameter is wrong: "&
                      "\n" & c_ExecCtrl_paramNameEntityType & ": " & vl_eTypeName;
                   f_EPTF_ExecCtrl_warning(pl_dataVarName);
            }
         } else {
               pl_dataVarName := %definitionId& ": Datasource Parameter is wrong: "&
                  "\n" & c_ExecCtrl_paramNameLGen & ": " & vl_lGenName;
               f_EPTF_ExecCtrl_warning(pl_dataVarName);
         }
       }
     }
     case (c_ExecCtrl_dataElementNofCurrentAvailEntitiesForLGen){
       var charstring vl_lGenName := "";
       var charstring vl_eTypeName := "";
       if (0 == f_EPTF_ExecCtrl_getParams(pl_params,
                                           {c_ExecCtrl_paramNameLGen, c_ExecCtrl_paramNameEntityType},
                                           pl_result)){
         vl_lGenName := pl_result[0];
         vl_eTypeName := pl_result[1];
         var integer vl_lGenIdx := f_EPTF_ExecCtrl_getLGenIdx(vl_lGenName);
         if(vl_lGenIdx != -1){
           var integer vl_eIdx := f_EPTF_ExecCtrl_getLGenResourceListETypeIdx(vl_lGenIdx,vl_eTypeName);
           if(vl_eIdx != -1){
             pl_dataVarName := "Resource.EntityAllocNum."&int2str(vl_lGenIdx)&"."&int2str(vl_eIdx);
           } else {
                   pl_dataVarName := %definitionId& ": Datasource Parameter is wrong: "&
                      "\n" & c_ExecCtrl_paramNameEntityType & ": " & vl_eTypeName;
                   f_EPTF_ExecCtrl_warning(pl_dataVarName);
           }
         } else {
               pl_dataVarName := %definitionId& ": Datasource Parameter is wrong: "&
                  "\n" & c_ExecCtrl_paramNameLGen & ": " & vl_lGenName;
               f_EPTF_ExecCtrl_warning(pl_dataVarName);
         }
       }
     }
     case (c_ExecCtrl_dataElementEGrpSizeForLGen){
       var charstring vl_lGenName := "";
       var charstring vl_eGrpName := "";
       if (0 == f_EPTF_ExecCtrl_getParams(pl_params,
                                           {c_ExecCtrl_paramNameEntityGroup, c_ExecCtrl_paramNameLGen},
                                           pl_result)){
         vl_eGrpName := pl_result[0];
         vl_lGenName := pl_result[1];
         var integer vl_eGrpIdx := f_EPTF_ExecCtrl_getEntityGroupIdx(vl_eGrpName);
         var integer vl_lGenIdx := f_EPTF_ExecCtrl_getLGenIdx(vl_lGenName);
         var integer vl_lGenIdxInList := -1;
		 for(var integer vl_i := 0; vl_i < sizeof(v_ExecCtrl_entityGroups[vl_eGrpIdx].lgenList) ;vl_i := vl_i + 1){
            if(v_ExecCtrl_entityGroups[vl_eGrpIdx].lgenList[vl_i].lgenIdx == vl_lGenIdx){
              vl_lGenIdxInList := vl_i;
            }
		 }
         if (vl_lGenIdxInList > -1){
         	pl_dataVarName := "EGrpDistr.ECount."&int2str(vl_eGrpIdx)&"."&int2str(vl_lGenIdxInList);
         } else {
               pl_dataVarName := %definitionId& ": EntityGroup is not on LGen: "&
                  "\n" & c_ExecCtrl_paramNameEntityGroup & ": " & vl_eGrpName &
                  "\n" & c_ExecCtrl_paramNameLGen & ": " & vl_lGenName;
               f_EPTF_ExecCtrl_warning(pl_dataVarName);
         }
       }
     }
     case (c_ExecCtrl_dataElementEGrpOffsetForLGen){
       var charstring vl_lGenName := "";
       var charstring vl_eGrpName := "";
       if (0 == f_EPTF_ExecCtrl_getParams(pl_params,
                                           {c_ExecCtrl_paramNameEntityGroup, c_ExecCtrl_paramNameLGen},
                                           pl_result)){
         vl_eGrpName := pl_result[0];
         vl_lGenName := pl_result[1];
         var integer vl_eGrpIdx := f_EPTF_ExecCtrl_getEntityGroupIdx(vl_eGrpName);
         var integer vl_lGenIdx := f_EPTF_ExecCtrl_getLGenIdx(vl_lGenName);
         var integer vl_lGenIdxInList := -1;
		 for(var integer vl_i := 0; vl_i < sizeof(v_ExecCtrl_entityGroups[vl_eGrpIdx].lgenList) ;vl_i := vl_i + 1){
            if(v_ExecCtrl_entityGroups[vl_eGrpIdx].lgenList[vl_i].lgenIdx == vl_lGenIdx){
              vl_lGenIdxInList := vl_i;
            }
		 }
         if (vl_lGenIdxInList > -1){
           pl_dataVarName := "EGrpDistr.EOffset."&int2str(vl_eGrpIdx)&"."&int2str(vl_lGenIdxInList);
         } else {
               pl_dataVarName := %definitionId& ": EntityGroup is not on LGen: "&
                  "\n" & c_ExecCtrl_paramNameEntityGroup & ": " & vl_eGrpName &
                  "\n" & c_ExecCtrl_paramNameLGen & ": " & vl_lGenName;
               f_EPTF_ExecCtrl_warning(pl_dataVarName);
         }

       }
     }
     case (c_ExecCtrl_dataElementScStatusForLGen){
       var charstring vl_eGrpName := "";
       var charstring vl_scTypeName := "";
       var charstring vl_lGenName := "";
       if (0 == f_EPTF_ExecCtrl_getParams(pl_params,
                                           {c_ExecCtrl_paramNameEntityGroup, c_ExecCtrl_paramNameScenario, c_ExecCtrl_paramNameLGen},
                                           pl_result)){
		 vl_eGrpName := pl_result[0];
         vl_scTypeName := pl_result[1];
         vl_lGenName := pl_result[2];

         pl_dataVarName := "StatusLED.Scenario.LGenStatus."&vl_lGenName&"."&vl_eGrpName&"."&vl_scTypeName;
       }
     }
     case (c_ExecCtrl_dataElementScIsWeighted){
       var charstring vl_eGrpName := "";
       var charstring vl_scName := "";
       if (0 == f_EPTF_ExecCtrl_getParams(pl_params,
                                           {c_ExecCtrl_paramNameEntityGroup, c_ExecCtrl_paramNameScenario},
                                           pl_result)){
         vl_eGrpName := pl_result[0];
         vl_scName := pl_result[1];
         var integer vl_scIdx := f_EPTF_ExecCtrl_getScenarioIdx(vl_eGrpName, vl_scName);

         pl_dataVarName := "Traffic.ScenarioType." & vl_eGrpName&"."& int2str(vl_scIdx);
       }
     }
     case (c_ExecCtrl_dataElementScStatus){
       var charstring vl_eGrpName := "";
       var charstring vl_scName := "";
       if (0 == f_EPTF_ExecCtrl_getParams(pl_params,
                                           {c_ExecCtrl_paramNameEntityGroup, c_ExecCtrl_paramNameScenario},
                                           pl_result)){
         vl_eGrpName := pl_result[0];
         vl_scName := pl_result[1];

         pl_dataVarName := "ExecCtrl.scenarioStatus."&vl_eGrpName&"."&vl_scName
       }
     }
     case (c_ExecCtrl_dataElementScStart){
       var charstring vl_eGrpName := "";
       var charstring vl_scName := "";
       if (0 == f_EPTF_ExecCtrl_getParams(pl_params,
                                           {c_ExecCtrl_paramNameEntityGroup, c_ExecCtrl_paramNameScenario},
                                           pl_result)){
         vl_eGrpName := pl_result[0];
         vl_scName := pl_result[1];

         pl_dataVarName := "ExecCtrl.startScenario."&vl_eGrpName&"."&vl_scName;
         }
     }
     case (c_ExecCtrl_dataElementScStop){
       var charstring vl_eGrpName := "";
       var charstring vl_scName := "";
       if (0 == f_EPTF_ExecCtrl_getParams(pl_params,
                                           {c_ExecCtrl_paramNameEntityGroup, c_ExecCtrl_paramNameScenario},
                                           pl_result)){
         vl_eGrpName := pl_result[0];
         vl_scName := pl_result[1];

         pl_dataVarName := "ExecCtrl.stopScenario."&vl_eGrpName&"."&vl_scName;
         }
     }
     case (c_ExecCtrl_dataElementScCPS){
       var charstring vl_eGrpName := "";
       var charstring vl_scName := "";
       if (0 == f_EPTF_ExecCtrl_getParams(pl_params,
                                           {c_ExecCtrl_paramNameEntityGroup, c_ExecCtrl_paramNameScenario},
                                           pl_result)){
         vl_eGrpName := pl_result[0];
         vl_scName := pl_result[1];
         var integer vl_scIdx := f_EPTF_ExecCtrl_getScenarioIdx(vl_eGrpName, vl_scName);

         if (not f_EPTF_ExecCtrl_isWeightedScenario(vl_scIdx)) {
           pl_dataVarName := %definitionId&": Scenario "&vl_eGrpName&"."&vl_scName&" is not weighted, only weighted scenario has ScCPS.\n";
           f_EPTF_ExecCtrl_warning(pl_dataVarName);
         }
         if (f_EPTF_ExecCtrl_isWeightedScenario(vl_scIdx)) {
        	pl_dataVarName := "Traffic.ScenarioCPS."&vl_eGrpName&"."&int2str(vl_scIdx);
         }
       }
     }
     case (c_ExecCtrl_dataElementTcStart){
       var charstring vl_entityGrpName := "";
       var charstring vl_scName := "";
       var charstring vl_tcName := "";
       if(0 == f_EPTF_ExecCtrl_getParams( pl_params,
                                            {c_ExecCtrl_paramNameEntityGroup, c_ExecCtrl_paramNameScenario, c_ExecCtrl_paramNameTrafficCase},
                                            pl_result)){
         vl_entityGrpName := pl_result[0];
         vl_scName        := pl_result[1];
         vl_tcName        := pl_result[2];
         var integer vl_eGrpIdx := f_EPTF_ExecCtrl_getEntityGroupIdx(vl_entityGrpName);
         var integer vl_scIdx := f_EPTF_ExecCtrl_getScenarioIdx(vl_entityGrpName, vl_scName);
         var integer vl_tcIdx := f_EPTF_ExecCtrl_getTrafficCaseIdx(vl_entityGrpName,vl_scName,vl_tcName);
         if( -1 == vl_eGrpIdx){
             pl_dataVarName := %definitionId& ": Datasource Parameter is wrong: "&
                "\n" & c_ExecCtrl_paramNameEntityGroup & ": " & vl_entityGrpName;
             f_EPTF_ExecCtrl_warning(pl_dataVarName);
         }
         if( -1 == vl_scIdx){
             pl_dataVarName := %definitionId& ": Datasource Parameter is wrong: "&
                "\n" & c_ExecCtrl_paramNameScenario & ": " & vl_scName;
             f_EPTF_ExecCtrl_warning(pl_dataVarName);
         }
         if( -1 == vl_tcIdx){
             pl_dataVarName := %definitionId& ": Datasource Parameter is wrong: "&
                "\n" & c_ExecCtrl_paramNameTrafficCase & ": " & vl_tcName;
             f_EPTF_ExecCtrl_warning(pl_dataVarName);
         }
         if(-1 != vl_eGrpIdx and -1 != vl_scIdx and -1 != vl_tcIdx){
           pl_dataVarName := "ExecCtrl.startTC." & vl_entityGrpName & "." & vl_scName & "." & vl_tcName;
         }
       }
     }
     case (c_ExecCtrl_dataElementTcStop){
       var charstring vl_entityGrpName := "";
       var charstring vl_scName := "";
       var charstring vl_tcName := "";
       if(0 == f_EPTF_ExecCtrl_getParams( pl_params,
                                            {c_ExecCtrl_paramNameEntityGroup, c_ExecCtrl_paramNameScenario, c_ExecCtrl_paramNameTrafficCase},
                                            pl_result)){
         vl_entityGrpName := pl_result[0];
         vl_scName        := pl_result[1];
         vl_tcName        := pl_result[2];
         var integer vl_eGrpIdx := f_EPTF_ExecCtrl_getEntityGroupIdx(vl_entityGrpName);
         var integer vl_scIdx := f_EPTF_ExecCtrl_getScenarioIdx(vl_entityGrpName, vl_scName);
         var integer vl_tcIdx := f_EPTF_ExecCtrl_getTrafficCaseIdx(vl_entityGrpName,vl_scName,vl_tcName);
         if( -1 == vl_eGrpIdx){
             pl_dataVarName := %definitionId& ": Datasource Parameter is wrong: "&
                "\n" & c_ExecCtrl_paramNameEntityGroup & ": " & vl_entityGrpName;
             f_EPTF_ExecCtrl_warning(pl_dataVarName);
         }
         if( -1 == vl_scIdx){
             pl_dataVarName := %definitionId& ": Datasource Parameter is wrong: "&
                "\n" & c_ExecCtrl_paramNameScenario & ": " & vl_scName;
             f_EPTF_ExecCtrl_warning(pl_dataVarName);
         }
         if( -1 == vl_tcIdx){
             pl_dataVarName := %definitionId& ": Datasource Parameter is wrong: "&
                "\n" & c_ExecCtrl_paramNameTrafficCase & ": " & vl_tcName;
             f_EPTF_ExecCtrl_warning(pl_dataVarName);
         }
         if(-1 != vl_eGrpIdx and -1 != vl_scIdx and -1 != vl_tcIdx){
           pl_dataVarName := "ExecCtrl.stopTC." & vl_entityGrpName & "." & vl_scName & "." & vl_tcName;
         }
       }
     }
     case (c_ExecCtrl_dataElementTcResetStats){
       var charstring vl_entityGrpName := "";
       var charstring vl_scName := "";
       var charstring vl_tcName := "";
       if(0 == f_EPTF_ExecCtrl_getParams( pl_params,
                                            {c_ExecCtrl_paramNameEntityGroup, c_ExecCtrl_paramNameScenario, c_ExecCtrl_paramNameTrafficCase},
                                            pl_result)){
         vl_entityGrpName := pl_result[0];
         vl_scName        := pl_result[1];
         vl_tcName        := pl_result[2];
         var integer vl_eGrpIdx := f_EPTF_ExecCtrl_getEntityGroupIdx(vl_entityGrpName);
         var integer vl_scIdx := f_EPTF_ExecCtrl_getScenarioIdx(vl_entityGrpName, vl_scName);
         var integer vl_tcIdx := f_EPTF_ExecCtrl_getTrafficCaseIdx(vl_entityGrpName,vl_scName,vl_tcName);
         if( -1 == vl_eGrpIdx){
             pl_dataVarName := %definitionId& ": Datasource Parameter is wrong: "&
                "\n" & c_ExecCtrl_paramNameEntityGroup & ": " & vl_entityGrpName;
             f_EPTF_ExecCtrl_warning(pl_dataVarName);
         }
         if( -1 == vl_scIdx){
             pl_dataVarName := %definitionId& ": Datasource Parameter is wrong: "&
                "\n" & c_ExecCtrl_paramNameScenario & ": " & vl_scName;
             f_EPTF_ExecCtrl_warning(pl_dataVarName);
         }
         if( -1 == vl_tcIdx){
             pl_dataVarName := %definitionId& ": Datasource Parameter is wrong: "&
                "\n" & c_ExecCtrl_paramNameTrafficCase & ": " & vl_tcName;
             f_EPTF_ExecCtrl_warning(pl_dataVarName);
         }
         if(-1 != vl_eGrpIdx and -1 != vl_scIdx and -1 != vl_tcIdx){
           pl_dataVarName := "ExecCtrl.resetStatsTC." & vl_entityGrpName & "." & vl_scName & "." & vl_tcName;
         }
       }
     }
     case (c_ExecCtrl_dataElementTcResetFSMStats){
       var charstring vl_entityGrpName := "";
       var charstring vl_scName := "";
       var charstring vl_tcName := "";
       if(0 == f_EPTF_ExecCtrl_getParams( pl_params,
                                            {c_ExecCtrl_paramNameEntityGroup, c_ExecCtrl_paramNameScenario, c_ExecCtrl_paramNameTrafficCase},
                                            pl_result)){
         vl_entityGrpName := pl_result[0];
         vl_scName        := pl_result[1];
         vl_tcName        := pl_result[2];
         
         var integer vl_eGrpIdx := f_EPTF_ExecCtrl_getEntityGroupIdx(vl_entityGrpName);
         var integer vl_scIdx := f_EPTF_ExecCtrl_getScenarioIdx(vl_entityGrpName, vl_scName);
         var integer vl_tcIdx := f_EPTF_ExecCtrl_getTrafficCaseIdx(vl_entityGrpName,vl_scName,vl_tcName);
         if( -1 == vl_eGrpIdx){
             pl_dataVarName := %definitionId& ": Datasource Parameter is wrong: "&
                "\n" & c_ExecCtrl_paramNameEntityGroup & ": " & vl_entityGrpName;
             f_EPTF_ExecCtrl_warning(pl_dataVarName);
         }
         if( -1 == vl_scIdx){
             pl_dataVarName := %definitionId& ": Datasource Parameter is wrong: "&
                "\n" & c_ExecCtrl_paramNameScenario & ": " & vl_scName;
             f_EPTF_ExecCtrl_warning(pl_dataVarName);
         }
         if( -1 == vl_tcIdx){
             pl_dataVarName := %definitionId& ": Datasource Parameter is wrong: "&
                "\n" & c_ExecCtrl_paramNameTrafficCase & ": " & vl_tcName;
             f_EPTF_ExecCtrl_warning(pl_dataVarName);
         }
         if(-1 != vl_eGrpIdx and -1 != vl_scIdx and -1 != vl_tcIdx){
           pl_dataVarName := "ExecCtrl.resetFSMStatsTC." & vl_entityGrpName & "." & vl_scName & "." & vl_tcName;
         }
       }
     }
     case (c_ExecCtrl_dataElementAllTcResetStats){
       var charstring vl_entityGrpName := "";
       var charstring vl_scName := "";
       var charstring vl_tcName := "";
       if(0 == sizeof(pl_params)){
           pl_dataVarName := "ExecCtrl.resetStatsAllTC";
       }
     }
     case (c_ExecCtrl_dataElementAllTcResetFSMStats){
       var charstring vl_entityGrpName := "";
       var charstring vl_scName := "";
       var charstring vl_tcName := "";
       if(0 == sizeof(pl_params)){
           pl_dataVarName := "ExecCtrl.resetFSMStatsAllTC";
       }
     }
     case (c_ExecCtrl_dataElementTcStartDelay){
       var charstring vl_entityGrpName := "";
       var charstring vl_scName := "";
       var charstring vl_tcName := "";
       if(0 == f_EPTF_ExecCtrl_getParams( pl_params,
                                            {c_ExecCtrl_paramNameEntityGroup, c_ExecCtrl_paramNameScenario, c_ExecCtrl_paramNameTrafficCase},
                                            pl_result)){
         vl_entityGrpName := pl_result[0];
         vl_scName        := pl_result[1];
         vl_tcName        := pl_result[2];
         var integer vl_eGrpIdx := f_EPTF_ExecCtrl_getEntityGroupIdx(vl_entityGrpName);
         var integer vl_scIdx := f_EPTF_ExecCtrl_getScenarioIdx(vl_entityGrpName, vl_scName);
         var integer vl_tcIdx := f_EPTF_ExecCtrl_getTrafficCaseIdx(vl_entityGrpName,vl_scName,vl_tcName);
         var integer vl_tcIdxRel := f_EPTF_ExecCtrl_getTcOfScenarioIdx(vl_tcIdx);

         if( -1 == vl_eGrpIdx){
             pl_dataVarName := %definitionId& ": Datasource Parameter is wrong: "&
                "\n" & c_ExecCtrl_paramNameEntityGroup & ": " & vl_entityGrpName;
             f_EPTF_ExecCtrl_warning(pl_dataVarName);
         }
         if( -1 == vl_scIdx){
             pl_dataVarName := %definitionId& ": Datasource Parameter is wrong: "&
                "\n" & c_ExecCtrl_paramNameScenario & ": " & vl_scName;
             f_EPTF_ExecCtrl_warning(pl_dataVarName);
         }
         if( -1 == vl_tcIdx){
             pl_dataVarName := %definitionId& ": Datasource Parameter is wrong: "&
                "\n" & c_ExecCtrl_paramNameTrafficCase & ": " & vl_tcName;
             f_EPTF_ExecCtrl_warning(pl_dataVarName);
         }
         if( -1 == vl_tcIdxRel){
             pl_dataVarName := %definitionId& ": Datasource Parameter is wrong: "&
                "\n" & c_ExecCtrl_paramNameTrafficCase & ": " & vl_tcName;
             f_EPTF_ExecCtrl_warning(pl_dataVarName);
         }
         if (f_EPTF_ExecCtrl_isWeightedScenario(vl_scIdx)) {
           pl_dataVarName := %definitionId&": Scenario "&vl_entityGrpName&"."&vl_scName&" is weighted, only non-weighted scenario has TcStartDelay.\n";
           f_EPTF_ExecCtrl_warning(pl_dataVarName);
         }
         if(-1 != vl_eGrpIdx and -1 != vl_scIdx and -1 != vl_tcIdxRel and not f_EPTF_ExecCtrl_isWeightedScenario(vl_scIdx)){
           pl_dataVarName := "Traffic.TCDelay." & vl_entityGrpName & "." & int2str(vl_scIdx) & "." & int2str(vl_tcIdxRel)
         }
       }
     }
     case (c_ExecCtrl_dataElementTcTargetCPSOrWeight){
       var charstring vl_entityGrpName := "";
       var charstring vl_scName := "";
       var charstring vl_tcName := "";
       if(0 == f_EPTF_ExecCtrl_getParams( pl_params,
                                            {c_ExecCtrl_paramNameEntityGroup, c_ExecCtrl_paramNameScenario, c_ExecCtrl_paramNameTrafficCase},
                                            pl_result)){
         vl_entityGrpName := pl_result[0];
         vl_scName        := pl_result[1];
         vl_tcName        := pl_result[2];
         var integer vl_eGrpIdx := f_EPTF_ExecCtrl_getEntityGroupIdx(vl_entityGrpName);
         var integer vl_scIdx := f_EPTF_ExecCtrl_getScenarioIdx(vl_entityGrpName, vl_scName);
         var integer vl_tcIdx := f_EPTF_ExecCtrl_getTrafficCaseIdx(vl_entityGrpName,vl_scName,vl_tcName);
         if( -1 == vl_eGrpIdx){
             pl_dataVarName := %definitionId& ": Datasource Parameter is wrong: "&
                "\n" & c_ExecCtrl_paramNameEntityGroup & ": " & vl_entityGrpName;
             f_EPTF_ExecCtrl_warning(pl_dataVarName);
         }
         if( -1 == vl_scIdx){
             pl_dataVarName := %definitionId& ": Datasource Parameter is wrong: "&
                "\n" & c_ExecCtrl_paramNameScenario & ": " & vl_scName;
             f_EPTF_ExecCtrl_warning(pl_dataVarName);
         }
         if( -1 == vl_tcIdx){
             pl_dataVarName := %definitionId& ": Datasource Parameter is wrong: "&
                "\n" & c_ExecCtrl_paramNameTrafficCase & ": " & vl_tcName;
             f_EPTF_ExecCtrl_warning(pl_dataVarName);
         } else {
           var integer vl_tcOfScIdx := f_EPTF_ExecCtrl_getTcOfScenarioIdx(vl_tcIdx);
           if( -1 == vl_tcOfScIdx){
             pl_dataVarName := %definitionId& ": Datasource Parameter is wrong: "&
               "\n" & c_ExecCtrl_paramNameTrafficCase & ": " & vl_tcName;
             f_EPTF_ExecCtrl_warning(pl_dataVarName);
           } else if(-1 != vl_eGrpIdx and -1 != vl_scIdx){
             pl_dataVarName := "Traffic.TCCPS." & vl_entityGrpName & "." & int2str(vl_scIdx) & "." & int2str(vl_tcOfScIdx)
           }
         }
       }
     }
     case (c_ExecCtrl_dataElementTcTimeProfile){
       var charstring vl_entityGrpName := "";
       var charstring vl_scName := "";
       var charstring vl_tcName := "";
       if(0 == f_EPTF_ExecCtrl_getParams( pl_params,
                                            {c_ExecCtrl_paramNameEntityGroup, c_ExecCtrl_paramNameScenario, c_ExecCtrl_paramNameTrafficCase},
                                            pl_result)){
         vl_entityGrpName := pl_result[0];
         vl_scName        := pl_result[1];
         vl_tcName        := pl_result[2];
         var integer vl_eGrpIdx := f_EPTF_ExecCtrl_getEntityGroupIdx(vl_entityGrpName);
         var integer vl_scIdx := f_EPTF_ExecCtrl_getScenarioIdx(vl_entityGrpName, vl_scName);
         var integer vl_tcIdx := f_EPTF_ExecCtrl_getTrafficCaseIdx(vl_entityGrpName,vl_scName,vl_tcName);
         var integer vl_tcOfScIdx := f_EPTF_ExecCtrl_getTcOfScenarioIdx(vl_tcIdx);
         if( -1 == vl_eGrpIdx){
             pl_dataVarName := %definitionId& ": Datasource Parameter is wrong: "&
                "\n" & c_ExecCtrl_paramNameEntityGroup & ": " & vl_entityGrpName;
             f_EPTF_ExecCtrl_warning(pl_dataVarName);
         }
         if( -1 == vl_scIdx){
             pl_dataVarName := %definitionId& ": Datasource Parameter is wrong: "&
                "\n" & c_ExecCtrl_paramNameScenario & ": " & vl_scName;
             f_EPTF_ExecCtrl_warning(pl_dataVarName);
         }
         if( -1 == vl_tcIdx){
             pl_dataVarName := %definitionId& ": Datasource Parameter is wrong: "&
                "\n" & c_ExecCtrl_paramNameTrafficCase & ": " & vl_tcName;
             f_EPTF_ExecCtrl_warning(pl_dataVarName);
         }
         if( -1 == vl_tcOfScIdx){
             pl_dataVarName := %definitionId& ": Datasource Parameter is wrong: "&
                "\n" & c_ExecCtrl_paramNameTrafficCase & ": " & vl_tcName;
             f_EPTF_ExecCtrl_warning(pl_dataVarName);
         }

         if (f_EPTF_ExecCtrl_isWeightedScenario(vl_scIdx) and vl_tcOfScIdx != 0 ) {
             pl_dataVarName := %definitionId&": Scenario can have TimeProfile only in the case of scenario is non-weighted or if scenario is weighted and tc is the first within scenario .\n";
             f_EPTF_ExecCtrl_warning(pl_dataVarName);
         }

         if(-1 != vl_eGrpIdx and -1 != vl_scIdx and -1 != vl_tcOfScIdx and ((not f_EPTF_ExecCtrl_isWeightedScenario(vl_scIdx) ) or
	 (f_EPTF_ExecCtrl_isWeightedScenario(vl_scIdx) and vl_tcOfScIdx == 0) ) ){
           pl_dataVarName := "Traffic.TimeProfile." & vl_entityGrpName & "." & int2str(vl_scIdx) & "." & int2str(vl_tcOfScIdx)
         }
       }
     }
     case (c_ExecCtrl_dataElementTcRegulator){
       var charstring vl_entityGrpName := "";
       var charstring vl_scName := "";
       var charstring vl_tcName := ""; //optional
       if(sizeof(pl_params) == 2){
           if(0 == f_EPTF_ExecCtrl_getParams( pl_params,
                                                {c_ExecCtrl_paramNameEntityGroup, c_ExecCtrl_paramNameScenario},
                                                pl_result)){
             vl_entityGrpName := pl_result[0];
             vl_scName        := pl_result[1];
             var integer vl_eGrpIdx := f_EPTF_ExecCtrl_getEntityGroupIdx(vl_entityGrpName);
             var integer vl_scIdx := f_EPTF_ExecCtrl_getScenarioIdx(vl_entityGrpName, vl_scName);
             if( -1 == vl_eGrpIdx){
                 pl_dataVarName := %definitionId& ": Datasource Parameter is wrong: "&
                    "\n" & c_ExecCtrl_paramNameEntityGroup & ": " & vl_entityGrpName;
                 f_EPTF_ExecCtrl_warning(pl_dataVarName);
             }
             if( -1 == vl_scIdx){
                 pl_dataVarName := %definitionId& ": Datasource Parameter is wrong: "&
                    "\n" & c_ExecCtrl_paramNameScenario & ": " & vl_scName;
                 f_EPTF_ExecCtrl_warning(pl_dataVarName);
             }
             if (f_EPTF_ExecCtrl_isWeightedScenario(vl_scIdx)) {
               pl_dataVarName := %definitionId&": Scenario "&vl_entityGrpName&"."&vl_scName&" is weighted, it cannot have a TC regulator.\n";
               f_EPTF_ExecCtrl_warning(pl_dataVarName);
             }
             if(-1 != vl_eGrpIdx and -1 != vl_scIdx and not f_EPTF_ExecCtrl_isWeightedScenario(vl_scIdx)){
                pl_dataVarName := "Traffic.Regulator." & vl_entityGrpName & "." & int2str(vl_scIdx);
             }
           }
       } else {
           if(0 == f_EPTF_ExecCtrl_getParams( pl_params,
                                               {c_ExecCtrl_paramNameEntityGroup, c_ExecCtrl_paramNameScenario, c_ExecCtrl_paramNameTrafficCase},
                                               pl_result)){
             vl_entityGrpName := pl_result[0];
             vl_scName        := pl_result[1];
             vl_tcName        := pl_result[2];
             var integer vl_eGrpIdx := f_EPTF_ExecCtrl_getEntityGroupIdx(vl_entityGrpName);
             var integer vl_scIdx := f_EPTF_ExecCtrl_getScenarioIdx(vl_entityGrpName, vl_scName);
             var integer vl_tcIdx := f_EPTF_ExecCtrl_getTrafficCaseIdx(vl_entityGrpName,vl_scName,vl_tcName);
             var integer vl_tcIdxRel := -1;
             if( -1 != vl_tcIdx){
	              vl_tcIdxRel := v_ExecCtrl_trafficCases[vl_tcIdx].tcOfScenarioIdx;
             }
             if( -1 == vl_eGrpIdx){
                 pl_dataVarName := %definitionId& ": Datasource Parameter is wrong: "&
                    "\n" & c_ExecCtrl_paramNameEntityGroup & ": " & vl_entityGrpName;
                 f_EPTF_ExecCtrl_warning(pl_dataVarName);
             }
             if( -1 == vl_scIdx){
                 pl_dataVarName := %definitionId& ": Datasource Parameter is wrong: "&
                    "\n" & c_ExecCtrl_paramNameScenario & ": " & vl_scName;
                 f_EPTF_ExecCtrl_warning(pl_dataVarName);
             }
             if (f_EPTF_ExecCtrl_isWeightedScenario(vl_scIdx)) {
               pl_dataVarName := %definitionId&": Scenario "&vl_entityGrpName&"."&vl_scName&" is weighted, it cannot have a TC regulator.\n";
               f_EPTF_ExecCtrl_warning(pl_dataVarName);
             }
             if( -1 == vl_tcIdx){
                 pl_dataVarName := %definitionId& ": Datasource Parameter is wrong: "&
                    "\n" & c_ExecCtrl_paramNameTrafficCase & ": " & vl_tcName;
                 f_EPTF_ExecCtrl_warning(pl_dataVarName);
             }
             if( -1 == vl_tcIdxRel){
                 pl_dataVarName := %definitionId& ": Datasource Parameter is wrong: "&
                    "\n" & c_ExecCtrl_paramNameTrafficCase & ": " & vl_tcName;
                 f_EPTF_ExecCtrl_warning(pl_dataVarName);
             }
             if(-1 != vl_eGrpIdx and -1 != vl_scIdx and -1 != vl_tcIdxRel){
                pl_dataVarName := "Traffic.Regulator." & vl_entityGrpName & "." & int2str(vl_scIdx) & "." & int2str(vl_tcIdxRel)
             }
           }
       }
     }
     case (c_ExecCtrl_dataElementRegulatedItemType){
       var charstring vl_regulatedItemId := "";
       if(0 == f_EPTF_ExecCtrl_getParams( pl_params,
                                            {c_ExecCtrl_paramNameRegulatedItemId},
                                            pl_result)){
         vl_regulatedItemId := pl_result[0];
         var integer vl_key := -1;
         if (f_EPTF_str2int_HashMap_Find(v_ExecCtrl_regulatedItemsHash, vl_regulatedItemId, vl_key)){
            pl_dataVarName := "RegulatedItemType." & int2str(vl_key);
         } else {
             pl_dataVarName := %definitionId& ": Datasource Parameter is wrong."&
              "\n" & c_ExecCtrl_paramNameRegulatedItemId & ": " & vl_regulatedItemId;
             f_EPTF_ExecCtrl_warning(pl_dataVarName);
         }
       }
     }
     case (c_ExecCtrl_dataElementRegulatedItemName){
       var charstring vl_regulatedItemId := "";
       if(0 == f_EPTF_ExecCtrl_getParams( pl_params,
                                            {c_ExecCtrl_paramNameRegulatedItemId},
                                            pl_result)){
         vl_regulatedItemId := pl_result[0];
         var integer vl_key := -1;
         if (f_EPTF_str2int_HashMap_Find(v_ExecCtrl_regulatedItemsHash, vl_regulatedItemId, vl_key)){
            pl_dataVarName := "RegulatedItemName." & int2str(vl_key);
         } else {
             pl_dataVarName := %definitionId& ": Datasource Parameter is wrong."&
              "\n" & c_ExecCtrl_paramNameRegulatedItemId & ": " & vl_regulatedItemId;
             f_EPTF_ExecCtrl_warning(pl_dataVarName);
         }
       }
     }
     case (c_ExecCtrl_dataElementRegulatorName){
       var charstring vl_regulatedItemId := "";
       if(0 == f_EPTF_ExecCtrl_getParams( pl_params,
                                            {c_ExecCtrl_paramNameRegulatedItemId},
                                            pl_result)){
         vl_regulatedItemId := pl_result[0];
         var integer vl_key := -1;
         if (f_EPTF_str2int_HashMap_Find(v_ExecCtrl_regulatedItemsHash, vl_regulatedItemId, vl_key)){
            pl_dataVarName := f_EPTF_ExecCtrl_getRegulatorNameVarName(v_EPTF_ExecCtrl_RegulatedItems[vl_key].idName, vl_key);
         } else {
             pl_dataVarName := %definitionId& ": Datasource Parameter is wrong."&
              "\n" & c_ExecCtrl_paramNameRegulatedItemId & ": " & vl_regulatedItemId;
             f_EPTF_ExecCtrl_warning(pl_dataVarName);
         }
       }
     }
     case (c_ExecCtrl_dataElementRegulatedItemWeight){
       var charstring vl_regulatedItemId := "";
       if(0 == f_EPTF_ExecCtrl_getParams( pl_params,
                                            {c_ExecCtrl_paramNameRegulatedItemId},
                                            pl_result)){
         vl_regulatedItemId := pl_result[0];
         var integer vl_key := -1;
         if (f_EPTF_str2int_HashMap_Find(v_ExecCtrl_regulatedItemsHash, vl_regulatedItemId, vl_key)){
            pl_dataVarName := "RegulatedItemWeight." & int2str(vl_key);
         } else {
             pl_dataVarName := %definitionId& ": Datasource Parameter is wrong."&
              "\n" & c_ExecCtrl_paramNameRegulatedItemId & ": " & vl_regulatedItemId;
             f_EPTF_ExecCtrl_warning(pl_dataVarName);
         }
       }
     }
     case (c_ExecCtrl_dataElementRegulatedItemEnabled){
       var charstring vl_regulatedItemId := "";
       if(0 == f_EPTF_ExecCtrl_getParams( pl_params,
                                            {c_ExecCtrl_paramNameRegulatedItemId},
                                            pl_result)){
         vl_regulatedItemId := pl_result[0];
         var integer vl_key := -1;
         if (f_EPTF_str2int_HashMap_Find(v_ExecCtrl_regulatedItemsHash, vl_regulatedItemId, vl_key)){
            pl_dataVarName := "RegulatedItemEnabled." & int2str(vl_key);
         } else {
             pl_dataVarName := %definitionId& ": Datasource Parameter is wrong."&
              "\n" & c_ExecCtrl_paramNameRegulatedItemId & ": " & vl_regulatedItemId;
             f_EPTF_ExecCtrl_warning(pl_dataVarName);
         }
       }
     }
     case (c_ExecCtrl_dataElementRegulatorTotalValue){
       var charstring vl_regulatorName := "";
       if(0 == f_EPTF_ExecCtrl_getParams( pl_params,
                                            {c_ExecCtrl_paramNameRegulatorName},
                                            pl_result)){
         vl_regulatorName := pl_result[0];
         var integer vl_regulatorId := f_EPTF_ExecCtrl_Regulator_getRegulatorId(vl_regulatorName);
         if(vl_regulatorId != -1){
           pl_dataVarName := f_EPTF_Var_getName(f_EPTF_ExecCtrl_Regulator_getRegulatorTotalValueIdxByRegulatorId(vl_regulatorId));
         } else {
             pl_dataVarName := %definitionId& ": Datasource Parameter is wrong."&
              "\n" & c_ExecCtrl_paramNameRegulatorName & ": " & vl_regulatorName;
             f_EPTF_ExecCtrl_warning(pl_dataVarName);
         }
       }
     }
     case (c_ExecCtrl_dataElementRegulatorTargetLoad){
       var charstring vl_regulatorName := "";
       if(0 == f_EPTF_ExecCtrl_getParams( pl_params,
                                            {c_ExecCtrl_paramNameRegulatorName},
                                            pl_result)){
         vl_regulatorName := pl_result[0];
         var integer vl_regulatorId := f_EPTF_ExecCtrl_Regulator_getRegulatorId(vl_regulatorName);
         if(vl_regulatorId != -1){
           pl_dataVarName := f_EPTF_Var_getName(f_EPTF_ExecCtrl_Regulator_getRegulatorTargetLoadIdxByRegulatorId(vl_regulatorId));
         } else {
             pl_dataVarName := %definitionId& ": Datasource Parameter is wrong."&
              "\n" & c_ExecCtrl_paramNameRegulatorName & ": " & vl_regulatorName;
             f_EPTF_ExecCtrl_warning(pl_dataVarName);
         }
       }
     }
     case (c_ExecCtrl_dataElementRegulatorCurrentLoad){
       var charstring vl_regulatorName := "";
       if(0 == f_EPTF_ExecCtrl_getParams( pl_params,
                                            {c_ExecCtrl_paramNameRegulatorName},
                                            pl_result)){
         vl_regulatorName := pl_result[0];
         var integer vl_regulatorId := f_EPTF_ExecCtrl_Regulator_getRegulatorId(vl_regulatorName);
         if(vl_regulatorId != -1){
           pl_dataVarName := f_EPTF_Var_getName(f_EPTF_ExecCtrl_Regulator_getRegulatorCurrentLoadIdxByRegulatorId(vl_regulatorId));
         } else {
             pl_dataVarName := %definitionId& ": Datasource Parameter is wrong."&
              "\n" & c_ExecCtrl_paramNameRegulatorName & ": " & vl_regulatorName;
             f_EPTF_ExecCtrl_warning(pl_dataVarName);
         }
       }
     }
     case (c_ExecCtrl_dataElementRegulatorStatus){
       var charstring vl_regulatorName := "";
       if(0 == f_EPTF_ExecCtrl_getParams( pl_params,
                                            {c_ExecCtrl_paramNameRegulatorName},
                                            pl_result)){
         vl_regulatorName := pl_result[0];
         var integer vl_regulatorId := f_EPTF_ExecCtrl_Regulator_getRegulatorId(vl_regulatorName);
         if(vl_regulatorId != -1){
           pl_dataVarName := f_EPTF_Var_getName(f_EPTF_ExecCtrl_Regulator_getRegulatorStatusIdxByRegulatorId(vl_regulatorId));
         } else {
             pl_dataVarName := %definitionId& ": Datasource Parameter is wrong."&
              "\n" & c_ExecCtrl_paramNameRegulatorName & ": " & vl_regulatorName;
             f_EPTF_ExecCtrl_warning(pl_dataVarName);
         }
       }
     }
     case (c_ExecCtrl_dataElementNofDeployedLGens){
       // this if is needed to avoid false warning if the second param version is used:
       if (sizeof(pl_params)==1 and pl_params[0].paramName == c_ExecCtrl_paramNameEntityGroup) {
         if(0 == f_EPTF_ExecCtrl_getParams( pl_params,
                                            {c_ExecCtrl_paramNameEntityGroup},
                                            pl_result)){
           var charstring vl_entityGrpName := "";
           vl_entityGrpName := pl_result[0];
           if( -1 != f_EPTF_ExecCtrl_getEntityGroupIdx(vl_entityGrpName)){
             pl_dataVarName := c_EPTF_ExecCtrl_statisticsRoot&".EG."&vl_entityGrpName&".nofLGens"
           } else {
               pl_dataVarName := %definitionId& ": Datasource Parameter is wrong."&
                "\n" & c_ExecCtrl_paramNameEntityGroup & ": " & vl_entityGrpName;
               f_EPTF_ExecCtrl_warning(pl_dataVarName);
           }
         }
       } else {
	  if(0 == f_EPTF_ExecCtrl_getParams( pl_params,
                                              {c_ExecCtrl_paramNameScenarioInstance},
                                              pl_result)){
            var charstring vl_scInstanceName := pl_result[0];
            var integer vl_scenarioIdx := f_EPTF_ExecCtrl_getScenarioIdxByInstanceName(vl_scInstanceName);
	    if( -1 != vl_scenarioIdx ){
    	      pl_dataVarName := c_EPTF_ExecCtrl_statisticsRoot&".EG."&v_ExecCtrl_entityGroups[v_ExecCtrl_scenarios[vl_scenarioIdx].eGroupIdx].name&".nofLGens"
            } else {
              pl_dataVarName := %definitionId& ": Datasource Parameter is wrong."&
              "\n" & c_ExecCtrl_paramNameScenarioInstance & ": " & vl_scInstanceName;
              f_EPTF_ExecCtrl_warning(pl_dataVarName);
            }

          }

       }
     }
     case (c_ExecCtrl_dataElementNofActiveEntities){
       var charstring vl_entityGrpName := "";
       if(0 == f_EPTF_ExecCtrl_getParams( pl_params,
                                            {c_ExecCtrl_paramNameEntityGroup},
                                            pl_result)){
         vl_entityGrpName := pl_result[0];
         if( -1 != f_EPTF_ExecCtrl_getEntityGroupIdx(vl_entityGrpName)){
           pl_dataVarName := c_EPTF_ExecCtrl_statisticsRoot&".EG."&vl_entityGrpName&".nofActiveEntities"
         } else {
             pl_dataVarName := %definitionId& ": Datasource Parameter is wrong."&
              "\n" & c_ExecCtrl_paramNameEntityGroup & ": " & vl_entityGrpName;
             f_EPTF_ExecCtrl_warning(pl_dataVarName);
         }
       }
     }
     case (c_ExecCtrl_dataElementScStatus){
       var charstring vl_entityGrpName := "";
       var charstring vl_scName := "";
       if(0 == f_EPTF_ExecCtrl_getParams( pl_params,
                                            {c_ExecCtrl_paramNameEntityGroup, c_ExecCtrl_paramNameScenario},
                                            pl_result)){
         vl_entityGrpName := pl_result[0];
         vl_scName        := pl_result[1];
         if( -1 == f_EPTF_ExecCtrl_getEntityGroupIdx(vl_entityGrpName)){
             pl_dataVarName := %definitionId& ": Datasource Parameter is wrong."&
              "\n" & c_ExecCtrl_paramNameEntityGroup & ": " & vl_entityGrpName;
             f_EPTF_ExecCtrl_warning(pl_dataVarName);
         }
         var integer vl_scIdx := f_EPTF_ExecCtrl_getScenarioIdx(vl_entityGrpName, vl_scName);
         if( -1 == vl_scIdx){
             pl_dataVarName := %definitionId& ": Datasource Parameter is wrong."&
              "\n" & c_ExecCtrl_paramNameScenario & ": " & vl_scName;
             f_EPTF_ExecCtrl_warning(pl_dataVarName);
         }
         if( -1 != vl_scIdx ){
           var charstring vl_scTypeName := v_ExecCtrl_scenarios[vl_scIdx].scData.name;
           pl_dataVarName := "ExecCtrl.scenarioStatus."& vl_entityGrpName &"." & vl_scTypeName
         }
       }

     }
     case (c_ExecCtrl_dataElementScTargetCPS){
       var charstring vl_entityGrpName := "";
       var charstring vl_scName := "";
       if(0 == f_EPTF_ExecCtrl_getParams( pl_params,
                                            {c_ExecCtrl_paramNameEntityGroup, c_ExecCtrl_paramNameScenario},
                                            pl_result)){
         vl_entityGrpName := pl_result[0];
         vl_scName        := pl_result[1];
         if( -1 == f_EPTF_ExecCtrl_getEntityGroupIdx(vl_entityGrpName)){
             pl_dataVarName := %definitionId& ": Datasource Parameter is wrong."&
              "\n" & c_ExecCtrl_paramNameEntityGroup & ": " & vl_entityGrpName;
             f_EPTF_ExecCtrl_warning(pl_dataVarName);
         }
         var integer vl_scIdx := f_EPTF_ExecCtrl_getScenarioIdx(vl_entityGrpName, vl_scName);
         if( -1 == vl_scIdx){
             pl_dataVarName := %definitionId& ": Datasource Parameter is wrong."&
              "\n" & c_ExecCtrl_paramNameScenario & ": " & vl_scName;
             f_EPTF_ExecCtrl_warning(pl_dataVarName);
         }
         if( -1 != vl_scIdx ){
           if (not f_EPTF_ExecCtrl_isWeightedScenario(vl_scIdx)) {
             pl_dataVarName := %definitionId&"Warning: Scenario "&vl_entityGrpName&"."&vl_scName&" is not weighted \n";
             f_EPTF_ExecCtrl_warning(pl_dataVarName);
           }
           pl_dataVarName := "Traffic.ScenarioCPS."& vl_entityGrpName &"." & int2str(vl_scIdx)
         }
       }
     }
     case (c_ExecCtrl_dataElementScRegulatorName){
       var charstring vl_entityGrpName := "";
       var charstring vl_scName := "";
       if(0 == f_EPTF_ExecCtrl_getParams( pl_params,
                                            {c_ExecCtrl_paramNameEntityGroup, c_ExecCtrl_paramNameScenario},
                                            pl_result)){
         vl_entityGrpName := pl_result[0];
         vl_scName        := pl_result[1];
         if( -1 == f_EPTF_ExecCtrl_getEntityGroupIdx(vl_entityGrpName)){
             pl_dataVarName := %definitionId& ": Datasource Parameter is wrong."&
              "\n" & c_ExecCtrl_paramNameEntityGroup & ": " & vl_entityGrpName;
             f_EPTF_ExecCtrl_warning(pl_dataVarName);
         }
         var integer vl_scIdx := f_EPTF_ExecCtrl_getScenarioIdx(vl_entityGrpName, vl_scName);
         if( -1 == vl_scIdx){
             pl_dataVarName := %definitionId& ": Datasource Parameter is wrong."&
              "\n" & c_ExecCtrl_paramNameScenario & ": " & vl_scName;
             f_EPTF_ExecCtrl_warning(pl_dataVarName);
         }
         if( -1 != vl_scIdx ){
           if (not f_EPTF_ExecCtrl_isWeightedScenario(vl_scIdx)) {
             pl_dataVarName := %definitionId&"Warning: Scenario "&vl_entityGrpName&"."&vl_scName&" is not weighted \n";
             f_EPTF_ExecCtrl_warning(pl_dataVarName);
           }
           pl_dataVarName := "Traffic.Regulator."& vl_entityGrpName &"." & int2str(vl_scIdx)
         }
       }
     }
     case (c_ExecCtrl_dataElementScGrpCurrentPhase){
       if(0 == f_EPTF_ExecCtrl_getParams( pl_params, {c_ExecCtrl_paramNameScenarioGroup}, pl_result, true)){
         var integer vl_scGrpIdx := f_EPTF_ExecCtrl_ScenarioGroup_getIdx(pl_result[0])
          pl_dataVarName := "Var."& "Execution_Control.PhaseLists.tabbox"&"."&v_ExecCtrl_ScenarioGroupInstanceDB.data[vl_scGrpIdx].groupPhaseList.name&".tab" &
          "." & pl_result[0] & ".GroupPhase";
       } else if(0 == f_EPTF_ExecCtrl_getParams( pl_params,
                                            {c_ExecCtrl_paramNameEntityGroup, c_ExecCtrl_paramNameScenario},
                                            pl_result))
       {
         var charstring vl_entityGrpName := "";
         var charstring vl_scName := "";

         vl_entityGrpName := pl_result[0];
         vl_scName        := pl_result[1];
         if( -1 == f_EPTF_ExecCtrl_getEntityGroupIdx(vl_entityGrpName)){
             pl_dataVarName := %definitionId& ": Datasource Parameter is wrong."&
              "\n" & c_ExecCtrl_paramNameEntityGroup & ": " & vl_entityGrpName;
             f_EPTF_ExecCtrl_warning(pl_dataVarName);
         }
         var integer vl_scIdx := f_EPTF_ExecCtrl_getScenarioIdx(vl_entityGrpName, vl_scName);
         if( -1 == vl_scIdx){
             pl_dataVarName := %definitionId& ": Datasource Parameter is wrong."&
              "\n" & c_ExecCtrl_paramNameScenario & ": " & vl_scName;
             f_EPTF_ExecCtrl_warning(pl_dataVarName);
         }
         var integer vl_scGrpIdx := f_EPTF_ExecCtrl_ScenarioGroup_get_byScIndex(vl_scIdx);
         if( -1 != vl_scGrpIdx ){
            pl_dataVarName := "Var."&f_EPTF_ExecCtrl_UIVars_getScenarioGroupTableName_FromScenarioGroupDB(vl_scGrpIdx) & ".GroupPhase"
         } else {
           pl_dataVarName := %definitionId& ": Datasource Parameter is wrong. Scenario should be in a group: "&vl_scName;
           f_EPTF_ExecCtrl_warning(pl_dataVarName);
         }
       }
     }
     //ethjgy
     case (c_ExecCtrl_dataElementScGrpMode){
       if(0 == f_EPTF_ExecCtrl_getParams( pl_params, {c_ExecCtrl_paramNameScenarioGroup}, pl_result, true)){
         var integer vl_scGrpIdx := f_EPTF_ExecCtrl_ScenarioGroup_getIdx(pl_result[0])
         pl_dataVarName := "Var."& "Execution_Control.PhaseLists.tabbox"&"."&v_ExecCtrl_ScenarioGroupInstanceDB.data[vl_scGrpIdx].groupPhaseList.name&".tab" &
         "." & pl_result[0] & ".GroupMode";
       } else if(0 == f_EPTF_ExecCtrl_getParams(
         pl_params,
         {c_ExecCtrl_paramNameEntityGroup, c_ExecCtrl_paramNameScenario},
         pl_result))
      {
         var charstring vl_eGrpName := "";
         var charstring vl_scName := "";
         vl_eGrpName := pl_result[0];
         vl_scName   := pl_result[1];
         var integer vl_scIdx := f_EPTF_ExecCtrl_getScenarioIdx(vl_eGrpName, vl_scName);
         var integer vl_scGrpIdx := f_EPTF_ExecCtrl_ScenarioGroup_get_byScIndex(vl_scIdx);
         if (vl_scGrpIdx!=-1) {
           pl_dataVarName := "Var."&f_EPTF_ExecCtrl_UIVars_getScenarioGroupTableName_FromScenarioGroupDB(vl_scGrpIdx) & ".GroupMode";
         } else {
           pl_dataVarName := %definitionId& ": Datasource Parameter is wrong. Scenario should be in a group: "&vl_scName;
           f_EPTF_ExecCtrl_warning(pl_dataVarName);
         }

       }
     }
     case (c_ExecCtrl_dataElementScGrpStatus){
      if(0 == f_EPTF_ExecCtrl_getParams( pl_params, {c_ExecCtrl_paramNameScenarioGroup}, pl_result, true)){
         var integer vl_scGrpIdx := f_EPTF_ExecCtrl_ScenarioGroup_getIdx(pl_result[0])
         pl_dataVarName := "Var."& "Execution_Control.PhaseLists.tabbox"&"."&v_ExecCtrl_ScenarioGroupInstanceDB.data[vl_scGrpIdx].groupPhaseList.name&".tab" &
         "." & pl_result[0] & ".GroupStatus";
       } else if(0 == f_EPTF_ExecCtrl_getParams(
         pl_params,
         {c_ExecCtrl_paramNameEntityGroup, c_ExecCtrl_paramNameScenario},
         pl_result))
       {
         var charstring vl_eGrpName := "";
         var charstring vl_scName := "";

         vl_eGrpName := pl_result[0];
         vl_scName   := pl_result[1];
         var integer vl_scIdx := f_EPTF_ExecCtrl_getScenarioIdx(vl_eGrpName, vl_scName);
         var integer vl_scGrpIdx := f_EPTF_ExecCtrl_ScenarioGroup_get_byScIndex(vl_scIdx);
         if (vl_scGrpIdx!=-1) {
           pl_dataVarName := "Var."&f_EPTF_ExecCtrl_UIVars_getScenarioGroupTableName_FromScenarioGroupDB(vl_scGrpIdx) & ".GroupStatus";
         } else {
           pl_dataVarName := %definitionId& ": Datasource Parameter is wrong. Scenario should be in a group: "&vl_scName;
           f_EPTF_ExecCtrl_warning(pl_dataVarName);
         }

       }
     }
     case (c_ExecCtrl_dataElementScGrpStart){
      if(0 == f_EPTF_ExecCtrl_getParams( pl_params, {c_ExecCtrl_paramNameScenarioGroup}, pl_result, true)){
         var integer vl_scGrpIdx := f_EPTF_ExecCtrl_ScenarioGroup_getIdx(pl_result[0])
         pl_dataVarName := "Var."& "Execution_Control.PhaseLists.tabbox"&"."&v_ExecCtrl_ScenarioGroupInstanceDB.data[vl_scGrpIdx].groupPhaseList.name&".tab" &
         "." & pl_result[0] & ".GroupStart";
       } else if(0 == f_EPTF_ExecCtrl_getParams(
         pl_params,
         {c_ExecCtrl_paramNameEntityGroup, c_ExecCtrl_paramNameScenario},
         pl_result))
       {
         var charstring vl_eGrpName := "";
         var charstring vl_scName := "";

         vl_eGrpName := pl_result[0];
         vl_scName   := pl_result[1];
         var integer vl_scIdx := f_EPTF_ExecCtrl_getScenarioIdx(vl_eGrpName, vl_scName);
         var integer vl_scGrpIdx := f_EPTF_ExecCtrl_ScenarioGroup_get_byScIndex(vl_scIdx);
         if (vl_scGrpIdx!=-1) {
           pl_dataVarName := "Var."&f_EPTF_ExecCtrl_UIVars_getScenarioGroupTableName_FromScenarioGroupDB(vl_scGrpIdx) & ".GroupStart";
         } else {
           pl_dataVarName := %definitionId& ": Datasource Parameter is wrong. Scenario should be in a group: "&vl_scName;
           f_EPTF_ExecCtrl_warning(pl_dataVarName);
         }

       }
     }
     case (c_ExecCtrl_dataElementScGrpTerminate){
      var charstring vl_eGrpName := "";
      var charstring vl_scName := "";
      if(0 == f_EPTF_ExecCtrl_getParams(
         pl_params,
         {c_ExecCtrl_paramNameEntityGroup, c_ExecCtrl_paramNameScenario},
         pl_result)
       ) {

         vl_eGrpName := pl_result[0];
         vl_scName   := pl_result[1];
         var integer vl_scIdx := f_EPTF_ExecCtrl_getScenarioIdx(vl_eGrpName, vl_scName);
         var integer vl_scGrpIdx := f_EPTF_ExecCtrl_ScenarioGroup_get_byScIndex(vl_scIdx);
         if (vl_scGrpIdx!=-1) {
           pl_dataVarName := "Var."&f_EPTF_ExecCtrl_UIVars_getScenarioGroupTableName_FromScenarioGroupDB(vl_scGrpIdx) & ".TerminateGroup";
         } else {
           pl_dataVarName := %definitionId& ": Datasource Parameter is wrong. Scenario should be in a group: "&vl_scName;
           f_EPTF_ExecCtrl_warning(pl_dataVarName);
         }

       }
     }
     case (c_ExecCtrl_dataElementScGrpReset){
      if(0 == f_EPTF_ExecCtrl_getParams( pl_params, {c_ExecCtrl_paramNameScenarioGroup}, pl_result, true)){
         var integer vl_scGrpIdx := f_EPTF_ExecCtrl_ScenarioGroup_getIdx(pl_result[0])
         pl_dataVarName := "Var."& "Execution_Control.PhaseLists.tabbox"&"."&v_ExecCtrl_ScenarioGroupInstanceDB.data[vl_scGrpIdx].groupPhaseList.name&".tab" &
         "." & pl_result[0] & ".GroupReset";
       } else if(0 == f_EPTF_ExecCtrl_getParams(
         pl_params,
         {c_ExecCtrl_paramNameEntityGroup, c_ExecCtrl_paramNameScenario},
         pl_result))
       {
         var charstring vl_eGrpName := "";
         var charstring vl_scName := "";

         vl_eGrpName := pl_result[0];
         vl_scName   := pl_result[1];
         var integer vl_scIdx := f_EPTF_ExecCtrl_getScenarioIdx(vl_eGrpName, vl_scName);
         var integer vl_scGrpIdx := f_EPTF_ExecCtrl_ScenarioGroup_get_byScIndex(vl_scIdx);
         if (vl_scGrpIdx!=-1) {
           pl_dataVarName := "Var."&f_EPTF_ExecCtrl_UIVars_getScenarioGroupTableName_FromScenarioGroupDB(vl_scGrpIdx) & ".GroupReset";
         } else {
           pl_dataVarName := %definitionId& ": Datasource Parameter is wrong. Scenario should be in a group: "&vl_scName;
           f_EPTF_ExecCtrl_warning(pl_dataVarName);
         }
       }
     }
     case (c_ExecCtrl_dataElementScGrpScStatus){
      if(0 == f_EPTF_ExecCtrl_getParams( pl_params, {c_ExecCtrl_paramNameScenarioGroup, c_ExecCtrl_paramNameScenarioInstance}, pl_result, true)){
         var integer vl_scGrpIdx := f_EPTF_ExecCtrl_ScenarioGroup_getIdx(pl_result[0])
         pl_dataVarName := "Var."& "Execution_Control.PhaseLists.tabbox"&"."&v_ExecCtrl_ScenarioGroupInstanceDB.data[vl_scGrpIdx].groupPhaseList.name&".tab" &
         "." & pl_result[0] & "." & pl_result[1] & ".ScenarioStatus";
      } else
      if(0 == f_EPTF_ExecCtrl_getParams(
         pl_params,
         {c_ExecCtrl_paramNameEntityGroup, c_ExecCtrl_paramNameScenario},
         pl_result))
       {
         var charstring vl_eGrpName := "";
         var charstring vl_scName := "";
         vl_eGrpName := pl_result[0];
         vl_scName   := pl_result[1];
         var integer vl_scIdx := f_EPTF_ExecCtrl_getScenarioIdx(vl_eGrpName, vl_scName);
         var integer vl_scGrpIdx := f_EPTF_ExecCtrl_ScenarioGroup_get_byScIndex(vl_scIdx);
         if(vl_scIdx != -1){
           var charstring vl_scInstanceName := f_EPTF_ExecCtrl_getScenarioInstanceName(vl_scIdx);
           if(vl_scGrpIdx != -1){
             pl_dataVarName := "Var."&f_EPTF_ExecCtrl_UIVars_getScenarioGroupTableName_FromScenarioGroupDB(vl_scGrpIdx) & "." & vl_scInstanceName & ".ScenarioStatus";
           } else {
             pl_dataVarName := %definitionId& ": Datasource Parameter is wrong. Scenario should be in a group: "&vl_scName;
             f_EPTF_ExecCtrl_warning(pl_dataVarName);
           }
         }
       }
     }
     case (c_ExecCtrl_dataElementScStartButton){
      var charstring vl_eGrpName := "";
      var charstring vl_scTypeName := "";
      if(0 == f_EPTF_ExecCtrl_getParams(
         pl_params,
         {c_ExecCtrl_paramNameEntityGroup, c_ExecCtrl_paramNameScenario},
         pl_result)
       ) {

         vl_eGrpName := pl_result[0];
         vl_scTypeName   := pl_result[1];
         pl_dataVarName := c_EPTF_ExecCtrl_statisticsRoot&".EG."&vl_eGrpName&".SC."&vl_scTypeName&".ControlButtons.Start";
       }
     }
     case (c_ExecCtrl_dataElementScStopButton){
      var charstring vl_eGrpName := "";
      var charstring vl_scTypeName := "";
      if(0 == f_EPTF_ExecCtrl_getParams(
         pl_params,
         {c_ExecCtrl_paramNameEntityGroup, c_ExecCtrl_paramNameScenario},
         pl_result)
       ) {

         vl_eGrpName := pl_result[0];
         vl_scTypeName   := pl_result[1];
         pl_dataVarName := c_EPTF_ExecCtrl_statisticsRoot&".EG."&vl_eGrpName&".SC."&vl_scTypeName&".ControlButtons.Stop";
       }
     }
     case (c_ExecCtrl_dataElementScReset){
      var charstring vl_eGrpName := "";
      var charstring vl_scTypeName := "";
      if(0 == f_EPTF_ExecCtrl_getParams(
         pl_params,
         {c_ExecCtrl_paramNameEntityGroup, c_ExecCtrl_paramNameScenario},
         pl_result)
       ) {

         vl_eGrpName := pl_result[0];
         vl_scTypeName   := pl_result[1];
         pl_dataVarName := c_EPTF_ExecCtrl_statisticsRoot&".EG."&vl_eGrpName&".SC."&vl_scTypeName&".ControlButtons.Reset";
       }
     }
     case (c_ExecCtrl_dataElementTcStartButton){
      var charstring vl_eGrpName := "";
      var charstring vl_scTypeName := "";
      var charstring vl_tcName := "";
      if(0 == f_EPTF_ExecCtrl_getParams(
         pl_params,
         {c_ExecCtrl_paramNameEntityGroup, c_ExecCtrl_paramNameScenario, c_ExecCtrl_paramNameTrafficCase},
         pl_result)
       ) {

         vl_eGrpName   := pl_result[0];
         vl_scTypeName := pl_result[1];
         vl_tcName     := pl_result[2];
         pl_dataVarName := c_EPTF_ExecCtrl_statisticsRoot&".EG."&vl_eGrpName&".SC."&vl_scTypeName&".TC."&vl_tcName&".ControlButtons.Start";
       }
     }
     case (c_ExecCtrl_dataElementTcStopButton){
      var charstring vl_eGrpName := "";
      var charstring vl_scTypeName := "";
      var charstring vl_tcName := "";
      if(0 == f_EPTF_ExecCtrl_getParams(
         pl_params,
         {c_ExecCtrl_paramNameEntityGroup, c_ExecCtrl_paramNameScenario, c_ExecCtrl_paramNameTrafficCase},
         pl_result)
       ) {

         vl_eGrpName   := pl_result[0];
         vl_scTypeName := pl_result[1];
         vl_tcName     := pl_result[2];
         pl_dataVarName := c_EPTF_ExecCtrl_statisticsRoot&".EG."&vl_eGrpName&".SC."&vl_scTypeName&".TC."&vl_tcName&".ControlButtons.Stop";
       }
     }
     case (c_ExecCtrl_dataElementTcGroupFinishStatus){
      var charstring vl_eGrpName := "";
      var charstring vl_scTypeName := "";
      var charstring vl_tcName := "";
      if(0 == f_EPTF_ExecCtrl_getParams(
         pl_params,
         {c_ExecCtrl_paramNameEntityGroup, c_ExecCtrl_paramNameScenario, c_ExecCtrl_paramNameTrafficCase},
         pl_result)
       ) {

         vl_eGrpName   := pl_result[0];
         vl_scTypeName := pl_result[1];
         vl_tcName     := pl_result[2];
         pl_dataVarName := c_EPTF_ExecCtrl_statisticsRoot&".EG."&vl_eGrpName&".SC."&vl_scTypeName&".TC."&vl_tcName&".GroupFinishStatusLED";
       }
     }
     case (c_ExecCtrl_dataElementTcStatus){
      var charstring vl_eGrpName := "";
      var charstring vl_scTypeName := "";
      var charstring vl_tcName := "";
      if(0 == f_EPTF_ExecCtrl_getParams(
         pl_params,
         {c_ExecCtrl_paramNameEntityGroup, c_ExecCtrl_paramNameScenario, c_ExecCtrl_paramNameTrafficCase},
         pl_result)
       ) {
         vl_eGrpName   := pl_result[0];
         vl_scTypeName := pl_result[1];
         vl_tcName     := pl_result[2];
         pl_dataVarName := "ExecCtrl.trafficCaseStatus."&vl_eGrpName&"."&vl_scTypeName&"."&vl_tcName;
       }
     }
     case (c_ExecCtrl_dataElementTcGrpFinishStatus){
      var charstring vl_eGrpName := "";
      var charstring vl_scTypeName := "";
      var charstring vl_tcName := "";
      var charstring vl_statName := "";
      if(0 == f_EPTF_ExecCtrl_getParams(
         pl_params,
         {c_ExecCtrl_paramNameEntityGroup, c_ExecCtrl_paramNameScenario, c_ExecCtrl_paramNameTrafficCase, c_ExecCtrl_paramNameCondition},
         pl_result)
       ) {

         vl_eGrpName   := pl_result[0];
         vl_scTypeName := pl_result[1];
         vl_tcName     := pl_result[2];
         vl_statName   := pl_result[3]
         pl_dataVarName := c_EPTF_ExecCtrl_statisticsRoot&".EG."&vl_eGrpName&".SC."&vl_scTypeName&".TC."&
            vl_tcName&".GroupFinishCondStatusLED."&vl_statName;
       }
     }
     case (c_ExecCtrl_dataElementTcExecTime){
      var charstring vl_eGrpName := "";
      var charstring vl_scTypeName := "";
      var charstring vl_tcName := "";
      if(0 == f_EPTF_ExecCtrl_getParams(
         pl_params,
         {c_ExecCtrl_paramNameEntityGroup, c_ExecCtrl_paramNameScenario, c_ExecCtrl_paramNameTrafficCase},
         pl_result)
       ) {

         vl_eGrpName   := pl_result[0];
         vl_scTypeName := pl_result[1];
         vl_tcName     := pl_result[2];
         pl_dataVarName := c_EPTF_ExecCtrl_statisticsRoot&".EG."&vl_eGrpName&".SC."&
          vl_scTypeName&".TC."&vl_tcName&".ExecTime";
       }
     }
     case (c_ExecCtrl_dataElementTcGoS){
       var charstring vl_eGrpName := "";
       var charstring vl_scTypeName := "";
       var charstring vl_tcName := "";
       if(0 == f_EPTF_ExecCtrl_getParams(
          pl_params,
          {c_ExecCtrl_paramNameEntityGroup, c_ExecCtrl_paramNameScenario, c_ExecCtrl_paramNameTrafficCase},
          pl_result)
        ) {

          vl_eGrpName   := pl_result[0];
          vl_scTypeName := pl_result[1];
          vl_tcName     := pl_result[2];

          var charstring vl_nofSuccVarName,vl_nofFailVarName,vl_nofTimeoutVarName,vl_nofErrorVarName;
          vl_nofSuccVarName := c_EPTF_ExecCtrl_statisticsRoot&".EG."&vl_eGrpName&".SC."&vl_scTypeName&".TC."&vl_tcName&"."&c_EPTF_ExecCtrl_tcStatNames[c_EPTF_ExecCtrl_tcStatId_Success]
          vl_nofFailVarName := c_EPTF_ExecCtrl_statisticsRoot&".EG."&vl_eGrpName&".SC."&vl_scTypeName&".TC."&vl_tcName&"."&c_EPTF_ExecCtrl_tcStatNames[c_EPTF_ExecCtrl_tcStatId_Fail]
          vl_nofErrorVarName := c_EPTF_ExecCtrl_statisticsRoot&".EG."&vl_eGrpName&".SC."&vl_scTypeName&".TC."&vl_tcName&"."&c_EPTF_ExecCtrl_tcStatNames[c_EPTF_ExecCtrl_tcStatId_Error]
          vl_nofTimeoutVarName := c_EPTF_ExecCtrl_statisticsRoot&".EG."&vl_eGrpName&".SC."&vl_scTypeName&".TC."&vl_tcName&"."&c_EPTF_ExecCtrl_tcStatNames[c_EPTF_ExecCtrl_tcStatId_Timeout]
          var integer vl_tcId := f_EPTF_ExecCtrl_getTrafficCaseIdx(vl_eGrpName,vl_scTypeName,vl_tcName);
          var charstring vl_statManagerPTCName := f_EPTF_Base_selfName();
          if (v_EPTF_ExecCtrl_nofExternalStatHandlers>0) {
            vl_statManagerPTCName := "ExecCtrl_ExternalStatHandler_Comp_"&log2str(vl_tcId mod v_EPTF_ExecCtrl_nofExternalStatHandlers)
          }
          // forward request to StatManager:
          if (0 != f_EPTF_DataSourceClient_getData(
            pl_dataVarName := pl_dataVarName,
            pl_source := "StatManager",
            pl_ptcName := vl_statManagerPTCName,
            pl_element := "GoS",
            pl_params := {
              {paramName := "SuccessVarName", paramValue := vl_nofSuccVarName},
              {paramName := "FailVarName", paramValue := vl_nofFailVarName},
              {paramName := "TimeoutVarName", paramValue := vl_nofTimeoutVarName},
              {paramName := "ErrorVarName", paramValue := vl_nofErrorVarName}
            }
          )) {
            pl_dataVarName := "GoS does not exist"
          }
        }
     }
     case (c_ExecCtrl_dataElementTcSingleShotEntityIdx){
      var charstring vl_eGrpName := "";
      var charstring vl_scTypeName := "";
      var charstring vl_tcName := "";
      if(0 == f_EPTF_ExecCtrl_getParams(
         pl_params,
         {c_ExecCtrl_paramNameEntityGroup, c_ExecCtrl_paramNameScenario, c_ExecCtrl_paramNameTrafficCase},
         pl_result)
       ) {

         vl_eGrpName   := pl_result[0];
         vl_scTypeName := pl_result[1];
         vl_tcName     := pl_result[2];
         pl_dataVarName := c_EPTF_ExecCtrl_statisticsRoot&".EG."&vl_eGrpName&".SC."&
          vl_scTypeName&".TC."&vl_tcName&".SingleShotTc.EIdx";
       }
     }
     case (c_ExecCtrl_dataElementTcSingleShotEnableLog){
      var charstring vl_eGrpName := "";
      var charstring vl_scTypeName := "";
      var charstring vl_tcName := "";
      if(0 == f_EPTF_ExecCtrl_getParams(
         pl_params,
         {c_ExecCtrl_paramNameEntityGroup, c_ExecCtrl_paramNameScenario, c_ExecCtrl_paramNameTrafficCase},
         pl_result)
       ) {

         vl_eGrpName   := pl_result[0];
         vl_scTypeName := pl_result[1];
         vl_tcName     := pl_result[2];
         pl_dataVarName := c_EPTF_ExecCtrl_statisticsRoot&".EG."&vl_eGrpName&".SC."&
          vl_scTypeName&".TC."&vl_tcName&".SingleShotTc.EnableLog";
       }
     }
     case (c_ExecCtrl_dataElementTcSingleShotStart){
      var charstring vl_eGrpName := "";
      var charstring vl_scTypeName := "";
      var charstring vl_tcName := "";
      if(0 == f_EPTF_ExecCtrl_getParams(
         pl_params,
         {c_ExecCtrl_paramNameEntityGroup, c_ExecCtrl_paramNameScenario, c_ExecCtrl_paramNameTrafficCase},
         pl_result)
       ) {

         vl_eGrpName   := pl_result[0];
         vl_scTypeName := pl_result[1];
         vl_tcName     := pl_result[2];
         pl_dataVarName := c_EPTF_ExecCtrl_statisticsRoot&".EG."&vl_eGrpName&".SC."&
          vl_scTypeName&".TC."&vl_tcName&".SingleShotTc.Start";
       }
     }
     case (c_ExecCtrl_dataElementPhaseListEnablePhase){
      var charstring vl_phaseListName := "";
      var charstring vl_phaseName := "";
      //v_ExecCtrl_PhaseListDeclaratorDB.data[pl_declaratorIdx].phases[pl_phaseIdx].enabled
      if(0 == f_EPTF_ExecCtrl_getParams(pl_params, {c_ExecCtrl_paramNamePhaseList, c_ExecCtrl_paramNamePhase}, pl_result)) {
         vl_phaseListName := pl_result[0];
         vl_phaseName := pl_result[1];
         pl_dataVarName := "Var." & "Execution_Control.PhaseLists.tabbox"&"."& vl_phaseListName &".tab" & ".mainTable." & vl_phaseName;
      }
     }
     case (c_ExecCtrl_dataElementScGrpEnablePhase){
      var charstring vl_scGrpName := "";
      var charstring vl_phaseName := "";
      if(0 == f_EPTF_ExecCtrl_getParams(
         pl_params,
         {c_ExecCtrl_paramNameScenarioGroup, c_ExecCtrl_paramNamePhase},
         pl_result)
       ) {

         vl_scGrpName := pl_result[0];
         vl_phaseName := pl_result[1];
         var integer vl_scGrpIdx;
         if (f_EPTF_str2int_HashMap_Find(v_ExecCtrl_ScenarioGroupInstanceDB.hashRef, vl_scGrpName, vl_scGrpIdx)) {
           var charstring p_phaseListDeclaratorName := f_EPTF_ExecCtrl_getScenarioGroupInstanceGroupPhaseListName(vl_scGrpIdx);
           var integer p_idx;
           if (f_EPTF_str2int_HashMap_Find(v_ExecCtrl_PhaseListDeclaratorDB.hashRef, p_phaseListDeclaratorName, p_idx)) {
             //"Var."&f_EPTF_ExecCtrl_UIVars_getPhaseListTabName_FromPhaseListDB(p_idx)&
             //".mainTable."&f_EPTF_ExecCtrl_getPhaseListDeclaratorPhaseName(p_idx,i)
             pl_dataVarName := "Var."&f_EPTF_ExecCtrl_UIVars_getPhaseListTabName_FromPhaseListDB(p_idx)&
              ".mainTable."&vl_phaseName;
           };
         }
       }
     }
     case (c_ExecCtrl_dataElementScGrpScEnablePhase){
      var charstring vl_eGrpName := "";
      var charstring vl_scTypeName := "";
      var charstring vl_phaseName := "";
      // this if is needed to avoid false warning if the second param version is used:
      if (sizeof(pl_params)==3) {
        if(0 == f_EPTF_ExecCtrl_getParams(
           pl_params,
           {c_ExecCtrl_paramNameEntityGroup, c_ExecCtrl_paramNameScenario, c_ExecCtrl_paramNamePhase},
           pl_result)
         ) {

           vl_eGrpName   := pl_result[0];
           vl_scTypeName := pl_result[1];
           vl_phaseName  := pl_result[2];
           var integer vl_scIdx := f_EPTF_ExecCtrl_getScenarioIdx(vl_eGrpName, vl_scTypeName);
           var integer vl_scGrpIdx := f_EPTF_ExecCtrl_ScenarioGroup_get_byScIndex(vl_scIdx);
           if (vl_scIdx!=-1 and vl_scGrpIdx!=-1) {
             var charstring vl_scInstanceName := f_EPTF_ExecCtrl_getScenarioInstanceName(vl_scIdx);
             //"Var."&f_EPTF_ExecCtrl_UIVars_getScenarioGroupTableName_FromScenarioGroupDB(p_idx)&"."&
             //  f_EPTF_ExecCtrl_getScenarioGroupInstanceScenarioName(p_idx,j)&"."&
             //  f_EPTF_ExecCtrl_getScenarioGroupInstanceScenarioPhaseListPhaseName(p_idx,j,i)
             pl_dataVarName := "Var."&f_EPTF_ExecCtrl_UIVars_getScenarioGroupTableName_FromScenarioGroupDB(vl_scGrpIdx)&"."&
              vl_scInstanceName&"."&
              vl_phaseName;
           }
         }
       } else {
            if(0 == f_EPTF_ExecCtrl_getParams(
               pl_params,
               {c_ExecCtrl_paramNameScenarioInstance, c_ExecCtrl_paramNamePhase},
               pl_result)
             ) {
               var charstring vl_scInstanceName := pl_result[0];
               vl_phaseName  := pl_result[1];
               var integer vl_scIdx := f_EPTF_ExecCtrl_getScenarioIdxByInstanceName(vl_scInstanceName);
               var integer vl_scGrpIdx := f_EPTF_ExecCtrl_ScenarioGroup_get_byScIndex(vl_scIdx);
               if (vl_scIdx!=-1 and vl_scGrpIdx!=-1) {
                 pl_dataVarName := "Var."&f_EPTF_ExecCtrl_UIVars_getScenarioGroupTableName_FromScenarioGroupDB(vl_scGrpIdx)&"."&
                  vl_scInstanceName&"."&
                  vl_phaseName;
               }
             }
       }
     }
     //eptebal
     case (c_ExecCtrl_dataElementEGrpOffset){
       var charstring vl_entityGrpName := "";
       if(0 == f_EPTF_ExecCtrl_getParams( pl_params,
                                            {c_ExecCtrl_paramNameEntityGroup},
                                            pl_result)){
         vl_entityGrpName := pl_result[0];
         pl_dataVarName := "EPTF_ExecCtrl.Statistics.EG."&vl_entityGrpName&".eOffset";
       }
     }
     case (c_ExecCtrl_dataElementEGrpLGenPool){
       var charstring vl_entityGrpName := "";
       if(0 == f_EPTF_ExecCtrl_getParams( pl_params,
                                            {c_ExecCtrl_paramNameEntityGroup},
                                            pl_result)){
         vl_entityGrpName := pl_result[0];
         pl_dataVarName := "EPTF_ExecCtrl.Statistics.EG."&vl_entityGrpName&".LGenPool";
       }
     }
     case (c_ExecCtrl_dataElementScInstanceName){
       var charstring vl_entityGrpName := "";
       var charstring vl_scName := "";
       if(0 == f_EPTF_ExecCtrl_getParams( pl_params,
                                            {c_ExecCtrl_paramNameEntityGroup, c_ExecCtrl_paramNameScenario},
                                            pl_result)){
         vl_entityGrpName := pl_result[0];
         vl_scName        := pl_result[1];
         pl_dataVarName := "EPTF_ExecCtrl.Statistics.EG."&vl_entityGrpName&".SC."&vl_scName&".instanceName";
       }
     }
     case (c_ExecCtrl_dataElementScPhaseListName){
       var charstring vl_entityGrpName := "";
       var charstring vl_scName := "";
       if(0 == f_EPTF_ExecCtrl_getParams( pl_params,
                                            {c_ExecCtrl_paramNameEntityGroup, c_ExecCtrl_paramNameScenario},
                                            pl_result)){
         vl_entityGrpName := pl_result[0];
         vl_scName        := pl_result[1];
         pl_dataVarName := "EPTF_ExecCtrl.Statistics.EG."&vl_entityGrpName&".SC."&vl_scName&".phaseListName";
       }
     }
     case (c_ExecCtrl_dataElementScScGrpName){
       var charstring vl_entityGrpName := "";
       var charstring vl_scName := "";
       if(0 == f_EPTF_ExecCtrl_getParams( pl_params,
                                            {c_ExecCtrl_paramNameEntityGroup, c_ExecCtrl_paramNameScenario},
                                            pl_result)){
         vl_entityGrpName := pl_result[0];
         vl_scName        := pl_result[1];
         pl_dataVarName := "EPTF_ExecCtrl.Statistics.EG."&vl_entityGrpName&".SC."&vl_scName&".scGrpName";
       }
     }
     case (c_ExecCtrl_dataElementTcStat){
       var charstring vl_entityGrpName := "";
       var charstring vl_scName := "";
       var charstring vl_tcName := "";
       var charstring vl_tcStatName := "";
       
       if(0 == f_EPTF_ExecCtrl_getParams( pl_params,
                                            {c_ExecCtrl_paramNameEntityGroup, c_ExecCtrl_paramNameScenario, c_ExecCtrl_paramNameTrafficCase, c_ExecCtrl_paramNameStatistic},
                                            pl_result)){
         vl_entityGrpName := pl_result[0];
         vl_scName        := pl_result[1];
         vl_tcName        := pl_result[2];
         vl_tcStatName    := pl_result[3];

         var charstring vl_statName := c_EPTF_ExecCtrl_statisticsRoot&".EG."&vl_entityGrpName&".SC."&vl_scName&".TC."&vl_tcName&"."&vl_tcStatName;
         if (vl_tcStatName == c_EPTF_ExecCtrl_tcStatNames[c_EPTF_ExecCtrl_tcStatId_ExecTime]) {
           pl_dataVarName := vl_statName;
         } else {
           var EPTF_StatHandler_CT vl_statHandler := f_EPTF_ExecCtrl_findStatHandler(vl_statName);
           if (vl_statHandler == null ) {
             pl_dataVarName := %definitionId& ": StatHandler is not found for statistic: "&vl_statName;
             f_EPTF_ExecCtrl_debug(pl_dataVarName);
           } else {
             if (vl_statHandler!=self) {
               f_EPTF_Var_subscribeRemote(
                     pl_remoteCompRef := vl_statHandler,
                     pl_remoteProviderVarName := vl_statName,
                     pl_subscriptionMode :=  vl_subscriptionModeForVars,
                     pl_idx := vl_idx,
                     pl_localName := vl_statName&"_Local"
               );
               if (vl_idx==-1) {
                 pl_dataVarName := %definitionId& ": Datasource Parameter is wrong. Statistic doesn't exist: "&vl_statName;
                 f_EPTF_ExecCtrl_warning(pl_dataVarName);
               } else {
                 pl_dataVarName := f_EPTF_Var_getName(vl_idx);
               }
             } else {
                if (not f_EPTF_StatHandler_getVarNameByStatName(vl_statName, pl_dataVarName)){
                  pl_dataVarName := %definitionId& ": Datasource Parameter is wrong. Statistic doesn't exist: "&vl_statName;
                  f_EPTF_ExecCtrl_warning(pl_dataVarName);
                }
             }
           }
         }
       }
     }
     // {Delta statistics}: for LGen Variables
     case (c_ExecCtrl_dataElementTcStatDelta){
       var charstring vl_entityGrpName := "";
       var charstring vl_scName := "";
       var charstring vl_tcName := "";
       var charstring vl_tcStatName := "";
       if(0 == f_EPTF_ExecCtrl_getParams( pl_params,
                                            {c_ExecCtrl_paramNameEntityGroup, c_ExecCtrl_paramNameScenario, c_ExecCtrl_paramNameTrafficCase, c_ExecCtrl_paramNameStatistic},
                                            pl_result)){
         vl_entityGrpName := pl_result[0];
         vl_scName        := pl_result[1];
         vl_tcName        := pl_result[2];
         vl_tcStatName    := pl_result[3];

         var charstring vl_varDeltaName := c_EPTF_ExecCtrl_statisticsRoot&".EG."&vl_entityGrpName&".SC."&vl_scName&".TC."&vl_tcName&"."&vl_tcStatName&".delta";
         var integer vl_varDeltaId := f_EPTF_Var_getId(vl_varDeltaName);
         if(0<=vl_varDeltaId){
           pl_dataVarName := vl_varDeltaName;
         }
       }
     }
     case (c_ExecCtrl_dataElementCurrentCPS){
       var charstring vl_entityGrpName := "";
       var charstring vl_scName := "";
       if(0 == f_EPTF_ExecCtrl_getParams( pl_params,
                                            {c_ExecCtrl_paramNameEntityGroup, c_ExecCtrl_paramNameScenario},
                                            pl_result)){
         vl_entityGrpName := pl_result[0];
         vl_scName        := pl_result[1];
         var integer vl_scIdx := f_EPTF_ExecCtrl_getScenarioIdx(vl_entityGrpName, vl_scName);
         if( not f_EPTF_ExecCtrl_isWeightedScenario(vl_scIdx) ){
           pl_dataVarName := %definitionId& ": Datasource Parameter is wrong. Scenario should be weighted: "&vl_scName;
           f_EPTF_ExecCtrl_warning(pl_dataVarName);
         } else {
           var charstring vl_statName := c_EPTF_ExecCtrl_statisticsRoot&".EG."&vl_entityGrpName&".SC."&vl_scName&".CurrentCPS";
           var EPTF_StatHandler_CT vl_statHandler := f_EPTF_ExecCtrl_findStatHandler(vl_statName);
           if (vl_statHandler == null ) {
             pl_dataVarName := %definitionId& ": StatHandler is not found for statistic: "&vl_statName;
             f_EPTF_ExecCtrl_debug(pl_dataVarName);
           } else {
             if (vl_statHandler!=self) {
               f_EPTF_Var_subscribeRemote(
                     pl_remoteCompRef := vl_statHandler,
                     pl_remoteProviderVarName := vl_statName,
                     pl_subscriptionMode :=  vl_subscriptionModeForVars,
                     pl_idx := vl_idx
               );
               if (vl_idx==-1) {
                 pl_dataVarName := %definitionId& ": Datasource Parameter is wrong. Statistic doesn't exist: "&vl_statName;
                 f_EPTF_ExecCtrl_warning(pl_dataVarName);
               } else {
                 pl_dataVarName := f_EPTF_Var_getName(vl_idx);
               }
             } else {
               if (not f_EPTF_StatHandler_getVarNameByStatName(vl_statName, pl_dataVarName)){
                 pl_dataVarName := %definitionId& ": Datasource Parameter is wrong. Statistic doesn't exist: "&vl_statName;
                 f_EPTF_ExecCtrl_warning(pl_dataVarName);
               }
             }
           }
         }
       }
     }
     case (c_ExecCtrl_dataElementFSMStat){
       var charstring vl_eGrpName := "";
       var charstring vl_scName := "";
       var charstring vl_tcName := "";
       var charstring vl_fsmStatName := "";
       if(0 == f_EPTF_ExecCtrl_getParams( pl_params,
                                            {c_ExecCtrl_paramNameEntityGroup, c_ExecCtrl_paramNameScenario, c_ExecCtrl_paramNameTrafficCase, c_ExecCtrl_paramNameStatistic},
                                            pl_result)){
         vl_eGrpName      := pl_result[0];
         vl_scName        := pl_result[1];
         vl_tcName        := pl_result[2];
         vl_fsmStatName   := pl_result[3];

         var charstring vl_statName := c_EPTF_ExecCtrl_statisticsRoot&".EG."&vl_eGrpName&".SC."&vl_scName&".TC."&vl_tcName&".FSMStats."&vl_fsmStatName;
         var EPTF_StatHandler_CT vl_statHandler := f_EPTF_ExecCtrl_findStatHandler(vl_statName);
         if (vl_statHandler == null ) {
           pl_dataVarName := %definitionId& ": StatHandler is not found for statistic: "&vl_statName;
           f_EPTF_ExecCtrl_debug(pl_dataVarName);
         } else {
           if (vl_statHandler!=self) {
             f_EPTF_Var_subscribeRemote(
                   pl_remoteCompRef := vl_statHandler,
                   pl_remoteProviderVarName := vl_statName,
                   pl_subscriptionMode :=  vl_subscriptionModeForVars,
                   pl_idx := vl_idx
             );
             if (vl_idx==-1) {
               pl_dataVarName := %definitionId& ": Datasource Parameter is wrong. Statistic doesn't exist: "&vl_statName;
               f_EPTF_ExecCtrl_warning(pl_dataVarName);
             } else {
               pl_dataVarName := f_EPTF_Var_getName(vl_idx);
             }
           } else {
             if (not f_EPTF_StatHandler_getVarNameByStatName(vl_statName, pl_dataVarName)){
               pl_dataVarName := %definitionId& ": Datasource Parameter is wrong. Statistic doesn't exist: "&vl_statName;
               f_EPTF_ExecCtrl_warning(pl_dataVarName);
             }
           }
         }
       }
     }
     case(c_ExecCtrl_dataElementScGroupOfSc){
       var charstring vl_eGrpName := "";
       var charstring vl_scName := "";
       if(0 == f_EPTF_ExecCtrl_getParams( pl_params,
                                            {c_ExecCtrl_paramNameEntityGroup, c_ExecCtrl_paramNameScenario},
                                            pl_result)){
         vl_eGrpName      := pl_result[0];
         vl_scName        := pl_result[1];
         var integer vl_scIdx := f_EPTF_ExecCtrl_getScenarioIdx(vl_eGrpName, vl_scName);
         if (vl_scIdx!=-1) {
           var integer vl_scGrpIdx := f_EPTF_ExecCtrl_ScenarioGroup_get_byScIndex(vl_scIdx);
  	       if (vl_scGrpIdx != -1){
			 pl_dataVarName := c_ExecCtrl_DS_externalDataVar_prefix & "ScGroupOfSc_" & int2str(vl_scIdx)
       	   } else {
             pl_dataVarName := %definitionId& ": Datasource Parameter is wrong. Scenario is not in scenarioGroup: "& vl_scName;
             f_EPTF_ExecCtrl_warning(pl_dataVarName);
           }
    	 } else {
           pl_dataVarName := %definitionId& ": Datasource Parameter is wrong. Scenario doesn't exist: "& vl_scName;
           f_EPTF_ExecCtrl_warning(pl_dataVarName);
    	 }
       }
     }
     case (c_ExecCtrl_dataElementGlobalStat){
       var charstring vl_globalStatName := "";
       if(0 == f_EPTF_ExecCtrl_getParams( pl_params,
                                            {c_ExecCtrl_paramNameStatistic},
                                            pl_result)){
         vl_globalStatName    := pl_result[0];
         var charstring vl_globalStatNameFull := c_EPTF_ExecCtrl_statisticsRoot&"."&vl_globalStatName;
         var EPTF_StatHandler_CT vl_statHandler := f_EPTF_ExecCtrl_findStatHandler(vl_globalStatNameFull);
         if (vl_statHandler == null ) {
           pl_dataVarName := %definitionId& ": StatHandler is not found for statistic: "&vl_globalStatNameFull;
           f_EPTF_ExecCtrl_debug(pl_dataVarName);
         } else {
           if (vl_statHandler!=self) {
             f_EPTF_Var_subscribeRemote(
                   pl_remoteCompRef := vl_statHandler,
                   pl_remoteProviderVarName := vl_globalStatNameFull,
                   pl_subscriptionMode :=  vl_subscriptionModeForVars,
                   pl_idx := vl_idx
             );
             if (vl_idx==-1) {
               pl_dataVarName := %definitionId& ": Datasource Parameter is wrong. Statistic doesn't exist: "&vl_globalStatNameFull;
               f_EPTF_ExecCtrl_warning(pl_dataVarName);
             }
             pl_dataVarName := f_EPTF_Var_getName(vl_idx);
           } else {
             if (not f_EPTF_StatHandler_getVarNameByStatName(vl_globalStatNameFull, pl_dataVarName)){
               pl_dataVarName := %definitionId& ": Datasource Parameter is wrong. Statistic doesn't exist: "&vl_globalStatNameFull;
               f_EPTF_ExecCtrl_warning(pl_dataVarName);
             }
           }
         }
       }
     }
     case else {  //error, no rule for that
        pl_dataVarName := %definitionId& ": unhandled element: "& pl_element;
        f_EPTF_ExecCtrl_warning(pl_dataVarName);
        return -1;
     }
    }

    var integer vl_iteratorVarIdx := f_EPTF_Var_getId(pl_dataVarName);
    if(vl_iteratorVarIdx == -1){
      pl_dataVarName := %definitionId&": Invalid DataSource parameter: Invalid iterator or externalData or parameter: "&
        "\nSource: "&pl_source&
        "\nPTC : "&pl_ptcName &
        "\nElement Name : " &pl_element&
        "\nParams: " & log2str(pl_params)&
        "\nReason: "&pl_dataVarName;
      f_EPTF_ExecCtrl_warning(pl_dataVarName);
      return -2;
    }
    return 0;
  }

///////////////////////////////////////////////////////////
//  Function: f_EPTF_ExecCtrl_DSProcessDataValue
// 
//  Purpose:
//    Processes the incoming DataValue requests - iterators and external data elements - and gives back the value.
//    It should be registered in the ExecCtrl_init_CT. Type function fcb_EPTF_DataSourceClient_dataValueHandler
//
//  Parameters:
//    *out *<EPTF_Var_DirectContent>* pl_dataValue* - the value of the data or the iterator result
//    *in charstring pl_source* - the name of the data source 'feature'
//    *in charstring pl_ptcName* - the name of the ptc (ID of the PTC)  
//    *in charstring pl_element* - the name of the data element
//    *in* <EPTF_DataSource_Params> *pl_params* - the parameters
//      of the data for the dataElement
//
//  Return Value:
//    integer - error code (0 of OK, non zero if unsuccessful: e.g. invalid parameters given in pl_params)
//
//  Detailed Comments: 
//    -
//
///////////////////////////////////////////////////////////
friend function f_EPTF_ExecCtrl_DSProcessDataValue(out EPTF_Var_DirectContent pl_dataValue,
                                              in charstring pl_source,
                                              in charstring pl_ptcName,
                                              in charstring pl_element,
                                              in EPTF_DataSource_Params pl_params)
runs on EPTF_ExecCtrl_CT return integer{   
  var integer vl_errorCode := -1;
  var EPTF_CharstringList pl_result := {};
  pl_dataValue := {unknownVal := {omit}}; // set it to invalid
  select( pl_element )
  {
    case(c_EPTF_DataSource_dataElement_Help) {
      vl_errorCode := f_EPTF_DataSource_handleHelp(pl_dataValue,pl_source,pl_params,c_EPTF_ExecCtrl_help);
    }
    case(c_EPTF_DataSource_dataElement_isWritable) {
      var charstring vl_source;
      var charstring vl_ptcName;
      var charstring vl_element;
      var EPTF_DataSource_Params vl_params;

      vl_errorCode := f_EPTF_DataSource_getRequestPartsFromParams(pl_params, vl_source, vl_ptcName, vl_element, vl_params);
      if (vl_errorCode == 0) {
        if (vl_element == c_ExecCtrl_dataElementRestart) {
          pl_dataValue := {boolVal := true};
        } else {
          vl_errorCode := -1;
        }
      }
    }
    case(c_ExecCtrl_dataElementEntityGroupOfScenarioInstance) {
      if(0 == f_EPTF_ExecCtrl_getParams( pl_params, {c_ExecCtrl_paramNameScenarioInstance}, pl_result, true)){
        var charstring vl_scInstanceName := pl_result[0];
        var integer vl_scIdx := f_EPTF_ExecCtrl_getScenarioIdxByInstanceName(vl_scInstanceName);
        if (vl_scIdx==-1) {
          var charstring vl_errorMsg := %definitionId& ": Datasource Parameter is wrong: "&
             "\n" & c_ExecCtrl_paramNameScenarioInstance & ": " & vl_scInstanceName;
          pl_dataValue:={charstringVal := vl_errorMsg}
          vl_errorCode := 2;
        } else {
          var integer vl_eGrpIdx := v_ExecCtrl_scenarios[vl_scIdx].eGroupIdx;
          var charstring vl_eGrpName := v_ExecCtrl_entityGroups[vl_eGrpIdx].name;
          pl_dataValue:={charstringVal := vl_eGrpName}
          vl_errorCode := 0;
        }
      } else {
        var charstring vl_errorMsg := %definitionId& ": Wrong parameters are given. Parameter is missing: "& c_ExecCtrl_paramNameScenarioInstance;
        pl_dataValue:={charstringVal := vl_errorMsg}
        vl_errorCode := 1;
      }
    }
    case(c_ExecCtrl_dataElementScenarioTypeNameOfScenarioInstance) {
      if(0 == f_EPTF_ExecCtrl_getParams( pl_params, {c_ExecCtrl_paramNameScenarioInstance}, pl_result, true)){
        var charstring vl_scInstanceName := pl_result[0];
        var integer vl_scIdx := f_EPTF_ExecCtrl_getScenarioIdxByInstanceName(vl_scInstanceName);
        if (vl_scIdx==-1) {
          var charstring vl_errorMsg := %definitionId& ": Datasource Parameter is wrong: "&
             "\n" & c_ExecCtrl_paramNameScenarioInstance & ": " & vl_scInstanceName;
          pl_dataValue:={charstringVal := vl_errorMsg}
          vl_errorCode := 2;
        } else {
          var charstring vl_scTypeName := v_ExecCtrl_scenarios[vl_scIdx].scData.name;
          pl_dataValue:={charstringVal := vl_scTypeName}
          vl_errorCode := 0;
        }
      } else {
        var charstring vl_errorMsg := %definitionId& ": Wrong parameters are given. Parameter is missing: "& c_ExecCtrl_paramNameScenarioInstance;
        pl_dataValue:={charstringVal := vl_errorMsg}
        vl_errorCode := 1;
      }
    }
    case(c_ExecCtrl_iteratorEGrpsOnClients) {
      var integer vl_egrpsSize := sizeof(v_ExecCtrl_entityGroups);
      var EPTF_CharstringList vl_result := {};
      for (var integer i := 0; i < vl_egrpsSize; i := i + 1) {
        var integer vl_clientsSize := sizeof(v_ExecCtrl_entityGroups[i].lgenList);
        for (var integer j := 0; j < vl_clientsSize; j := j + 1) {
          vl_result[sizeof(vl_result)] := int2str(i) & "." & int2str(j);
        }
      }
      pl_dataValue.charstringlistVal := vl_result;
      vl_errorCode := 0;
    }
    case(c_ExecCtrl_dataElementEntityGroupOfEGrpOnClient) {
      if(0 == f_EPTF_ExecCtrl_getParams( pl_params, {c_ExecCtrl_paramNameEGrpOnClient}, pl_result, true)){
        var charstring vl_lgenInstanceName := pl_result[0];
        var EPTF_CharstringList vl_instanceParts := f_EPTF_Common_splitString(vl_lgenInstanceName, ".");
        if (sizeof(vl_instanceParts) == 2) {
          var integer vl_egrpIndex := str2int(vl_instanceParts[0]);
          if (vl_egrpIndex < sizeof(v_ExecCtrl_entityGroups)) {
            pl_dataValue.charstringVal := v_ExecCtrl_entityGroups[vl_egrpIndex].name;
            vl_errorCode := 0;
          } else {
            var charstring vl_errorMsg := %definitionId& ": " & c_ExecCtrl_paramNameEGrpOnClient & " is wrong: nonexistent EntityGroup.";
            pl_dataValue:={charstringVal := vl_errorMsg};
            vl_errorCode := 3;
          }
        } else {
          var charstring vl_errorMsg := %definitionId& ": " & c_ExecCtrl_paramNameEGrpOnClient & " is wrong.";
          pl_dataValue:={charstringVal := vl_errorMsg};
          vl_errorCode := 2;
        }
      } else {
        var charstring vl_errorMsg := %definitionId& ": Wrong parameters are given. Parameter is missing: "& c_ExecCtrl_paramNameEGrpOnClient;
        pl_dataValue:={charstringVal := vl_errorMsg};
        vl_errorCode := 1;
      }
    }
    case(c_ExecCtrl_dataElementClientOfEGrpOnClient) {
      if(0 == f_EPTF_ExecCtrl_getParams( pl_params, {c_ExecCtrl_paramNameEGrpOnClient}, pl_result, true)){
        var charstring vl_lgenInstanceName := pl_result[0];
        var EPTF_CharstringList vl_instanceParts := f_EPTF_Common_splitString(vl_lgenInstanceName, ".");
        if (sizeof(vl_instanceParts) == 2) {
          var integer vl_egrpIndex := str2int(vl_instanceParts[0]);
          var integer vl_clientIndex := str2int(vl_instanceParts[1]);
          if (vl_egrpIndex < sizeof(v_ExecCtrl_entityGroups) and vl_clientIndex < sizeof(v_ExecCtrl_entityGroups[vl_egrpIndex].lgenList)) {
            pl_dataValue.charstringVal := v_ExecCtrl_lgens[v_ExecCtrl_entityGroups[vl_egrpIndex].lgenList[vl_clientIndex].lgenIdx].name;
            vl_errorCode := 0;
          } else {
            var charstring vl_errorMsg := %definitionId& ": " & c_ExecCtrl_paramNameEGrpOnClient & " is wrong: nonexistent EntityGroup or LGen.";
            pl_dataValue:={charstringVal := vl_errorMsg};
            vl_errorCode := 3;
          }
        } else {
          var charstring vl_errorMsg := %definitionId& ": " & c_ExecCtrl_paramNameEGrpOnClient & " is wrong.";
          pl_dataValue:={charstringVal := vl_errorMsg};
          vl_errorCode := 2;
        }
      } else {
        var charstring vl_errorMsg := %definitionId& ": Wrong parameters are given. Parameter is missing: "& c_ExecCtrl_paramNameEGrpOnClient;
        pl_dataValue:={charstringVal := vl_errorMsg};
        vl_errorCode := 1;
      }
    }
    case(c_ExecCtrl_iteratorEntityTypesForLGenOnClients) {
      var integer vl_clientsSize := sizeof(v_ExecCtrl_lgens);
      var EPTF_CharstringList vl_result := {};
      for (var integer i := 0; i < vl_clientsSize; i := i + 1) {
        var integer vl_egrpTypesSize := sizeof(v_ExecCtrl_lgens[i].resourceList);
        for (var integer j := 0; j < vl_egrpTypesSize; j := j + 1) {
          vl_result[sizeof(vl_result)] := int2str(i) & "." & int2str(j);
        }
      }
      pl_dataValue.charstringlistVal := vl_result;
      vl_errorCode := 0;
    }
    case(c_ExecCtrl_dataElementClientOfEntityTypesForLGenOnClients) {
      if(0 == f_EPTF_ExecCtrl_getParams( pl_params, {c_ExecCtrl_paramNameEntityTypeForLGenOnClient}, pl_result, true)){
        var charstring vl_instanceName := pl_result[0];
        var EPTF_CharstringList vl_instanceParts := f_EPTF_Common_splitString(vl_instanceName, ".");
        if (sizeof(vl_instanceParts) == 2) {
          var integer vl_clientsIndex := str2int(vl_instanceParts[0]);
          if (vl_clientsIndex < sizeof(v_ExecCtrl_lgens)) {
            pl_dataValue.charstringVal := v_ExecCtrl_lgens[vl_clientsIndex].name;
            vl_errorCode := 0;
          } else {
            var charstring vl_errorMsg := %definitionId& ": " & c_ExecCtrl_paramNameEntityTypeForLGenOnClient & " is wrong: nonexistent LGen.";
            pl_dataValue:={charstringVal := vl_errorMsg};
            vl_errorCode := 3;
          }
        } else {
          var charstring vl_errorMsg := %definitionId& ": " & c_ExecCtrl_paramNameEntityTypeForLGenOnClient & " is wrong.";
          pl_dataValue:={charstringVal := vl_errorMsg};
          vl_errorCode := 2;
        }
      } else {
        var charstring vl_errorMsg := %definitionId& ": Wrong parameters are given. Parameter is missing: "& c_ExecCtrl_paramNameEntityTypeForLGenOnClient;
        pl_dataValue:={charstringVal := vl_errorMsg};
        vl_errorCode := 1;
      }
    }
    case(c_ExecCtrl_dataElementEntityTypeOfEntityTypesForLGenOnClients) {
      if(0 == f_EPTF_ExecCtrl_getParams( pl_params, {c_ExecCtrl_paramNameEntityTypeForLGenOnClient}, pl_result, true)){
        var charstring vl_instanceName := pl_result[0];
        var EPTF_CharstringList vl_instanceParts := f_EPTF_Common_splitString(vl_instanceName, ".");
        if (sizeof(vl_instanceParts) == 2) {
          var integer vl_clientsIndex := str2int(vl_instanceParts[0]);
          var integer vl_typeIndex := str2int(vl_instanceParts[1]);
          if (vl_clientsIndex < sizeof(v_ExecCtrl_lgens) and vl_typeIndex < sizeof(v_ExecCtrl_lgens[vl_clientsIndex].resourceList)) {
            pl_dataValue.charstringVal := v_ExecCtrl_lgens[vl_clientsIndex].resourceList[vl_typeIndex].eType;
            vl_errorCode := 0;
          } else {
            var charstring vl_errorMsg := %definitionId& ": " & c_ExecCtrl_paramNameEntityTypeForLGenOnClient & " is wrong: nonexistent LGen or resource.";
            pl_dataValue:={charstringVal := vl_errorMsg};
            vl_errorCode := 3;
          }
        } else {
          var charstring vl_errorMsg := %definitionId& ": " & c_ExecCtrl_paramNameEntityTypeForLGenOnClient & " is wrong.";
          pl_dataValue:={charstringVal := vl_errorMsg};
          vl_errorCode := 2;
        }
      } else {
        var charstring vl_errorMsg := %definitionId& ": Wrong parameters are given. Parameter is missing: "& c_ExecCtrl_paramNameEntityTypeForLGenOnClient;
        pl_dataValue:={charstringVal := vl_errorMsg};
        vl_errorCode := 1;
      }
    }
    case(c_ExecCtrl_iteratorScenariosOnClients) {
      var integer vl_clientsSize := sizeof(v_ExecCtrl_lgens);
      var EPTF_CharstringList vl_result := {};
      for (var integer i := 0; i < vl_clientsSize; i := i + 1) {
        var integer vl_egrpsSize := sizeof(v_ExecCtrl_lgens[i].eGroups);
        for (var integer j := 0; j < vl_egrpsSize; j := j + 1) {
          var integer vl_egrpIndex := v_ExecCtrl_lgens[i].eGroups[j].eGrpIdx;
          var integer vl_scenariosSize := sizeof(v_ExecCtrl_entityGroups[vl_egrpIndex].scenarios);
          for (var integer k := 0; k < vl_scenariosSize; k := k + 1) {
            var integer vl_scenarioIndex := v_ExecCtrl_entityGroups[vl_egrpIndex].scenarios[k];
            vl_result[sizeof(vl_result)] := int2str(i) & "." & int2str(vl_egrpIndex) & "." & int2str(vl_scenarioIndex);
          }
        }
      }
      pl_dataValue.charstringlistVal := vl_result;
      vl_errorCode := 0;
    }
    case(c_ExecCtrl_dataElementClientOfScenariosOnClients) {
      if(0 == f_EPTF_ExecCtrl_getParams( pl_params, {c_ExecCtrl_paramNameScenarioOnClient}, pl_result, true)){
        var charstring vl_instanceName := pl_result[0];
        var EPTF_CharstringList vl_instanceParts := f_EPTF_Common_splitString(vl_instanceName, ".");
        if (sizeof(vl_instanceParts) == 3) {
          var integer vl_clientsIndex := str2int(vl_instanceParts[0]);
          if (vl_clientsIndex < sizeof(v_ExecCtrl_lgens)) {
            pl_dataValue.charstringVal := v_ExecCtrl_lgens[vl_clientsIndex].name;
            vl_errorCode := 0;
          } else {
            var charstring vl_errorMsg := %definitionId& ": " & c_ExecCtrl_paramNameEntityTypeForLGenOnClient & " is wrong: nonexistent LGen.";
            pl_dataValue:={charstringVal := vl_errorMsg};
            vl_errorCode := 3;
          }
        } else {
          var charstring vl_errorMsg := %definitionId& ": " & c_ExecCtrl_paramNameEntityTypeForLGenOnClient & " is wrong.";
          pl_dataValue:={charstringVal := vl_errorMsg};
          vl_errorCode := 2;
        }
      } else {
        var charstring vl_errorMsg := %definitionId& ": Wrong parameters are given. Parameter is missing: "& c_ExecCtrl_paramNameEntityTypeForLGenOnClient;
        pl_dataValue:={charstringVal := vl_errorMsg};
        vl_errorCode := 1;
      }
    }
    case(c_ExecCtrl_dataElementEntityGroupOfScenariosOnClients) {
      if(0 == f_EPTF_ExecCtrl_getParams( pl_params, {c_ExecCtrl_paramNameScenarioOnClient}, pl_result, true)){
        var charstring vl_instanceName := pl_result[0];
        var EPTF_CharstringList vl_instanceParts := f_EPTF_Common_splitString(vl_instanceName, ".");
        if (sizeof(vl_instanceParts) == 3) {
          var integer vl_egrpIndex := str2int(vl_instanceParts[1]);
          if (vl_egrpIndex < sizeof(v_ExecCtrl_entityGroups)) {
            pl_dataValue.charstringVal := v_ExecCtrl_entityGroups[vl_egrpIndex].name;
            vl_errorCode := 0;
          } else {
            var charstring vl_errorMsg := %definitionId& ": " & c_ExecCtrl_paramNameEntityTypeForLGenOnClient & " is wrong: nonexistent EntityGroup.";
            pl_dataValue:={charstringVal := vl_errorMsg};
            vl_errorCode := 3;
          }
        } else {
          var charstring vl_errorMsg := %definitionId& ": " & c_ExecCtrl_paramNameEntityTypeForLGenOnClient & " is wrong.";
          pl_dataValue:={charstringVal := vl_errorMsg};
          vl_errorCode := 2;
        }
      } else {
        var charstring vl_errorMsg := %definitionId& ": Wrong parameters are given. Parameter is missing: "& c_ExecCtrl_paramNameEntityTypeForLGenOnClient;
        pl_dataValue:={charstringVal := vl_errorMsg};
        vl_errorCode := 1;
      }
    }
    case(c_ExecCtrl_dataElementScenarioOfScenariosOnClients) {
      if(0 == f_EPTF_ExecCtrl_getParams( pl_params, {c_ExecCtrl_paramNameScenarioOnClient}, pl_result, true)){
        var charstring vl_instanceName := pl_result[0];
        var EPTF_CharstringList vl_instanceParts := f_EPTF_Common_splitString(vl_instanceName, ".");
        if (sizeof(vl_instanceParts) == 3) {
          var integer vl_scenarioIndex := str2int(vl_instanceParts[2]);
          if (vl_scenarioIndex < sizeof(v_ExecCtrl_scenarios)) {
            pl_dataValue.charstringVal := v_ExecCtrl_scenarios[vl_scenarioIndex].scData.name;
            vl_errorCode := 0;
          } else {
            var charstring vl_errorMsg := %definitionId& ": " & c_ExecCtrl_paramNameEntityTypeForLGenOnClient & " is wrong: nonexistent Scenario.";
            pl_dataValue:={charstringVal := vl_errorMsg};
            vl_errorCode := 3;
          }
        } else {
          var charstring vl_errorMsg := %definitionId& ": " & c_ExecCtrl_paramNameEntityTypeForLGenOnClient & " is wrong.";
          pl_dataValue:={charstringVal := vl_errorMsg};
          vl_errorCode := 2;
        }
      } else {
        var charstring vl_errorMsg := %definitionId& ": Wrong parameters are given. Parameter is missing: "& c_ExecCtrl_paramNameEntityTypeForLGenOnClient;
        pl_dataValue:={charstringVal := vl_errorMsg};
        vl_errorCode := 1;
      }
    }
    case(c_ExecCtrl_iteratorTrafficCasesOfScenarios) {
      var integer vl_scenariosSize := sizeof(v_ExecCtrl_scenarios);
      var EPTF_CharstringList vl_result := {};
      for (var integer i := 0; i < vl_scenariosSize; i := i + 1) {
        var integer vl_trafficCasesSize := sizeof(v_ExecCtrl_scenarios[i].scData.tcList);
        for (var integer j := 0; j < vl_trafficCasesSize; j := j + 1) {
          vl_result[sizeof(vl_result)] := int2str(i) & "." & int2str(j);
        }
      }
      pl_dataValue.charstringlistVal := vl_result;
      vl_errorCode := 0;
    }
    case(c_ExecCtrl_dataElementScenarioOfTrafficCasesOfScenarios) {
      if(0 == f_EPTF_ExecCtrl_getParams( pl_params, {c_ExecCtrl_paramNameTrafficCaseOfScenario}, pl_result, true)){
        var charstring vl_instanceName := pl_result[0];
        var EPTF_CharstringList vl_instanceParts := f_EPTF_Common_splitString(vl_instanceName, ".");
        if (sizeof(vl_instanceParts) == 2) {
          var integer vl_scenarioIndex := str2int(vl_instanceParts[0]);
          if (vl_scenarioIndex < sizeof(v_ExecCtrl_scenarios)) {
            pl_dataValue.charstringVal := v_ExecCtrl_scenarios[vl_scenarioIndex].name;
            vl_errorCode := 0;
          } else {
            var charstring vl_errorMsg := %definitionId& ": " & c_ExecCtrl_paramNameTrafficCaseOfScenario & " is wrong: nonexistent Scenario.";
            pl_dataValue:={charstringVal := vl_errorMsg};
            vl_errorCode := 3;
          }
        } else {
          var charstring vl_errorMsg := %definitionId& ": " & c_ExecCtrl_paramNameTrafficCaseOfScenario & " is wrong.";
          pl_dataValue:={charstringVal := vl_errorMsg};
          vl_errorCode := 2;
        }
      } else {
        var charstring vl_errorMsg := %definitionId& ": Wrong parameters are given. Parameter is missing: "& c_ExecCtrl_paramNameTrafficCaseOfScenario;
        pl_dataValue:={charstringVal := vl_errorMsg};
        vl_errorCode := 1;
      }
    }
    case(c_ExecCtrl_dataElementTrafficCaseOfTrafficCasesOfScenarios) {
      if(0 == f_EPTF_ExecCtrl_getParams( pl_params, {c_ExecCtrl_paramNameTrafficCaseOfScenario}, pl_result, true)){
        var charstring vl_instanceName := pl_result[0];
        var EPTF_CharstringList vl_instanceParts := f_EPTF_Common_splitString(vl_instanceName, ".");
        if (sizeof(vl_instanceParts) == 2) {
          var integer vl_scenarioIndex := str2int(vl_instanceParts[0]);
          var integer vl_tcOfScidx := str2int(vl_instanceParts[1]);
          if (vl_scenarioIndex < sizeof(v_ExecCtrl_scenarios) and vl_tcOfScidx < sizeof(v_ExecCtrl_scenarios[vl_scenarioIndex].scData.tcList)) {
            pl_dataValue.charstringVal := v_ExecCtrl_scenarios[vl_scenarioIndex].scData.tcList[vl_tcOfScidx].tcPrivateName;
            vl_errorCode := 0;
          } else {
            var charstring vl_errorMsg := %definitionId& ": " & c_ExecCtrl_paramNameTrafficCaseOfScenario & " is wrong: nonexistent Scenario or TrafficCase.";
            pl_dataValue:={charstringVal := vl_errorMsg};
            vl_errorCode := 3;
          }
        } else {
          var charstring vl_errorMsg := %definitionId& ": " & c_ExecCtrl_paramNameTrafficCaseOfScenario & " is wrong.";
          pl_dataValue:={charstringVal := vl_errorMsg};
          vl_errorCode := 2;
        }
      } else {
        var charstring vl_errorMsg := %definitionId& ": Wrong parameters are given. Parameter is missing: "& c_ExecCtrl_paramNameTrafficCaseOfScenario;
        pl_dataValue:={charstringVal := vl_errorMsg};
        vl_errorCode := 1;
      }
    }
    case(c_ExecCtrl_iteratorScenariosOfScenarioGroupsWithPhaseList) {
      if(0 == f_EPTF_ExecCtrl_getParams( pl_params, {c_ExecCtrl_paramNamePhaseList}, pl_result, true)){
        var charstring vl_phaseList := pl_result[0];
        var integer vl_scgrpSize := sizeof(v_EPTF_ExecCtrl_ScenarioGroup_Declarators);
        var EPTF_CharstringList vl_result := {};
        for (var integer i := 0; i < vl_scgrpSize; i := i + 1) {
          if (v_EPTF_ExecCtrl_ScenarioGroup_Declarators[i].phaseListName == vl_phaseList) {
            var integer vl_scenariosOfScgrpSize := sizeof(v_EPTF_ExecCtrl_ScenarioGroup_Declarators[i].scenarioNames);
            for (var integer j := 0; j < vl_scenariosOfScgrpSize; j := j + 1) {
              vl_result[sizeof(vl_result)] := int2str(i) & "." & int2str(j);
            }
          }
        }
        pl_dataValue.charstringlistVal := vl_result;
        vl_errorCode := 0;
      } else {
        var charstring vl_errorMsg := %definitionId& ": Wrong parameters are given. Parameter is missing: "& c_ExecCtrl_paramNamePhaseList;
        pl_dataValue:={charstringVal := vl_errorMsg};
        vl_errorCode := 1;
      }
    }
    case(c_ExecCtrl_dataElementScenarioGroupOfScenariosOfScenarioGroupsWithPhaseList) {
      if(0 == f_EPTF_ExecCtrl_getParams( pl_params, {c_ExecCtrl_paramNameScenarioOfScenarioGroup}, pl_result, true)){
        var charstring vl_instanceName := pl_result[0];
        var EPTF_CharstringList vl_instanceParts := f_EPTF_Common_splitString(vl_instanceName, ".");
        if (sizeof(vl_instanceParts) == 2) {
          var integer vl_scenarioGroupIndex := str2int(vl_instanceParts[0]);
          if (vl_scenarioGroupIndex < sizeof(v_EPTF_ExecCtrl_ScenarioGroup_Declarators)) {
            pl_dataValue.charstringVal := v_EPTF_ExecCtrl_ScenarioGroup_Declarators[vl_scenarioGroupIndex].name;
            vl_errorCode := 0;
          } else {
            var charstring vl_errorMsg := %definitionId& ": " & c_ExecCtrl_paramNameScenarioOfScenarioGroup & " is wrong: nonexistent ScenarioGroup.";
            pl_dataValue:={charstringVal := vl_errorMsg};
            vl_errorCode := 3;
          }
        } else {
          var charstring vl_errorMsg := %definitionId& ": " & c_ExecCtrl_paramNameScenarioOfScenarioGroup & " is wrong.";
          pl_dataValue:={charstringVal := vl_errorMsg};
          vl_errorCode := 2;
        }
      } else {
        var charstring vl_errorMsg := %definitionId& ": Wrong parameters are given. Parameter is missing: "& c_ExecCtrl_paramNameScenarioOfScenarioGroup;
        pl_dataValue:={charstringVal := vl_errorMsg};
        vl_errorCode := 1;
      }
    }
    case(c_ExecCtrl_dataElementScenarioOfScenariosOfScenarioGroupsWithPhaseList) {
      if(0 == f_EPTF_ExecCtrl_getParams( pl_params, {c_ExecCtrl_paramNameScenarioOfScenarioGroup}, pl_result, true)){
        var charstring vl_instanceName := pl_result[0];
        var EPTF_CharstringList vl_instanceParts := f_EPTF_Common_splitString(vl_instanceName, ".");
        if (sizeof(vl_instanceParts) == 2) {
          var integer vl_scenarioGroupIndex := str2int(vl_instanceParts[0]);
          var integer vl_scenariosOfScgrpSize := str2int(vl_instanceParts[1]);
          if (vl_scenarioGroupIndex < sizeof(v_EPTF_ExecCtrl_ScenarioGroup_Declarators) and vl_scenariosOfScgrpSize < sizeof(v_EPTF_ExecCtrl_ScenarioGroup_Declarators[vl_scenarioGroupIndex].scenarioNames)) {
            pl_dataValue.charstringVal := v_EPTF_ExecCtrl_ScenarioGroup_Declarators[vl_scenarioGroupIndex].scenarioNames[vl_scenariosOfScgrpSize];
            vl_errorCode := 0;
          } else {
            var charstring vl_errorMsg := %definitionId& ": " & c_ExecCtrl_paramNameScenarioOfScenarioGroup & " is wrong: nonexistent ScenarioGroup or Scenario.";
            pl_dataValue:={charstringVal := vl_errorMsg};
            vl_errorCode := 3;
          }
        } else {
          var charstring vl_errorMsg := %definitionId& ": " & c_ExecCtrl_paramNameScenarioOfScenarioGroup & " is wrong.";
          pl_dataValue:={charstringVal := vl_errorMsg};
          vl_errorCode := 2;
        }
      } else {
        var charstring vl_errorMsg := %definitionId& ": Wrong parameters are given. Parameter is missing: "& c_ExecCtrl_paramNameScenarioOfScenarioGroup;
        pl_dataValue:={charstringVal := vl_errorMsg};
        vl_errorCode := 1;
      }
    }
    case(c_ExecCtrl_dataElementTcHasTimeProfile){
       var charstring vl_entityGrpName := "";
       var charstring vl_scName := "";
       var charstring vl_tcName := "";
       if (0 == f_EPTF_ExecCtrl_getParams(pl_params, {c_ExecCtrl_paramNameEntityGroup, c_ExecCtrl_paramNameScenario, c_ExecCtrl_paramNameTrafficCase}, pl_result)) {
         vl_entityGrpName := pl_result[0];
         vl_scName        := pl_result[1];
         vl_tcName        := pl_result[2];
         
         var integer vl_scIdx := f_EPTF_ExecCtrl_getScenarioIdx(vl_entityGrpName, vl_scName);
         var integer vl_tcIdx := f_EPTF_ExecCtrl_getTrafficCaseIdx(vl_entityGrpName,vl_scName,vl_tcName);
         var integer vl_tcIdxRel := f_EPTF_ExecCtrl_getTcOfScenarioIdx(vl_tcIdx);
         
         pl_dataValue := {boolVal := not f_EPTF_ExecCtrl_isWeightedScenario(vl_scIdx) or vl_tcIdxRel == 0};
         vl_errorCode := 0;
       } else {
        var charstring vl_errorMsg := %definitionId& ": Wrong parameters are given for " & c_ExecCtrl_dataElementTcHasTimeProfile & ". Expected: EntityGroup, Scenario, TrafficCase, received: " & log2str(pl_params);
        pl_dataValue:={charstringVal := vl_errorMsg};
        vl_errorCode := 1;
       }
    }
    case(c_ExecCtrl_iteratorFSMStatsOfTrafficCases) {
      var EPTF_CharstringList vl_result := {};
      
      var integer vl_scenariosSize := sizeof(v_ExecCtrl_scenarios);
      for (var integer i := 0; i < vl_scenariosSize; i := i + 1) {
        var integer vl_trafficCasesSize := sizeof(v_ExecCtrl_scenarios[i].scData.tcList);
        var integer vl_eGroupIdx := v_ExecCtrl_scenarios[i].eGroupIdx;
        for (var integer j := 0; j < vl_trafficCasesSize; j := j + 1) {
          var charstring vl_fsmStatVarName := c_ExecCtrl_DS_iteratorVar_prefix & c_ExecCtrl_iteratorFSMStats_varName & "."
            & v_ExecCtrl_entityGroups[vl_eGroupIdx].name & "."
            & v_ExecCtrl_scenarios[i].scData.name & "."
            & f_EPTF_LGenBase_tcNameOfTcOfSc(v_ExecCtrl_scenarios[i].scData,j);
          var integer vl_fsmStatsId := f_EPTF_Var_getId(vl_fsmStatVarName);
          var EPTF_CharstringList vl_fsmStats := f_EPTF_Var_getCharstringlistValue(vl_fsmStatsId);
          for (var integer k := 0; k < sizeof(vl_fsmStats); k := k + 1) {
            vl_result[sizeof(vl_result)] := int2str(i) & "." & int2str(j) & "." & int2str(vl_fsmStatsId) & "." & int2str(k);
          }
        }
      }
      
      pl_dataValue.charstringlistVal := vl_result;
      vl_errorCode := 0;
    }
    case(c_ExecCtrl_dataElementScenarioOfFSMStatsOfTrafficCases) {
      if(0 == f_EPTF_ExecCtrl_getParams( pl_params, {c_ExecCtrl_paramNameFSMStatsOfTrafficCase}, pl_result, true)){
        var charstring vl_instanceName := pl_result[0];
        var EPTF_CharstringList vl_instanceParts := f_EPTF_Common_splitString(vl_instanceName, ".");
        if (sizeof(vl_instanceParts) == 4) {
          var integer vl_scenarioIndex := str2int(vl_instanceParts[0]);
          if (vl_scenarioIndex < sizeof(v_ExecCtrl_scenarios)) {
            pl_dataValue.charstringVal := v_ExecCtrl_scenarios[vl_scenarioIndex].name;
            vl_errorCode := 0;
          } else {
            var charstring vl_errorMsg := %definitionId& ": " & c_ExecCtrl_paramNameFSMStatsOfTrafficCase & " is wrong: nonexistent Scenario.";
            pl_dataValue:={charstringVal := vl_errorMsg};
            vl_errorCode := 3;
          }
        } else {
          var charstring vl_errorMsg := %definitionId& ": " & c_ExecCtrl_paramNameFSMStatsOfTrafficCase & " is wrong.";
          pl_dataValue:={charstringVal := vl_errorMsg};
          vl_errorCode := 2;
        }
      } else {
        var charstring vl_errorMsg := %definitionId& ": Wrong parameters are given. Parameter is missing: "& c_ExecCtrl_paramNameFSMStatsOfTrafficCase;
        pl_dataValue:={charstringVal := vl_errorMsg};
        vl_errorCode := 1;
      }
    }
    case(c_ExecCtrl_dataElementTrafficCaseOfFSMStatsOfTrafficCases) {
      if(0 == f_EPTF_ExecCtrl_getParams( pl_params, {c_ExecCtrl_paramNameFSMStatsOfTrafficCase}, pl_result, true)){
        var charstring vl_instanceName := pl_result[0];
        var EPTF_CharstringList vl_instanceParts := f_EPTF_Common_splitString(vl_instanceName, ".");
        if (sizeof(vl_instanceParts) == 4) {
          var integer vl_scenarioIndex := str2int(vl_instanceParts[0]);
          var integer vl_tcOfScidx := str2int(vl_instanceParts[1]);
          if (vl_scenarioIndex < sizeof(v_ExecCtrl_scenarios) and vl_tcOfScidx < sizeof(v_ExecCtrl_scenarios[vl_scenarioIndex].scData.tcList)) {
            pl_dataValue.charstringVal := v_ExecCtrl_scenarios[vl_scenarioIndex].scData.tcList[vl_tcOfScidx].tcPrivateName;
            vl_errorCode := 0;
          } else {
            var charstring vl_errorMsg := %definitionId& ": " & c_ExecCtrl_paramNameFSMStatsOfTrafficCase & " is wrong: nonexistent Scenario or TrafficCase.";
            pl_dataValue:={charstringVal := vl_errorMsg};
            vl_errorCode := 3;
          }
        } else {
          var charstring vl_errorMsg := %definitionId& ": " & c_ExecCtrl_paramNameFSMStatsOfTrafficCase & " is wrong.";
          pl_dataValue:={charstringVal := vl_errorMsg};
          vl_errorCode := 2;
        }
      } else {
        var charstring vl_errorMsg := %definitionId& ": Wrong parameters are given. Parameter is missing: "& c_ExecCtrl_paramNameFSMStatsOfTrafficCase;
        pl_dataValue:={charstringVal := vl_errorMsg};
        vl_errorCode := 1;
      }
    }
    case(c_ExecCtrl_dataElementFSMStatNameOfFSMStatsOfTrafficCases) {
      if(0 == f_EPTF_ExecCtrl_getParams( pl_params, {c_ExecCtrl_paramNameFSMStatsOfTrafficCase}, pl_result, true)){
        var charstring vl_instanceName := pl_result[0];
        var EPTF_CharstringList vl_instanceParts := f_EPTF_Common_splitString(vl_instanceName, ".");
        if (sizeof(vl_instanceParts) == 4) {
          var integer vl_fsmStatsVarId := str2int(vl_instanceParts[2]);
          var integer vl_fsmStatIndex := str2int(vl_instanceParts[3]);
          
          if (vl_fsmStatsVarId > 0) {
            var EPTF_CharstringList vl_fsmStatsList := f_EPTF_Var_getCharstringlistValue(vl_fsmStatsVarId);
            if (vl_fsmStatIndex < sizeof(vl_fsmStatsList)) {
              pl_dataValue.charstringVal := vl_fsmStatsList[vl_fsmStatIndex];
              vl_errorCode := 0;
            } else {
              var charstring vl_errorMsg := %definitionId& ": " & c_ExecCtrl_paramNameFSMStatsOfTrafficCase & " is wrong: nonexistent FSMStat.";
              pl_dataValue:={charstringVal := vl_errorMsg};
              vl_errorCode := 4;
            }
          } else {
            var charstring vl_errorMsg := %definitionId& ": " & c_ExecCtrl_paramNameFSMStatsOfTrafficCase & " is wrong: nonexistent FSMStats.";
            pl_dataValue:={charstringVal := vl_errorMsg};
            vl_errorCode := 3;
          }
        } else {
          var charstring vl_errorMsg := %definitionId& ": " & c_ExecCtrl_paramNameFSMStatsOfTrafficCase & " is wrong.";
          pl_dataValue:={charstringVal := vl_errorMsg};
          vl_errorCode := 2;
        }
      } else {
        var charstring vl_errorMsg := %definitionId& ": Wrong parameters are given. Parameter is missing: "& c_ExecCtrl_paramNameFSMStatsOfTrafficCase;
        pl_dataValue:={charstringVal := vl_errorMsg};
        vl_errorCode := 1;
      }
    }
    case(c_ExecCtrl_dataElementGetStartCommand){
      var charstring vl_executable := "";
      var charstring vl_configFile := "";
      var EPTF_CharstringList vl_testCase := {};
      pl_dataValue:={charstringVal := f_EPTF_Base_getStartCommand(vl_executable, vl_configFile, vl_testCase)};
      vl_errorCode := 0;
    }
    case(c_ExecCtrl_dataElementGetExecutable){
      var charstring vl_executable := "";
      var charstring vl_configFile := "";
      var EPTF_CharstringList vl_testCase := {};
      f_EPTF_Base_getStartCommand(vl_executable, vl_configFile, vl_testCase);
      pl_dataValue:={charstringVal := vl_executable};
      vl_errorCode := 0;
    }
    case(c_ExecCtrl_dataElementGetConfigFile){
      var charstring vl_executable := "";
      var charstring vl_configFile := "";
      var EPTF_CharstringList vl_testCase := {};
      f_EPTF_Base_getStartCommand(vl_executable, vl_configFile, vl_testCase);
      pl_dataValue:={charstringVal := vl_configFile};
      vl_errorCode := 0;
    }
    case(c_ExecCtrl_dataElementGetTestCases){
      var charstring vl_executable := "";
      var charstring vl_configFile := "";
      var EPTF_CharstringList vl_testCase := {};
      f_EPTF_Base_getStartCommand(vl_executable, vl_configFile, vl_testCase);
      pl_dataValue:={charstringlistVal := vl_testCase};
      vl_errorCode := 0;
    }
    case (c_ExecCtrl_dataElementTcGoS){
     var charstring vl_eGrpName := "";
     var charstring vl_scTypeName := "";
     var charstring vl_tcName := "";
     if(0 == f_EPTF_ExecCtrl_getParams(
        pl_params,
        {c_ExecCtrl_paramNameEntityGroup, c_ExecCtrl_paramNameScenario, c_ExecCtrl_paramNameTrafficCase},
        pl_result)
      ) {

        vl_eGrpName   := pl_result[0];
        vl_scTypeName := pl_result[1];
        vl_tcName     := pl_result[2];
        
        var charstring vl_nofSuccVarName,vl_nofFailVarName,vl_nofTimeoutVarName,vl_nofErrorVarName;
        f_EPTF_ExecCtrl_DSProcessData(
          pl_dataVarName := vl_nofSuccVarName,
          pl_source := pl_source,
          pl_ptcName:= pl_ptcName,
          pl_element := c_ExecCtrl_dataElementTcStat,
          pl_params := pl_params & {{paramName := c_ExecCtrl_paramNameStatistic, paramValue := c_EPTF_ExecCtrl_tcStatNames[c_EPTF_ExecCtrl_tcStatId_Success]}}
        )
        f_EPTF_ExecCtrl_DSProcessData(
          pl_dataVarName := vl_nofFailVarName,
          pl_source := pl_source,
          pl_ptcName:= pl_ptcName,
          pl_element := c_ExecCtrl_dataElementTcStat,
          pl_params := pl_params & {{paramName := c_ExecCtrl_paramNameStatistic, paramValue := c_EPTF_ExecCtrl_tcStatNames[c_EPTF_ExecCtrl_tcStatId_Fail]}}
        )
        f_EPTF_ExecCtrl_DSProcessData(
          pl_dataVarName := vl_nofTimeoutVarName,
          pl_source := pl_source,
          pl_ptcName:= pl_ptcName,
          pl_element := c_ExecCtrl_dataElementTcStat,
          pl_params := pl_params & {{paramName := c_ExecCtrl_paramNameStatistic, paramValue := c_EPTF_ExecCtrl_tcStatNames[c_EPTF_ExecCtrl_tcStatId_Timeout]}}
        )
        f_EPTF_ExecCtrl_DSProcessData(
          pl_dataVarName := vl_nofErrorVarName,
          pl_source := pl_source,
          pl_ptcName:= pl_ptcName,
          pl_element := c_ExecCtrl_dataElementTcStat,
          pl_params := pl_params & {{paramName := c_ExecCtrl_paramNameStatistic, paramValue := c_EPTF_ExecCtrl_tcStatNames[c_EPTF_ExecCtrl_tcStatId_Error]}}
        )
        
        var integer vl_succ := f_EPTF_Var_getIntValue(f_EPTF_Var_getId(vl_nofSuccVarName));
        var integer vl_fail := f_EPTF_Var_getIntValue(f_EPTF_Var_getId(vl_nofFailVarName));
        var integer vl_timeout := f_EPTF_Var_getIntValue(f_EPTF_Var_getId(vl_nofTimeoutVarName));
        var integer vl_error := f_EPTF_Var_getIntValue(f_EPTF_Var_getId(vl_nofErrorVarName));
        
        var float vl_gos := 0.0;
        if (vl_succ!=0) {
          vl_gos := 100.0*int2float(vl_succ)/int2float(vl_succ+vl_fail+vl_timeout+vl_error);
        }
        
        pl_dataValue:={floatVal := vl_gos};
        vl_errorCode := 0;
      }
    }
    case else
    {
    }
  }
  return vl_errorCode;
}  

///////////////////////////////////////////////////////////
//  Function: f_EPTF_ExecCtrl_DSProcessSetDataValue
// 
//  Purpose:
//    Processes the incoming setDataValue requests - iterators and external data elements - and gives back the value.
//    It should be registered in the ExecCtrl_init_CT. Type function fcb_EPTF_DataSourceClient_setDataValueHandler
//
//  Parameters:
//    *inout* <EPTF_Var_DirectContent> *pl_dataValue* - the value of the data
//    *in charstring pl_source* - the name of the data source 'feature'
//    *in charstring pl_ptcName* - the name of the ptc (ID of the PTC)
//    *in charstring pl_element* - the name of the data element
//    *in* <EPTF_DataSource_Params> *pl_params* - the parameters
//      of the data for the dataElement
//    *in* <EPTF_IntegerList> *pl_indexList* - in case of list-type values the elements of this parameter
//      are the indexes in the list-type data for which the values should be set
//      For elementary type values this argument is not used
//
//  Return Value:
//    integer - error code (0 of OK, non zero if unsuccessful:
//     e.g. invalid parameters given in pl_params, or data is read-only.
//     If error code is not zero pl_dataValue can be used to provide textual error message)
//
//  Detailed Comments: 
//    -
//
///////////////////////////////////////////////////////////
friend function f_EPTF_ExecCtrl_DSProcessSetDataValue(inout EPTF_Var_DirectContent pl_dataValue,
                                                      in charstring pl_source,
                                                      in charstring pl_ptcName,
                                                      in charstring pl_element,
                                                      in EPTF_DataSource_Params pl_params,
                                                      in EPTF_IntegerList pl_indexList)
runs on EPTF_ExecCtrl_CT return integer{   
  var integer vl_errorCode := -1;
  var EPTF_CharstringList pl_result := {};
  select( pl_element )
  {
    case (c_ExecCtrl_dataElementRestart){
      var charstring vl_executable := "-";
      var charstring vl_configFile := "-";
      var EPTF_CharstringList vl_testCase := {"-"};
      if (0 == f_EPTF_ExecCtrl_getParams(pl_params,
                                          {c_ExecCtrl_paramNameExecutable},
                                          pl_result)){
         vl_executable := pl_result[0];
      }
      if (0 == f_EPTF_ExecCtrl_getParams(pl_params,
                                          {c_ExecCtrl_paramNameConfigFile},
                                          pl_result)){
         vl_configFile := pl_result[0];
      }
      if (0 == f_EPTF_ExecCtrl_getParams(pl_params,
                                          {c_ExecCtrl_paramNameTestCases},
                                          pl_result)){
         vl_testCase := f_EPTF_Common_splitString(pl_result[0], " ");  // there could be more TC name spearated by space in pl_result[0];
      }
      f_EPTF_Base_restart(vl_executable, vl_configFile, vl_testCase); // it will never return, pl_dataValue is invalid by default
      vl_errorCode := 0;
    }
    case else
    {
    }
  }
  return vl_errorCode;
}

///////////////////////////////////////////////////////////
//  Function: f_EPTF_ExecCtrl_conditionHandler_isWeightedSc
//
//  Purpose:
//    Callback function type to handle condition for isWeighted.
//    The type of this function is <fcb_EPTF_DataSourceClient_conditionHandler>
//
//  Parameters:
//    *out boolean pl_conditionValue* - true if the given scenario is weighted
//    *in charstring pl_source* - the name of the data source 'feature' (now <c_ExecCtrl_DataSource_sourceId>)
//    *in charstring pl_ptcName* - the name of the ptc (ID of the PTC) (now "f_EPTF_Base_selfName())
//    *in charstring pl_method* - the name of the method (now: <c_ExecCtrl_conditionIsWeightedSc>)
//    *in* <EPTF_DataSource_Params> *pl_params* - the parameters
//      of the data for the dataElement (now <c_ExecCtrl_paramNameEntityGroup>, and <c_ExecCtrl_paramNameScenario>)
//
//  Return Value:
//    integer - error code (0 of OK, non zero if unsuccessful:
//     e.g. invalid parameters given in pl_params)
//
//  Detailed Comments:
//    This function is called when <f_EPTF_DataSource_getCondition> is requested
//    for the specified pl_source,pl_ptcName and pl_method.
//    Its return value (error code) and pl_conditionValue is forwarded
//    to <f_EPTF_DataSource_getCondition>.
///////////////////////////////////////////////////////////
friend function f_EPTF_ExecCtrl_conditionHandler_isWeightedSc(
  out boolean pl_conditionValue,
  in charstring pl_source,
  in charstring pl_ptcName,
  in charstring pl_method,
  in EPTF_DataSource_Params pl_params
) runs on EPTF_ExecCtrl_CT return integer {
  var EPTF_CharstringList pl_result := {};
  var charstring vl_entityGrpName := "";
  var charstring vl_scName := "";
  if(0 == f_EPTF_ExecCtrl_getParams( pl_params,
                                       {c_ExecCtrl_paramNameEntityGroup, c_ExecCtrl_paramNameScenario},
                                       pl_result)){
    vl_entityGrpName := pl_result[0];
    vl_scName        := pl_result[1];
    if( -1 == f_EPTF_ExecCtrl_getEntityGroupIdx(vl_entityGrpName)){
       f_EPTF_ExecCtrl_warning(%definitionId& ": Datasource Parameter is wrong."&
         "\n" & c_ExecCtrl_paramNameEntityGroup & ": " & vl_entityGrpName );
       return 1;
    }
    var integer vl_scIdx := f_EPTF_ExecCtrl_getScenarioIdx(vl_entityGrpName, vl_scName);
    if( -1 == vl_scIdx){
       f_EPTF_ExecCtrl_warning(%definitionId& ": Datasource Parameter is wrong."&
         "\n" & c_ExecCtrl_paramNameScenario & ": " & vl_scName );
       return 2;
    }
    if( -1 != vl_scIdx ){
      pl_conditionValue :=  f_EPTF_ExecCtrl_isWeightedScenario(vl_scIdx);
      return 0;
    }
  }
  return -1;
}

///////////////////////////////////////////////////////////
//  Function: f_EPTF_ExecCtrl_conditionHandler_isInScGroup
//
//  Purpose:
//    Callback function type to handle condition for isInScGroup.
//    The type of this function is <fcb_EPTF_DataSourceClient_conditionHandler>
//
//  Parameters:
//    *out boolean pl_conditionValue* - true if the given scenario is in a scenario group
//    *in charstring pl_source* - the name of the data source 'feature' (now <c_ExecCtrl_DataSource_sourceId>)
//    *in charstring pl_ptcName* - the name of the ptc (ID of the PTC) (now f_EPTF_Base_selfName())
//    *in charstring pl_method* - the name of the method (now: <c_ExecCtrl_conditionIsInScGroup>)
//    *in* <EPTF_DataSource_Params> *pl_params* - the parameters
//      of the data for the dataElement (now <c_ExecCtrl_paramNameEntityGroup>, and <c_ExecCtrl_paramNameScenario>)
//
//  Return Value:
//    integer - error code (0 of OK, non zero if unsuccessful:
//     e.g. invalid parameters given in pl_params)
//
//  Detailed Comments:
//    This function is called when <f_EPTF_DataSource_getCondition> is requested
//    for the specified pl_source,pl_ptcName and pl_method.
//    Its return value (error code) and pl_conditionValue is forwarded
//    to <f_EPTF_DataSource_getCondition>.
///////////////////////////////////////////////////////////
friend function f_EPTF_ExecCtrl_conditionHandler_isInScGroup(
  out boolean pl_conditionValue,
  in charstring pl_source,
  in charstring pl_ptcName,
  in charstring pl_method,
  in EPTF_DataSource_Params pl_params
) runs on EPTF_ExecCtrl_CT return integer {
  var EPTF_CharstringList pl_result := {};
  var charstring vl_entityGrpName := "";
  var charstring vl_scName := "";
  if(0 == f_EPTF_ExecCtrl_getParams( pl_params,
                                       {c_ExecCtrl_paramNameEntityGroup, c_ExecCtrl_paramNameScenario},
                                       pl_result)){
    vl_entityGrpName := pl_result[0];
    vl_scName        := pl_result[1];
    if( -1 == f_EPTF_ExecCtrl_getEntityGroupIdx(vl_entityGrpName)){
       f_EPTF_ExecCtrl_warning(%definitionId& ": Datasource Parameter is wrong."&
         "\n" & c_ExecCtrl_paramNameEntityGroup & ": " & vl_entityGrpName );
       return 1;
    }
    var integer vl_scIdx := f_EPTF_ExecCtrl_getScenarioIdx(vl_entityGrpName, vl_scName);
    if( -1 == vl_scIdx){
       f_EPTF_ExecCtrl_warning(%definitionId& ": Datasource Parameter is wrong."&
         "\n" & c_ExecCtrl_paramNameScenario & ": " & vl_scName );
       return 2;
    }
    if( -1 != vl_scIdx ){
      var integer vl_scGrpIdx := f_EPTF_ExecCtrl_ScenarioGroup_get_byScIndex(vl_scIdx);
      pl_conditionValue :=  (vl_scGrpIdx!=-1);
      return 0;
    }
  }
  return -1;
}


// returns positive error code if params are not correct
// returns -1 if params are wrong syntactically
private function f_EPTF_ExecCtrl_getParams(in EPTF_DataSource_Params pl_params,
                                           in EPTF_CharstringList pl_needed,
                                           out EPTF_CharstringList pl_result,
                                           in boolean pl_noWarning := false)
runs on EPTF_ExecCtrl_CT return integer {
  pl_result := {};
  if(sizeof(pl_params) == sizeof(pl_needed)){
     for(var integer j := 0; j < sizeof(pl_needed); j := j + 1){
       for(var integer i := 0; i < sizeof(pl_params); i:= i + 1){
         if(pl_params[i].paramName == pl_needed[j]){
           pl_result[sizeof(pl_result)] := pl_params[i].paramValue;
         }
       }
     }
     if(sizeof(pl_result) != sizeof(pl_needed)){
       if(not pl_noWarning){
         var EPTF_CharstringList vl_error := {};
         for(var integer i := 0; i < sizeof(pl_params); i:= i + 1){
           vl_error[i] := pl_params[i].paramName;
         }
         f_EPTF_ExecCtrl_warning(%definitionId& ": Invalid DataSource parameter: Parameters are not correct: "&
         "\nReceived: "& log2str(vl_error)&
         "\nNeeded  : "& log2str(pl_needed) );
       }
       return -1;
     }
     return f_EPTF_ExecCtrl_DScheckParams(pl_params);
  } else{
    if(not pl_noWarning){
        var EPTF_CharstringList vl_error := {};
        for(var integer i := 0; i < sizeof(pl_params); i:= i + 1){
          vl_error[i] := pl_params[i].paramName;
        }
        if(sizeof(pl_params) < sizeof(pl_needed)){
           f_EPTF_ExecCtrl_warning(%definitionId& ": Invalid DataSource parameter: Too few parameters are given: "&
           "\nReceived: "& log2str(vl_error)&
           "\nNeeded  : "& log2str(pl_needed));
        } else {
           f_EPTF_ExecCtrl_warning(%definitionId& ": Invalid DataSource parameter: Too many parameters are given: "&
           "\nReceived: "& log2str(vl_error)&
           "\nNeeded  : "& log2str(pl_needed));
        }
    }
    return -1;
  }
}

// extracts the needed parameters from the params. It returns "" for values of params that are not found.
private function f_EPTF_ExecCtrl_extractParams(in EPTF_DataSource_Params pl_params,
                                           in EPTF_CharstringList pl_needed,
                                           out EPTF_CharstringList pl_result)
runs on EPTF_ExecCtrl_CT {
  pl_result := {};
  for(var integer j := 0; j < sizeof(pl_needed); j := j + 1){
    pl_result[j] := "";
    for(var integer i := 0; i < sizeof(pl_params); i:= i + 1){
      if(pl_params[i].paramName == pl_needed[j]){
        pl_result[j] := pl_params[i].paramValue;
        break;
      }
    }
  }
}

// returns positive error code if params are not correct
private function f_EPTF_ExecCtrl_DScheckParams(
  in EPTF_DataSource_Params pl_params,
  in boolean pl_noWarning := false)
runs on EPTF_ExecCtrl_CT return integer {

  var EPTF_CharstringList pl_result;
  f_EPTF_ExecCtrl_extractParams(pl_params,{c_ExecCtrl_paramNameEntityGroup,c_ExecCtrl_paramNameScenario,c_ExecCtrl_paramNameTrafficCase},pl_result);

  // check EGrp
  if (pl_result[0]!="") { // c_ExecCtrl_paramNameEntityGroup is present
    // check if entity group exists
    var integer vl_eGrpIdx := f_EPTF_ExecCtrl_getEntityGroupIdx(pl_result[0]);
    if(vl_eGrpIdx == -1){
      var integer vl_eGrpListVarIdx := f_EPTF_Var_getId(c_ExecCtrl_DS_iteratorVar_prefix & c_ExecCtrl_iteratorEntityGroups_varName);
      var EPTF_CharstringList vl_eGrpNames := {};
      if (vl_eGrpListVarIdx!=-1) {
        vl_eGrpNames:= f_EPTF_Var_getCharstringlistValue(vl_eGrpListVarIdx);
      }
      f_EPTF_ExecCtrl_warning(%definitionId& ": Invalid DataSource parameter: Entity group """&pl_result[0]&""" does not exits. Available entity groups:"&log2str(vl_eGrpNames));
      return 1;
    }
  }

  // check Scenario
  if (pl_result[1]!="" and pl_result[0]!="") { // c_ExecCtrl_paramNameScenario and c_ExecCtrl_paramNameEntityGroup are present
    // check if scenario exists
    var integer vl_scIdx := f_EPTF_ExecCtrl_getScenarioIdx(pl_result[0], pl_result[1]);
    if(vl_scIdx == -1){
      var EPTF_IntegerList vl_scIdxs := f_EPTF_ExecCtrl_eGrp_scenarios(f_EPTF_ExecCtrl_getEntityGroupIdx(pl_result[0]));
      var EPTF_CharstringList vl_scNames := {};
      for(var integer i:=0; i<sizeof(vl_scIdxs); i:=i+1) {
        vl_scNames[sizeof(vl_scNames)] := f_EPTF_ExecCtrl_getScenarioName(vl_scIdxs[i]);
      }
      f_EPTF_ExecCtrl_warning(%definitionId& ": Invalid DataSource parameter: Scenario """&pl_result[1]&""" does not exits in entity group """&pl_result[0]&""". Available scenarios:"&log2str(vl_scNames));
      return 2;
    }
  }

  // check Traffic case
  if (pl_result[2]!="" and pl_result[1]!="" and pl_result[0]!="") { //c_ExecCtrl_paramNameTrafficCase,c_ExecCtrl_paramNameScenario and c_ExecCtrl_paramNameEntityGroup are present
    // check if traffic case exists
    var integer vl_tcIdx := f_EPTF_ExecCtrl_getTrafficCaseIdx(pl_result[0],pl_result[1],pl_result[2]);
    if( -1 == vl_tcIdx){
      var integer vl_tcListVarIdx := f_EPTF_Var_getId(c_ExecCtrl_DS_iteratorVar_prefix & c_ExecCtrl_iteratorTrafficCases_varName & "." & pl_result[0] & "." & pl_result[1]);
      var EPTF_CharstringList vl_tcNames := {};
      if (vl_tcListVarIdx!=-1) {
        vl_tcNames:= f_EPTF_Var_getCharstringlistValue(vl_tcListVarIdx);
      }
      f_EPTF_ExecCtrl_warning(%definitionId& ": Invalid DataSource parameter: Traffic case """&pl_result[2]&""" does not exits in the scenario """
        &pl_result[1]&""" of entity group """&pl_result[0]&""". Available traffic cases:"&log2str(vl_tcNames));
      return 3;
    }
  }

  // check TC stat name (and FSM stat name)
  f_EPTF_ExecCtrl_extractParams(pl_params,{c_ExecCtrl_paramNameStatistic},pl_result);
  if (pl_result[0]!="") { // c_ExecCtrl_paramNameStatistic is present
    // check if tc stat name exists
    var boolean vl_found := false;
    for(var integer i:=0; i<sizeof(c_EPTF_ExecCtrl_tcStatNames); i:=i+1) {
      if (c_EPTF_ExecCtrl_tcStatNames[i]==pl_result[0]) {
        vl_found:=true;
        break;
      }
    }

    // check FSM stat names:
    if (not vl_found) {
      // available FSM statNames:
      var EPTF_CharstringList vl_params;
      f_EPTF_ExecCtrl_extractParams(pl_params,{c_ExecCtrl_paramNameEntityGroup,c_ExecCtrl_paramNameScenario,c_ExecCtrl_paramNameTrafficCase},vl_params);
      var charstring vl_eGrpName := vl_params[0];
      var charstring vl_scName := vl_params[1];
      var charstring vl_tcName := vl_params[2];

      var integer vl_varIdx := f_EPTF_Var_getId(
        c_ExecCtrl_DS_iteratorVar_prefix & c_ExecCtrl_iteratorFSMStats_varName & "."
        & vl_eGrpName & "."
        & vl_scName & "."
        & vl_tcName
      );
      var EPTF_CharstringList vl_availableValues := {};
      if (vl_varIdx!=-1) {
        vl_availableValues:= f_EPTF_Var_getCharstringlistValue(vl_varIdx);
      }

      // check if FSM statName exists
      for(var integer i:=0; i<sizeof(vl_availableValues); i:=i+1) {
        if (vl_availableValues[i]==pl_result[0]) {
          vl_found:=true;
          break;
        }
      }
      if (not vl_found) {
        f_EPTF_ExecCtrl_warning(%definitionId& ": Invalid DataSource parameter: FSM statistics """&pl_result[0]&""" does not exits. Available FSM statNames:"&log2str(vl_availableValues));
        //return 4; // do not return here: TC Stats warning is also shown
      }
    }

    if (not vl_found) {
      f_EPTF_ExecCtrl_warning(%definitionId& ": Invalid DataSource parameter: Traffic case statistics """&pl_result[0]&""" does not exits. Available TC statNames:"&log2str(c_EPTF_ExecCtrl_tcStatNames));
      return 4;
    }
  }

  // check Group finish condition name
  f_EPTF_ExecCtrl_extractParams(pl_params,{c_ExecCtrl_paramNameCondition},pl_result);
  if (pl_result[0]!="") { // c_ExecCtrl_paramNameCondition is present
    // available grp finish conditions:
    var EPTF_CharstringList vl_availableConditions := {};
    for(var integer st:=0; st<sizeof(c_EPTF_ExecCtrl_tcStatNames);st:=st+1) {
      var EPTF_ExecCtrl_GrpFinishConditionType vl_grpFinishConditionType := f_EPTF_ExecCtrl_UIVars_tcStatId2GrpFinishConditionType(st);
      if (vl_grpFinishConditionType == c_EPTF_ExecCtrl_groupFinishConditionUnknown) {
        continue; // no conditions for these stats
      }
      vl_availableConditions[sizeof(vl_availableConditions)] := c_EPTF_ExecCtrl_tcStatNames[st];
    }

    // check if group finish condition exists
    var boolean vl_found := false;
    for(var integer i:=0; i<sizeof(vl_availableConditions); i:=i+1) {
      if (vl_availableConditions[i]==pl_result[0]) {
        vl_found:=true;
        break;
      }
    }
    if (not vl_found) {
      f_EPTF_ExecCtrl_warning(%definitionId& ": Invalid DataSource parameter: Group finish condition """&pl_result[0]&""" does not exits. Available grp finish conditions:"&log2str(vl_availableConditions));
      return 5;
    }
  }

  // check LGen name
  f_EPTF_ExecCtrl_extractParams(pl_params,{c_ExecCtrl_paramNameLGen},pl_result);
  if (pl_result[0]!="") { // c_ExecCtrl_paramNameLGen is present
    // available lgens:
    var integer vl_varIdx := f_EPTF_Var_getId(c_ExecCtrl_DS_iteratorVar_prefix & c_ExecCtrl_iteratorLGens_varName);
    var EPTF_CharstringList vl_availableValues := {};
    if (vl_varIdx!=-1) {
      vl_availableValues:= f_EPTF_Var_getCharstringlistValue(vl_varIdx);
    }

    // check if group finish condition exists
    var boolean vl_found := false;
    for(var integer i:=0; i<sizeof(vl_availableValues); i:=i+1) {
      if (vl_availableValues[i]==pl_result[0]) {
        vl_found:=true;
        break;
      }
    }
    if (not vl_found) {
      f_EPTF_ExecCtrl_warning(%definitionId& ": Invalid DataSource parameter: LGen with name """&pl_result[0]&""" does not exits. Available LGens:"&log2str(vl_availableValues));
      return 6;
    }
  }

  // check Scenario group name
  f_EPTF_ExecCtrl_extractParams(pl_params,{c_ExecCtrl_paramNameScenarioGroup},pl_result);
  if (pl_result[0]!="") { // c_ExecCtrl_paramNameScenarioGroup is present
    // available scGroups:
    var integer vl_varIdx := f_EPTF_Var_getId(c_ExecCtrl_DS_iteratorVar_prefix & c_ExecCtrl_iteratorScenarioGroups_varName);
    var EPTF_CharstringList vl_availableValues := {};
    if (vl_varIdx!=-1) {
      vl_availableValues:= f_EPTF_Var_getCharstringlistValue(vl_varIdx);
    }

    // check if scGroup exists
    var boolean vl_found := false;
    for(var integer i:=0; i<sizeof(vl_availableValues); i:=i+1) {
      if (vl_availableValues[i]==pl_result[0]) {
        vl_found:=true;
        break;
      }
    }
    if (not vl_found) {
      f_EPTF_ExecCtrl_warning(%definitionId& ": Invalid DataSource parameter: Scenario group """&pl_result[0]&""" does not exits. Available scenario groups:"&log2str(vl_availableValues));
      return 7;
    }
  }

  // check entity type name
  f_EPTF_ExecCtrl_extractParams(pl_params,{c_ExecCtrl_paramNameEntityType,c_ExecCtrl_paramNameLGen},pl_result);
  if (pl_result[0]!="" and pl_result[1]!="") { // c_ExecCtrl_paramNameEntityType is present

    var charstring vl_LGenName := pl_result[1];
    // available values:
    var integer vl_varIdx := f_EPTF_Var_getId(c_ExecCtrl_DS_iteratorVar_prefix & c_ExecCtrl_iteratorEntityTypesForLGen_varName & "." & vl_LGenName);
    var EPTF_CharstringList vl_availableValues := {};
    if (vl_varIdx!=-1) {
      vl_availableValues:= f_EPTF_Var_getCharstringlistValue(vl_varIdx);
    }

    // check if given value exists
    var boolean vl_found := false;
    for(var integer i:=0; i<sizeof(vl_availableValues); i:=i+1) {
      if (vl_availableValues[i]==pl_result[0]) {
        vl_found:=true;
        break;
      }
    }
    if (not vl_found) {
      f_EPTF_ExecCtrl_warning(%definitionId& ": Invalid DataSource parameter: Entity type name """&pl_result[0]&""" does not exits on LGen """&vl_LGenName&""". Available entity types:"&log2str(vl_availableValues));
      return 8;
    }
  }

  // check c_ExecCtrl_paramNameScenarioInstance
  f_EPTF_ExecCtrl_extractParams(pl_params,{c_ExecCtrl_paramNameScenarioInstance},pl_result);
  if (pl_result[0]!="") { // c_ExecCtrl_paramNameScenarioInstance is present

    // available values:
    var EPTF_CharstringList vl_availableValues := {};
    for(var integer scidx:=0; scidx<sizeof(v_ExecCtrl_scenarios);scidx:=scidx+1) {
      vl_availableValues[sizeof(vl_availableValues)] := v_ExecCtrl_scenarios[scidx].name;
    }

    // check if given value exists
    var boolean vl_found := false;
    for(var integer i:=0; i<sizeof(vl_availableValues); i:=i+1) {
      if (vl_availableValues[i]==pl_result[0]) {
        vl_found:=true;
        break;
      }
    }
    if (not vl_found) {
      f_EPTF_ExecCtrl_warning(%definitionId& ": Invalid DataSource parameter: Scenario instance """&pl_result[0]&""" does not exits. Available scenario instances:"&log2str(vl_availableValues));
      return 9;
    }
  }

  // check c_ExecCtrl_paramNameRegulatedItemId
  f_EPTF_ExecCtrl_extractParams(pl_params,{c_ExecCtrl_paramNameRegulatedItemId},pl_result);
  if (pl_result[0]!="") { // c_ExecCtrl_paramNameRegulatedItemId is present
    // available regulated items:
    var integer vl_varIdx := f_EPTF_Var_getId(c_ExecCtrl_DS_iteratorVar_prefix & c_ExecCtrl_iteratorRegulatedItems_varName);
    var EPTF_CharstringList vl_availableValues := {};
    if (vl_varIdx!=-1) {
      vl_availableValues:= f_EPTF_Var_getCharstringlistValue(vl_varIdx);
    }

    // check if regulated items exists
    var boolean vl_found := false;
    for(var integer i:=0; i<sizeof(vl_availableValues); i:=i+1) {
      if (vl_availableValues[i]==pl_result[0]) {
        vl_found:=true;
        break;
      }
    }
    if (not vl_found) {
      f_EPTF_ExecCtrl_warning(%definitionId& ": Invalid DataSource parameter: Regulated item """&pl_result[0]&""" does not exits. Available regulated items:"&log2str(vl_availableValues));
      return 10;
    }
  }

  // check c_ExecCtrl_paramNameRegulatorName
  f_EPTF_ExecCtrl_extractParams(pl_params,{c_ExecCtrl_paramNameRegulatorName},pl_result);
  if (pl_result[0]!="") { // c_ExecCtrl_paramNameRegulatorName is present
    // available regulators:
    var integer vl_varIdx := f_EPTF_Var_getId(c_ExecCtrl_DS_iteratorVar_prefix & c_ExecCtrl_iteratorRegulators_varName);
    var EPTF_CharstringList vl_availableValues := {};
    if (vl_varIdx!=-1) {
      vl_availableValues:= f_EPTF_Var_getCharstringlistValue(vl_varIdx);
    }

    // check if regulator exists
    var boolean vl_found := false;
    for(var integer i:=0; i<sizeof(vl_availableValues); i:=i+1) {
      if (vl_availableValues[i]==pl_result[0]) {
        vl_found:=true;
        break;
      }
    }
    if (not vl_found) {
      f_EPTF_ExecCtrl_warning(%definitionId& ": Invalid DataSource parameter: Regulator with name """&pl_result[0]&""" does not exits. Available regulator names:"&log2str(vl_availableValues));
      return 11;
    }
  }

  // check c_ExecCtrl_paramNamePhase
  f_EPTF_ExecCtrl_extractParams(pl_params,{c_ExecCtrl_paramNamePhase},pl_result);
  if (pl_result[0]!="") { // c_ExecCtrl_paramNamePhase is present
    // available phases:
    var integer vl_varIdx := f_EPTF_Var_getId(c_ExecCtrl_DS_iteratorVar_prefix & c_ExecCtrl_iteratorPhases_varName);
    var EPTF_CharstringList vl_availableValues := {};
    if (vl_varIdx!=-1) {
      vl_availableValues:= f_EPTF_Var_getCharstringlistValue(vl_varIdx);
    }

    // check if phase name exists
    var boolean vl_found := false;
    for(var integer i:=0; i<sizeof(vl_availableValues); i:=i+1) {
      if (vl_availableValues[i]==pl_result[0]) {
        vl_found:=true;
        break;
      }
    }
    if (not vl_found) {
      f_EPTF_ExecCtrl_warning(%definitionId& ": Invalid DataSource parameter: Phase """&pl_result[0]&""" does not exits. Available phases:"&log2str(vl_availableValues));
      return 12;
    }
  }

  return 0;

}


} // group R3

} // module