Is it possible to iterate through all tasks without any information of the tasks?

Hello,

I agree with lemester68 to use the ReaedCfgData, but it is not possible to search directly for the names of the tasks, because you could only search for the value of a string parameter in the configuration data.

The following code searches only for all normal tasks in the system:

LOCAL PROC GetTaskName()
    VAR num nListIndex;
    VAR string stTaskName;

    !read all normal task names from sys.cfg
    WHILE nListIndex<>END_OF_LIST DO
      ReadCfgData "/SYS/CAB_TASKS/Type/NORMAL","Name",stTaskName\ListNo:=nListIndex;
      TPWrite "Task name: "+stTaskName;
    ENDWHILE

  ENDPROC

If you want to search for all task types you have to add a search for the static and semi-static tasks.

Hi Markus,

Did you ever happen across a convenient way of doing this?
I ended up writing a module (below) to discover the tasks and store some info about them, 
but was also looking for a more simple way to get the data

%%%
	VERSION:1.0
	LANGUAGE:ENGLISH
%%%

MODULE Forge_Task(SYSMODULE)
!--------------------------------------------------------------------------------------------------!
!	Description:	Example Description															   !
!																								   !
!	| Revision | Date 		| Author | Description												   !
!	|----------|------------|--------|-------------------------------------------------------------!
!	| 1.0	   | 2022/03/07 | H.P.   | Document Creation										   !
!--------------------------------------------------------------------------------------------------!
    
	! Create an alias for the string datatype for task types, Normal, Static, SemiStatic
	ALIAS string tasktype;
	
	! Create a record for storing data about all tasks in the system
    RECORD fe_taskdata
		string Name; 		! Task name from the Controller System Config
		tasktype Type;		! The type of task in case this is relevant for certain operations
		tsp_status Status;	! Task active in controller status
		bool Executing;		! Task executing in controller status
	ENDRECORD
	
	! Constants representing each type of task
	CONST tasktype TKT_Normal 		:= "NORMAL";
	CONST tasktype TKT_Static 		:= "STATIC";
	CONST tasktype TKT_SemiStatic 	:= "SEMISTATIC";
	CONST tasktype TKT_None 		:= "";
	! Store an array of the task types for easy searching
	VAR tasktype tkt_Types{4} := [TKT_Normal, TKT_SemiStatic, TKT_Static, TKT_None]; 
	CONST num N_NumTaskTypes := 4; ! Number of different task types
	
	! An array storing all task data
	PERS fe_taskdata tsd_Tasks{20} := [["T_ROB1","NORMAL",14,TRUE],["T_ROB1_GUI","NORMAL",14,TRUE],["T_ROB1_Maintenance","NORMAL",14,FALSE],["T_ROB1_Background","SEMISTATIC",14,TRUE],["tAwSys_1","STATIC",13,TRUE],["","",-1,FALSE],["","",-1,FALSE],["","",-1,FALSE],["","",-1,FALSE],["","",-1,FALSE],["","",-1,FALSE],["","",-1,FALSE],["","",-1,FALSE],["","",-1,FALSE],["","",-1,FALSE],["","",-1,FALSE],["","",-1,FALSE],["","",-1,FALSE],["","",-1,FALSE],["","",-1,FALSE]];
	CONST num N_MaxTasks := 20; ! The maximum number of concurrent tasks
	
    !**********************************************************************************************!
    PROC LoadTasksFromConfig(INOUT fe_TaskData Tasks{*})										   !
    ! Description:																				   !
    ! 	Loads all task data into the given array												   !
    !																							   !
    ! Parameters:																				   !
    ! 	INOUT fe_taskData Tasks	-	An array, empty or otherwise of task data to be filled		   !
    !																							   !
    ! Author: Harry Parker		Date: 2022/03/07		Revision: 1.0							   !
    !**********************************************************************************************!
        
        VAR num n_CfgIndex := 0;		! Index of the configuration attribute in the instance list
		VAR string s_TaskName := ""; 	! Task name of searched task from the config file
		VAR num n_ListIndex := 1;		! The index of the input array to store the task data in
		VAR num n_TaskTypeIndex := 1; 	! The index of the current task type to search for
		
		! Loop through the array of stored tasks, while searching the config file for tasks
		WHILE n_ListIndex <= N_MaxTasks DO
			! If there are still task types to search for
			IF n_TaskTypeIndex <= N_NumTaskTypes - 1 THEN
				! Try and read the next name of a normal task from the config data
				ReadCfgData "/SYS/CAB_TASKS/Type/" + tkt_Types{n_TaskTypeIndex}, "Name", s_TaskName, \ListNo:=n_CfgIndex;
				! If the end of the list has been reached
				IF n_CfgIndex = N_EndOfList THEN
					! Have found all tasks of this type, search for the next type
					Incr n_TaskTypeIndex;
					! Reset the search index to search from 0 for the next type
					n_CfgIndex := 0;
				ENDIF
			ENDIF
			! Store the task name in the list
			Tasks{n_ListIndex}.Name := s_TaskName;
			! Store the task type in the list
			Tasks{n_ListIndex}.Type := tkt_Types{n_TaskTypeIndex};
			! Update the task executing boolean & status for this task
			UpdateTaskData Tasks{n_ListIndex};
			! Increment the list index
			Incr n_ListIndex;
		ENDWHILE
	
	!----------------------------------------------------------------------------------------------!
	ERROR ! Error handler
		! Check the error number for specific errors
		TEST ERRNO
		CASE ERR_CFG_NOTFND: ! Expected error for not finding configuration
			! If there is no config data set the index to -1 and the returned string to empty
			n_CfgIndex := -1;
			s_TaskName := "";
			! Move to the next instruction
			TRYNEXT;
		DEFAULT: ! For other unexpected errors
			RAISE; ! Raise the error to the calling procedure or function
		ENDTEST
	ENDPROC
    
	!**********************************************************************************************!
    PROC UpdateTaskData(INOUT fe_TaskData TaskData)												   !
    ! Description:																				   !
    ! 	Updates task data for the specific task													   !
    !																							   !
    ! Parameters:																				   !
    ! 	INOUT fe_taskData TaskData	-	Task data to have the status updated					   !
    !																							   !
    ! Author: Harry Parker		Date: 2022/03/07		Revision: 1.0							   !
    !**********************************************************************************************!
		
		! Update the execution status of the task
		TaskData.Executing := TaskIsExecuting(TaskData.Name);
		! Update the active status of the task
		TaskData.Status := GetTSPStatus(TaskData.Name);
		
	!----------------------------------------------------------------------------------------------!
	ERROR ! Error handler
		! Check the error number for specific errors
		TEST ERRNO
		CASE ERR_TASKNAME: ! Expected error for not finding the given task
			! Return empty data for the executing and status parameters if no task is found
			TaskData.Executing := FALSE;
			TaskData.Status := -1;
			RETURN;
		DEFAULT: ! For other unexpected errors
			RAISE; ! Raise the error to the calling procedure or function
		ENDTEST
	ENDPROC
ENDMODULE