home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 29 Fixes_o / 29-Fixes_o.zip / make8090.cmd < prev    next >
OS/2 REXX Batch file  |  1996-05-06  |  1KB  |  56 lines
  1. /*   Makedsks utility   */
  2.  
  3. parse arg drivetemp format
  4.  
  5. if (drivetemp == "") then
  6.   do
  7.     say "Command Syntax: MAKEDSKS <drive letter> [/f]"
  8.     say "                where <drive letter> is a valid 1.44 meg floppy disk drive"
  9.     say "                /f parameter formats the floppy disk first"
  10.     say ""
  11.     say "                eg. MAKEDSKS a: /f"
  12.     exit
  13.   end
  14.  
  15. "@dir /b /on *_* | rxqueue"
  16. disks=0
  17. drive=left(drivetemp,1)
  18.  
  19. do j = 1 to QUEUED()
  20.   pull templine
  21.   parse var templine fixpak"_"disk"."ext
  22.   if (disk>disks) then
  23.     disks=disk
  24. end
  25.  
  26. say "The DB2 for OS/2 Fixpak you are about to install is "fixpak" and it is "disks" disks"
  27. say "in size. It will be unpacked to diskettes in Drive "drive":"
  28. say ""
  29. do i= 1 to disks
  30.   if (format == "/f") then
  31.     say "Please insert a blank unformatted 1.44M disk into Drive "drive":"
  32.   if (format <> "/f") then
  33.     say "Please insert an empty formatted 1.44M disk into Drive "drive":"
  34.   "@pause"
  35.   if (format == "/f") then
  36.     do
  37.       say ""
  38.       say "Formatting Disk "i"..."
  39.       say ""
  40.       "@echo n | format "drive": /ONCE >NUL"
  41.     end
  42.   say ""
  43.   say "Creating Disk "i"..."
  44.   say ""
  45.   "@pkunzip -d -o "fixpak"_"i" "drive":"
  46.   "@label "drive":VOLUME"i
  47.   say ""
  48.   say "Finished Disk "i
  49.   say ""
  50. end
  51. say ""
  52. say "All done!"
  53. say ""
  54.  
  55.  
  56.