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