WD Overloading WLanguage functions
PROCEDURE Manage_Trace_TraceMode(nTraceType)
// Store the trace mode
Manage_Trace_Mode = nTraceType
IF Manage_Trace_Mode = FileTrace OR Manage_Trace_Mode = StandardTrace_File THEN
// Open the specified file
Manage_Trace_FileID = fOpen(Manage_Trace_File,foCreate+foWrite)
ELSE
// If a file is opened, it must be closed
fClose(Manage_Trace_FileID)
Manage_Trace_FileID = -1
END
//----------------------------------------------------------------------------
PROCEDURE ExecutionCode()
// This procedure uses the function called "Trace".
// The "Trace" function is redefined in the set of procedures called "Manage_Trace"
// Start of the test
Trace("Functionality Test")
nSubscript is int
// Perform a loop of 50 iterations
FOR nSubscript = 1 TO 50
// Display the progress of the iteration
Trace("Loop: "+nSubscript)
END
// End of Test
Trace("End of Test")