Supply EventNumber as a number between 6100 and 6199. This is the number used in the logs, to differentiate it from server requests and form events. Alternatively, use 0 to 99, which will be converted.

The statement ProfileEvent may be used to add a text description and configure the event.

The system workarea SysError is set to a non-zero value if an error occurs, otherwise zero.

This example uses ProfileMessage to trace when a route is found

number routeID(8, 0)
number fare, lowestFare, count

ProfileResume
ProfileEvent 6101, "Fare found"

| Summarise this event and start it now
ProfileEvent 6100, "Search for best route", 1, 1

ppGetFirstRoute routeID, fare
lowestFare = fare + 1

while routeID

if lowestFare > fare then

ProfileMessage 6101
ppAddRouteToList routeID, fare
lowestFare = fare

end if

ppGetNextRoute routeID, fare end while ProfileEventStop ProfilePause | Produce a log including the full trace history in order to see the | individual 'Fare found' messages ProfileLog 8