home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / clear11e.zip / clr_rexx.cmd < prev    next >
OS/2 REXX Batch file  |  1995-10-30  |  717b  |  36 lines
  1. /*Rexx program using CLEAR, ZIP, ZIPSPLIT
  2. Drv = number of drives
  3. Today = today-marker, e.g. 0912 for Sept. 12
  4. C = array of drive letters*/
  5.  
  6. ARG Clrname FixedDay C.1 C.2 C.3 C.4 C.5 C.6 C.7 C.8 C.9
  7.  
  8. if FixedDay = "" then FixedDay = "1/1/80"
  9.  
  10. I = 0
  11. DO UNTIL C.I = ""
  12.   I = I+1
  13. END
  14. Drv = I-1
  15.  
  16. Date = Date('E')
  17. Today = substr(Date, 4, 2) substr(Date, 1, 2) 
  18. Today = delstr(Today, 3, 1)
  19.  
  20. "..\clear" Clrname FixedDay Today
  21. if rc = 1 THEN DO
  22.   "@ECHO " 
  23.   "@pause"
  24. END
  25. ELSE DO
  26.   DO I = Drv TO 1 BY -1
  27.     "start /f ..\OneDrvZp s"C.I""Today
  28.   END
  29. END
  30.  
  31. "e DEL_"Today".CMD"
  32. say "Execute the delete-batchfile? (Y/N)"
  33. pull YesNo
  34. if (YesNo = "Y") | (YesNo = "y") then
  35.   "call DEL_"Today".CMD"
  36.