/*************************************************************************/
/*                 Wall Street Blues Maintenance Starter                 */
/*                          AREXX Programming by                         */
/*                          Charles A. Van Tuyl                          */
/*                               aka Caesar                              */
/*$VER:Wall Street Blues Maintenance, v2.0 (04-12-94) by Charles Van Tuyl*/
/*               Gold City User's Group BBS  (502) 942-3660              */
/*                 AUGNet 222:5000/2   C-Link! 911:6300/4                */
/*************************************************************************/
options  results
signal on syntax
date=left(date(M),3)||' '||left(date(E),2)
signal off error;call open(file,'Pfiles:Stocks/'||'Date.data','R')
ED=readln(file); call close file
if date = ED then do
transmit 'c5Maintenance Has already been done today!';exit
end
signal off error;call open(file,'Pfiles:Stocks/'||'Date.data','W')
writeln(file,date);call close file; signal on error
date=left(date(E),2)
transmit 'c3Starting Maintenance'
transmit '#0Pfiles:Stocks/Maint}'
transmit '#0Pfiles:Stocks/Sort}'
if date=01 then transmit '#0Pfiles:Stocks/Reset}'
transmit '#0Pfiles:Stocks/DowMaint}'
transmit '#0Pfiles:Stocks/HisMaint}'
exit