home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / bbs / util / filer-3.14.lha / Filer / Rexx / DMSWrite.filer next >
Encoding:
Text File  |  1993-11-27  |  1.1 KB  |  57 lines
  1. /* 
  2.  
  3.    $VER: DMSWrite.filer 2.1 (22.11.93)
  4.  
  5.    Author:
  6.     Matthias Scheler (tron@lyssa.pb.owl.de)
  7.  
  8.    Function:
  9.     Opens a string requester, asks for a drive and writes DMS file to the
  10.     specified drive. After the DMS file has been written the user can
  11.     decide to call the "Verify" command (include with Filer) to check the
  12.     disk.
  13.  
  14.    Requires:
  15.     Bin/Verify
  16.  
  17.    Call:
  18.     DMSWrite FILENAME
  19.  
  20.    Example for "Filer.RC":
  21.     REXXCLASS "#?.dms","DMS!","DMSWrite %s"
  22.  
  23. */
  24.  
  25. PARSE ARG FileName
  26.  
  27. ADDRESS 'FilerRexx'
  28. OPTIONS RESULTS
  29.  
  30. 'STATUS Extract DMS file'
  31. PANEL OFF
  32.  
  33. DISKDRIVE=GETCLIP('FILER_DRIVE')
  34. IF DISKDRIVE="" THEN DISKDRIVE='DF0:'
  35.  
  36. SETSTRING DISKDRIVE
  37. GETSTRING 'Enter target drive (e.g. "DF0:"):'
  38. IF RESULT="RESULT" THEN
  39.  DO
  40.   PANEL ON
  41.  
  42.   'STATUS Extract DMS file aborted'
  43.   EXIT 5
  44.  END
  45.  
  46. DISKDRIVE=RESULT
  47. SETCLIP('FILER_DRIVE',DISKDRIVE)
  48.  
  49. 'STATUS Extracting DMS file "'||FileName||'" to "'||DISKDRIVE||'" ...'
  50. EXECANDWAIT 'DMS WRITE ' FileName ' TO ' DISKDRIVE 'NOTEXT'
  51.  
  52. QUESTBOX 'Check disk for read errors ?'
  53. IF RESULT THEN EXEC 'Verify ' DISKDRIVE 'NOWAIT'
  54.  
  55. PANEL ON
  56. 'HISTORY Extracted DMS file "'||FileName||'" to "'||DISKDRIVE||'".'
  57.