home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 18 REXX
/
18-REXX.zip
/
killold1.zip
/
POSTLOG.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1996-06-11
|
378b
|
17 lines
/* routine to post stuff in a system wide log with a time stamp. */
/* trace results */
arg statement
logfile='c:\system.log'
bdate=date('n')
btime=time('n')
if length(bdate)=11 then bdate=left(bdate,6); else bdate=left(bdate,5)
if length(bdate)\=6 then bdate='0' || bdate
bdate=' ' || bdate
call lineout logfile,bdate btime statement
call lineout logfile