home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 17 / CD_ASCQ_17_101194.iso / vrac / unzip512.zip / vms / clean.com next >
Text File  |  1994-08-25  |  803b  |  32 lines

  1. $!
  2. $!    Clean.com --    procedure to delete files. It always returns success
  3. $!            status despite any error or warnings. Also it extracts
  4. $!            filename from MMS "module=file" format.
  5. $!
  6. $ on control_y then goto ctly
  7. $ if p1.eqs."" then exit 1
  8. $ i = -1
  9. $scan_list:
  10. $    i = i+1
  11. $    item = f$elem(i,",",p1)
  12. $    if item.eqs."" then goto scan_list
  13. $    if item.eqs."," then goto done        ! End of list
  14. $    item = f$edit(item,"trim")        ! Clean of blanks
  15. $    wild = f$elem(1,"=",item)
  16. $    show sym wild
  17. $    if wild.eqs."=" then wild = f$elem(0,"=",item)
  18. $    vers = f$parse(wild,,,"version","syntax_only")
  19. $    if vers.eqs.";" then wild = wild - ";" + ";*"
  20. $scan:
  21. $        f = f$search(wild)
  22. $        if f.eqs."" then goto scan_list
  23. $        on error then goto err
  24. $        on warning then goto warn
  25. $        delete/log 'f'
  26. $warn:
  27. $err:
  28. $        goto scan
  29. $done:
  30. $ctly:
  31. $    exit 1
  32.