ListEvent
REPLACE MACRO SystemFE.ListEvent
(Event(Integer),
Fromdate (date, FORMAT 'YYYY-MM-DD'),
Todate (date, DEFAULT DATE, FORMAT 'YYYY-MM-DD')) AS
(
echo 'set defaults;';
echo 'set format on;';
echo 'set width 80;';
echo 'set NULL as "-";';
echo 'set separator 2;';
echo 'set pagelength 60;';
echo 'set suppress on 3,4;';
echo 'set omit on 1,2,5;';
echo 'set heading "&DATE||All &5 Events Between &1 and &2||&TIME";';
Select :Fromdate (Format 'YYYY-MM-DD')
, :Todate (Format 'YYYY-MM-DD')
, TheDate (Title 'Date')
, TheTime (Title 'Time')
, Event_Tag
, Text
From DBC.Software_Event_Log
Where Event_Tag=:Event
And TheDate Between :fromdate and :Todate
Order By TheDate, TheTime, Line;
echo 'set defaults;';
);