MiniCylPacks
REPLACE MACRO SystemFE.MiniCylPacks
(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;';
echo 'set heading "&DATE||MiniCylPacks Performed Between &1 and &2||&TIME"
;';
Select :Fromdate (Format 'YYYY-MM-DD')
, :Todate (Format 'YYYY-MM-DD')
, VProc
, TheDate (Title 'Date')
, TheTime (Title 'Time')
, Event_Tag (Title 'Event')
From DBC.Software_Event_Log
Where Event_Tag in (0340514100, 0340514200, 0340514300)
And Line=1
And DBC.Software_Event_Log.TheDate Between :Fromdate and :Todate
With Count(*) (Title '***** Number of MiniCylPack log messages On vproc &3 =', FORMAT 'zzzz9')
By 3
Order By 3,4,5;
echo 'set defaults;';
);