home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / autobk2.zip / BMLog.CMD next >
OS/2 REXX Batch file  |  1995-07-28  |  1KB  |  41 lines
  1. /***************************************************/
  2. /* REXX Procedure to display the current           */
  3. /* BackMaster Log File.                            */
  4. /***************************************************/
  5. '@ECHO OFF'
  6. editor = 'EPM.EXE'
  7.  
  8. /***************************************************/
  9. /* Initialize REXXUtil environment (if not present)*/
  10. /***************************************************/
  11. rxload = RxFuncQuery('SysLoadFuncs')
  12. If rxload Then
  13.    Do
  14.       Call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  15.       Call sysloadfuncs
  16.    End
  17.  
  18. /***************************************************/
  19. /*  Locate the active BackMaster directory         */
  20. /***************************************************/
  21. bmname = SysSearchPath('PATH', 'BACKMAST.EXE')
  22. If bmname \= '' Then
  23.    Do
  24.       bmdrive = Filespec('D', bmname)
  25.       bmpath = Filespec('P', bmname)
  26.       bmpath = bmdrive||bmpath
  27.  
  28. /***************************************************/
  29. /*  Launch the Enhanced editor to view the log.    */
  30. /***************************************************/
  31.       'START /WIN' editor bmpath||'BACKMAST.LOG'
  32.    End
  33.  
  34. /*******************************************************/
  35. /*  If RexxUtil loaded, drop it before ending.         */
  36. /*******************************************************/
  37. If rxload Then
  38.    Call SysDropFuncs
  39.  
  40. Exit
  41.