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")