home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #30 / NN_1992_30.iso / spool / comp / os / vms / 19342 < prev    next >
Encoding:
Internet Message Format  |  1992-12-15  |  1.6 KB
  1. Path: sparky!uunet!zaphod.mps.ohio-state.edu!cis.ohio-state.edu!ucbvax!KOPC.HHS.DK!ARNE
  2. From: ARNE@KOPC.HHS.DK (Arne Vajhxj)
  3. Newsgroups: comp.os.vms
  4. Subject: Re: MOVE for Vms anywhere ?
  5. Message-ID: <01GSCL9O0D9U8WW82Q@kopc.hhs.dk>
  6. Date: 15 Dec 92 14:29:02 GMT
  7. Sender: daemon@ucbvax.BERKELEY.EDU
  8. Distribution: world
  9. Organization: The Internet
  10. Lines: 39
  11.  
  12. > I am looking for a Vms MOVE command (I'ld prefer a fully Vms command which
  13. > allows /LOG, /CONFIRM, /EXCLUDE etc. qualifiers).
  14. > 
  15. > I haven't seen anything like it yet, so I wrote my own (in DCL :-{), but
  16. > I can't get it working the way I want it to.
  17.  
  18. If the file is being move between the same disk, then the RENAME command has
  19. the functionality. If the file is moved between disks, then you will have
  20. to COPY and DELETE !
  21.  
  22. You can try defining something like:
  23.  
  24.   MOVE:==@disk:[dir]MOVE.COM
  25.  
  26. where MOVE.COM contains:
  27.  
  28. $ if f$parse(p1,,,"DEVICE") .eqs. f$parse(p2,,,"DEVICE") 
  29. $ then
  30. $     rename 'p1' 'p2' 'p3' 'p4' 'p5' 'p6' 'p7' 'p8'
  31. $ else
  32. $     copy 'p1' 'p2' 'p3' 'p4' 'p5' 'p6' 'p7' 'p8'
  33. $     delete 'p1'
  34. $ endif
  35. $ exit
  36.  
  37. There is still a few restrictions compared with a real DCL command:
  38.   - qualifiers must be specified after the parameters
  39.   - if the COPY/DELETE is used, then version numbers must be specified
  40.  
  41. but theese could be (almost completely) avoided by some more DCL
  42. programming
  43.  
  44.                                                           Arne
  45.  
  46. Arne Vajhxj                             local DECNET:  KO::ARNE
  47. Computer Department                     PSI:           PSI%23831001304030::ARNE
  48. Business School of Southern Denmark     Internet:      ARNE@KO.HHS.DK
  49.  
  50.  
  51.