PackDisk
REPLACE MACRO SystemFE.PackDisk
(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||PackDisks 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
From DBC.Software_Event_Log
Where Event_Tag in (0340514400, 0340514500)
And Line=1
And DBC.Software_Event_Log.TheDate Between :Fromdate and :Todate
With (Count(*) +1)/2 (Title '***** Number of PackDisks On vproc &3 ='
, FORMAT 'zzzz9')
By 3
Order By 3,4,5;
echo 'set defaults;';
);