home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / os2 / seldel.zip / SELDEL.CMD next >
OS/2 REXX Batch file  |  2001-04-15  |  11KB  |  411 lines
  1. /* SELECTIVE DELETE OF OS/2 APPLETS */
  2. /* Jeff Elkins - 10/92  */
  3.  
  4.  
  5.  
  6. CALL RxFuncAdd 'SysFileDelete', 'RexxUtil', 'SysFileDelete'
  7. call RxFuncAdd 'VInit', 'VREXX', 'VINIT'
  8.  
  9.  
  10. initcode = VInit()
  11. if initcode = 'ERROR' then signal CLEANUP
  12.  
  13. signal on failure name CLEANUP
  14. signal on halt name CLEANUP
  15. signal on syntax name CLEANUP
  16.  
  17. dloop  = 1
  18.  
  19. errmsg.1 = 'File not found'
  20. errmsg.2 = 'Path not found'
  21. errmsg.3 = 'Access denied'
  22. errmsg.4 = 'Not DOS disk'
  23. errmsg.5 = 'Sharing violation'
  24. errmsg.6 = 'Sharing buffer exceeded'
  25. errmsg.7 = 'Invalid parameter'
  26. errmsg.8 = 'Filename exceedes range error'
  27.  
  28. errnum.1 = 2
  29. errnum.2 = 3
  30. errnum.3 = 5
  31. errnum.4 = 26
  32. errnum.5 = 32
  33. errnum.6 = 36
  34. errnum.7 = 87
  35. errnum.8 = 206
  36.  
  37.  
  38.  
  39.  
  40. error_st = ' '
  41.  
  42.  
  43. list.0  = 28
  44. list.1  = 'Terminal emulation applet'
  45. list.2  = 'Enhanced PM editor'
  46. list.3  = 'System Editor'
  47. list.4  = 'PMChart applet'
  48. list.5  = 'Jigsaw Applet (Puzzle)'
  49. list.6  = 'Solitaire applet'
  50. list.7  = 'Cat and Mouse applet'
  51. list.8  = 'Chess applet'
  52. list.9  = 'Picture viewer'
  53. list.10 = 'Pulse CPU graph'
  54. list.11 = 'PM Seek'
  55. list.12 = 'Reversi'
  56. list.13 = 'Scramble applet'
  57. list.14 = 'PM alarms'
  58. list.15 = 'PM calculator'
  59. list.16 = 'PM calender'
  60. list.17 = 'PM planner archive'
  61. list.18 = 'PM Diary'
  62. list.19 = 'PM to-do archive'
  63. list.20 = 'PM to-do list'
  64. list.21 = 'PM tune editor'
  65. list.22 = 'PM activities list'
  66. list.23 = 'PM monthly planner'
  67. list.24 = 'PM cardfile'
  68. list.25 = 'PM database'
  69. list.26 = 'PM spreadsheet'
  70. list.27 = 'PM sticky notes'
  71. list.28 = 'ALL PM Diary applets'
  72.  
  73.  
  74. list.vstring = list.1          /* default selection */
  75.  
  76. DO WHILE dloop = 1
  77. call VDialogPos 25, 25
  78. rb =  VListBox('Selective delete of OS/2 applets', list, 35, 8, 3)
  79. IF rb = 'CANCEL' then
  80.  dloop = 0
  81.  ELSE
  82.  DO
  83.   call DISP_WIN
  84.  
  85.   IF list.vstring = list.1  then call KILLTERM
  86.   IF list.vstring = list.2  then call ENHANCED
  87.   IF list.vstring = list.3  then call SYSED
  88.   IF list.vstring = list.4  then call KILLCHRT
  89.   IF list.vstring = list.5  then call JIGSAW
  90.   IF list.vstring = list.6  then call KLONDIKE
  91.   IF list.vstring = list.7  then call NEKO
  92.   IF list.vstring = list.8  then call CHESS
  93.   IF list.vstring = list.9  then call PICVIEW
  94.   IF list.vstring = list.10 then call PULSE
  95.   IF list.vstring = list.11 then call PMSEEK
  96.   IF list.vstring = list.12 then call REVERSI
  97.   IF list.vstring = list.13 then call SCRAMBLE
  98.   IF list.vstring = list.14 then call PMDALARMS
  99.   IF list.vstring = list.15 then call PMDCALC
  100.   IF list.vstring = list.16 then call PMDCALEND
  101.   IF list.vstring = list.17 then call PMPARC
  102.   IF list.vstring = list.18 then call PMDIARY
  103.   IF list.vstring = list.19 then call PMTDARC
  104.   IF list.vstring = list.20 then call PMTDLIST
  105.   IF list.vstring = list.21 then call PMTUNE
  106.   IF list.vstring = list.22 then call PMACTLIST
  107.   IF list.vstring = list.23 then call PMMPLAN
  108.   IF list.vstring = list.24 then call PMCARD
  109.   IF list.vstring = list.25 then call PMDATA
  110.   IF list.vstring = list.26 then call PMSPREAD
  111.   IF list.vstring = list.27 then call PMSTICKY
  112.   IF list.vstring = list.28 then call ALLPMD
  113.  
  114.   
  115. IF rc <> 0 then
  116.    DO
  117.      call GETERR
  118.      msg.0 = 3
  119.      msg.1 = ' '
  120.      msg.2 = 'Error deleting ' list.vstring
  121.      msg.3 = 'Error = ' error_st
  122.      call VMsgBox 'File Error', msg, 1
  123.    END
  124.    VCloseWindow(id)
  125.  END
  126. END
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  END
  133.  
  134.  
  135.  
  136. CLEANUP:
  137.    call VExit
  138. exit
  139.  
  140.  
  141.  
  142. DISP_WIN:
  143.  
  144. win.left   = 20
  145. win.right  = 70
  146. win.top    = 80
  147. win.bottom = 40
  148.  
  149. id = VOpenWindow('Selective Delete', 'WHITE', win)
  150.  
  151. text.1 = 'Now deleting:'
  152. text.2 = list.vstring
  153.  
  154. call VForeColor id, 'BLACK'
  155. call VSetFont id, 'TIME', 24
  156.  
  157. x = 10
  158. y = 900
  159. do i = 1 to 2
  160.    call VSay id, x, y, text.i
  161.    y = y - 150
  162. end
  163.  
  164. RETURN
  165.  
  166.  
  167. GETERR:
  168.  IF rc = 2   THEN error_st = errmsg.1
  169.  IF rc = 3   THEN error_st = errmsg.2
  170.  IF rc = 5   THEN error_st = errmsg.3
  171.  IF rc = 26  THEN error_st = errmsg.4
  172.  IF rc = 32  THEN error_st = errmsg.5
  173.  IF rc = 36  THEN error_st = errmsg.6
  174.  IF rc = 87  THEN error_st = errmsg.7
  175.  IF rc = 206 THEN error_st = errmsg.8
  176. RETURN
  177.  
  178.  
  179.  
  180.  
  181.  
  182. KILLTERM:
  183. rc=SysFileDelete('\OS2\HELP\ANSI364.HLP')
  184. rc=SysFileDelete('\OS2\HELP\ANSIIBM.HLP')
  185. rc=SysFileDelete('\OS2\APPS\DLL\CTLSACDI.DLL')
  186. rc=SysFileDelete('\OS2\APPS\CTLSACDI.EXE')
  187. rc=SysFileDelete('\OS2\APPS\CUSTOM.MDB')
  188. rc=SysFileDelete('\OS2\HELP\IBM31011.HLP')
  189. rc=SysFileDelete('\OS2\HELP\IBM31012.HLP')
  190. rc=SysFileDelete('\OS2\HELP\IBMSIO.HLP')
  191. rc=SysFileDelete('\OS2\APPS\DLL\OACDISIO.DLL')
  192. rc=SysFileDelete('\OS2\APPS\DLL\OANSI.DLL')
  193. rc=SysFileDelete('\OS2\APPS\DLL\OANSI364.DLL')
  194. rc=SysFileDelete('\OS2\APPS\DLL\OCHAR.DLL')
  195. rc=SysFileDelete('\OS2\APPS\DLL\OCM.DLL')
  196. rc=SysFileDelete('\OS2\APPS\DLL\OCOLOR.DLL')
  197. rc=SysFileDelete('\OS2\APPS\DLL\OCSHELL.DLL')
  198. rc=SysFileDelete('\OS2\APPS\DLL\ODBM.DLL')
  199. rc=SysFileDelete('\OS2\APPS\DLL\OFMTC.DLL')
  200. rc=SysFileDelete('\OS2\APPS\DLL\OIBM1X.DLL')
  201. rc=SysFileDelete('\OS2\APPS\DLL\OIBM2X.DLL')
  202. rc=SysFileDelete('\OS2\APPS\DLL\OKB.DLL')
  203. rc=SysFileDelete('\OS2\APPS\DLL\OKBC.DLL')
  204. rc=SysFileDelete('\OS2\APPS\DLL\OKERMIT.DLL')
  205. rc=SysFileDelete('\OS2\APPS\DLL\OLPTIO.DLL')
  206. rc=SysFileDelete('\OS2\APPS\DLL\OMCT.DLL')
  207. rc=SysFileDelete('\OS2\APPS\DLL\OMRKCPY.DLL')
  208. rc=SysFileDelete('\OS2\APPS\DLL\OPCF.DLL')
  209. rc=SysFileDelete('\OS2\APPS\DLL\OPM.DLL')
  210. rc=SysFileDelete('\OS2\APPS\DLL\OPROFILE.DLL')
  211. rc=SysFileDelete('\OS2\APPS\DLL\ORSHELL.DLL')
  212. rc=SysFileDelete('\OS2\APPS\DLL\OSCH.DLL')
  213. rc=SysFileDelete('\OS2\APPS\DLL\OSIO.DLL')
  214. rc=SysFileDelete('\OS2\APPS\DLL\OSOFT.DLL')
  215. rc=SysFileDelete('\OS2\APPS\DLL\OTEK.DLL')
  216. rc=SysFileDelete('\OS2\APPS\DLL\OTTY.DLL')
  217. rc=SysFileDelete('\OS2\APPS\DLL\OVIO.DLL')
  218. rc=SysFileDelete('\OS2\APPS\DLL\OVM.DLL')
  219. rc=SysFileDelete('\OS2\APPS\DLL\OVT.DLL')
  220. rc=SysFileDelete('\OS2\APPS\DLL\OXMODEM.DLL')
  221. rc=SysFileDelete('\OS2\APPS\DLL\OXRM.DLL')
  222. rc=SysFileDelete('\OS2\APPS\DLL\SACDI.DLL')
  223. rc=SysFileDelete('\OS2\SYSTEM\SACDI.MSG')
  224. rc=SysFileDelete('\OS2\APPS\DLL\SAREXEC.DLL')
  225. rc=SysFileDelete('\OS2\APPS\SASYNCDA.SYS')
  226. rc=SysFileDelete('\OS2\APPS\SASYNCDB.SYS')
  227. rc=SysFileDelete('\OS2\APPS\SOFTERM.EXE')
  228. rc=SysFileDelete('\OS2\HELP\SOFTERM.HLP')
  229. rc=SysFileDelete('\OS2\HELP\VTTERM.HLP')
  230. rc=SysFileDelete('\OS2\HELP\XRM.HLP')
  231. rc=SysFileDelete('\OS2\APPS\ACSACDI.DAT')
  232. RETURN
  233.  
  234. KILLCHRT:
  235. rc=SysFileDelete('\OS2\APPS\FASHION.DAT')
  236. rc=SysFileDelete('\OS2\APPS\FASHION.GRF')
  237. rc=SysFileDelete('\OS2\APPS\GREEN.DAT')
  238. rc=SysFileDelete('\OS2\APPS\GREEN.GRF')
  239. rc=SysFileDelete('\OS2\APPS\INVEST.DAT')
  240. rc=SysFileDelete('\OS2\APPS\INVEST.GRF')
  241. rc=SysFileDelete('\OS2\APPS\DLL\MGXLIB.DLL')
  242. rc=SysFileDelete('\OS2\APPS\DLL\MGXVBM.DLL')
  243. rc=SysFileDelete('\OS2\APPS\PMCHART.EXE')
  244. rc=SysFileDelete('\OS2\HELP\PMCHART.HLP')
  245. rc=SysFileDelete('\OS2\APPS\DLL\PMFID.DLL')
  246. RETURN
  247.  
  248.  
  249. JIGSAW:
  250.  rc=SysFileDelete('\OS2\APPS\JIGSAW.EXE')
  251.  rc=SysFileDelete('\OS2\HELP\JIGSAW.HLP')
  252. RETURN
  253.  
  254. KLONDIKE:
  255. rc=SysFileDelete('\OS2\APPS\KLONDIKE.EXE')
  256. rc=SysFileDelete('\OS2\HELP\KLONDIKE.HLP')
  257. rc=SysFileDelete('\OS2\APPS\CARDSYM.FON')
  258. RETURN
  259.  
  260. ENHANCED:
  261. rc=SysFileDelete('\OS2\APPS\BOX.EX')
  262. rc=SysFileDelete('\OS2\APPS\DRAW.EX')
  263. rc=SysFileDelete('\OS2\APPS\E3EMUL.EX')
  264. rc=SysFileDelete('\OS2\APPS\EPM.EX')
  265. rc=SysFileDelete('\OS2\APPS\EPM.EXE')
  266. rc=SysFileDelete('\OS2\HELP\EPM.HLP')
  267. rc=SysFileDelete('\OS2\APPS\EPMHELP.QHL')
  268. rc=SysFileDelete('\OS2\APPS\EPMLEX.EX')
  269. rc=SysFileDelete('\OS2\APPS\DLL\ETKE550.DLL')
  270. rc=SysFileDelete('\OS2\APPS\DLL\ETKR550.DLL')
  271. rc=SysFileDelete('\OS2\APPS\DLL\ETKTHNK.DLL')
  272. rc=SysFileDelete('\OS2\APPS\EXTRA.EX')
  273. rc=SysFileDelete('\OS2\APPS\GET.EX')
  274. rc=SysFileDelete('\OS2\APPS\HELP.EX')
  275. RETURN
  276.  
  277.  
  278. SYSED:
  279.  rc=SysFileDelete('\OS2\E.EXE')
  280.  rc=SysFileDelete('\OS2\DLL\EHXDLMRI.DLL')
  281.  rc=SysFileDelete('\OS2\HELP\EHXHP.HLP')
  282. RETURN
  283.  
  284. SCRAMBLE:
  285.  rc=SysFileDelete('\OS2\APPS\DLL\SCRAMBLE.DLL')
  286.  rc=SysFileDelete('\OS2\APPS\SCRAMBLE.EXE')
  287.  rc=SysFileDelete('\OS2\HELP\SCRAMBLE.HLP')
  288.  rc=SysFileDelete('\OS2\APPS\DLL\SCRCATS.DLL')
  289.  rc=SysFileDelete('\OS2\APPS\DLL\SCRLOGO.DLL')
  290. RETURN
  291.  
  292. REVERSI:
  293.  rc=SysFileDelete('\OS2\APPS\DLL\REVERSI.DLL')
  294.  rc=SysFileDelete('\OS2\APPS\REVERSI.EXE')
  295.  rc=SysFileDelete('\OS2\HELP\REVERSI.HLP')
  296. RETURN
  297.  
  298. PMSEEK:
  299.  rc=SysFileDelete('\OS2\APPS\DLL\PMSEEK.DLL')
  300.  rc=SysFileDelete('\OS2\APPS\PMSEEK.EXE')
  301.  rc=SysFileDelete('\OS2\HELP\PMSEEK.HLP')
  302. RETURN
  303.  
  304. CHESS:
  305.  rc=SysFileDelete('\OS2\APPS\OS2CHESS.BIN')
  306.  rc=SysFileDelete('\OS2\APPS\OS2CHESS.EXE')
  307.  rc=SysFileDelete('\OS2\HELP\OS2CHESS.HLP')
  308.  rc=SysFileDelete('\OS2\APPS\DLL\CHESSAI.DLL')
  309. RETURN
  310.  
  311. NEKO:
  312.  rc=SysFileDelete('\OS2\APPS\DLL\NEKO.DLL')
  313.  rc=SysFileDelete('\OS2\APPS\NEKO.EXE')
  314.  rc=SysFileDelete('\OS2\HELP\NEKO.HLP')
  315. RETURN
  316.  
  317. PULSE:
  318.  rc=SysFileDelete('\OS2\APPS\PULSE.EXE')
  319.  rc=SysFileDelete('\OS2\HELP\PULSE.HLP')
  320. RETURN
  321.  
  322. PICVIEW:
  323.  rc=SysFileDelete('\OS2\DLL\PICV.DLL')
  324.  rc=SysFileDelete('\OS2\APPS\DLL\PICVIEW.DLL')
  325.  rc=SysFileDelete('\OS2\APPS\PICVIEW.EXE')
  326.  rc=SysFileDelete('\OS2\HELP\PICVIEW.HLP')
  327. RETURN
  328.  
  329. PMDALARMS:
  330.  rc=SysFileDelete('\OS2\APPS\PMDALARM.EXE')
  331. RETURN
  332.  
  333. PMDCALC:
  334.  rc=SysFileDelete('\OS2\APPS\PMDCALC.EXE')
  335. RETURN
  336.  
  337. PMDCALEND:
  338.  rc=SysFileDelete('\OS2\APPS\PMDCALEN.EXE')
  339. RETURN
  340.  
  341. PMPARC:
  342.  rc=SysFileDelete('\OS2\APPS\PMDDARC.EXE')
  343. RETURN
  344.  
  345. PMDIARY:
  346.  rc=SysFileDelete('\OS2\APPS\PMDDIARY.EXE')
  347. RETURN
  348.  
  349. PMTDARC:
  350.  rc=SysFileDelete('\OS2\APPS\PMDTARC.EXE')
  351. RETURN
  352.  
  353. PMTDLIST:
  354.  rc=SysFileDelete('\OS2\APPS\PMDTODO.EXE')
  355. RETURN
  356.  
  357. PMTUNE:
  358.  rc=SysFileDelete('\OS2\APPS\PMDTUNE.EXE')
  359. RETURN
  360.  
  361. PMACTLIST:
  362.  rc=SysFileDelete('\OS2\APPS\PMDLIST.EXE')
  363. RETURN
  364.  
  365. PMMPLAN:
  366.  rc=SysFileDelete('\OS2\APPS\PMDMONTH.EXE')
  367. RETURN
  368.  
  369. PMCARD:
  370.  rc=SysFileDelete('\OS2\APPS\PMDNOTE.EXE')
  371. RETURN
  372.  
  373. PMDATA:
  374. rc=SysFileDelete('\OS2\APPS\PMMBASE.EXE')
  375. RETURN
  376.  
  377. PMSPREAD:
  378.  rc=SysFileDelete('\OS2\APPS\PMSPREAD.EXE')
  379. RETURN
  380.  
  381. PMSTICKY:
  382.  rc=SysFileDelete('\OS2\APPS\PMSTICKY.EXE')
  383.  rc=SysFileDelete('\OS2\APPS\DLL\PMSTICKD.DLL')
  384. RETURN
  385.  
  386.  
  387. ALLPMD:
  388.  rc=SysFileDelete('\OS2\APPS\PMDALARM.EXE')
  389.  rc=SysFileDelete('\OS2\APPS\PMDCALC.EXE')
  390.  rc=SysFileDelete('\OS2\APPS\PMDCALEN.EXE')
  391.  rc=SysFileDelete('\OS2\APPS\PMDDARC.EXE')
  392.  rc=SysFileDelete('\OS2\APPS\PMDDIARY.EXE')
  393.  rc=SysFileDelete('\OS2\APPS\PMDLIST.EXE')
  394.  rc=SysFileDelete('\OS2\APPS\PMDMONTH.EXE')
  395.  rc=SysFileDelete('\OS2\APPS\PMDNOTE.EXE')
  396.  rc=SysFileDelete('\OS2\APPS\PMDTARC.EXE')
  397.  rc=SysFileDelete('\OS2\APPS\PMDTODO.EXE')
  398.  rc=SysFileDelete('\OS2\APPS\PMDTUNE.EXE')
  399.  rc=SysFileDelete('\OS2\APPS\PMMBASE.EXE')
  400.  rc=SysFileDelete('\OS2\APPS\PMSPREAD.EXE')
  401.  rc=SysFileDelete('\OS2\APPS\PMSTICKY.EXE')
  402.  rc=SysFileDelete('\OS2\APPS\DLL\PMSTICKD.DLL')
  403.  rc=SysFileDelete('\OS2\APPS\DLL\PMDIARYF.DLL')
  404.  rc=SysFileDelete('\OS2\APPS\PMDIARY.$$A')
  405.  rc=SysFileDelete('\OS2\APPS\DLL\PMDIARY.DLL')
  406.  rc=SysFileDelete('\OS2\HELP\PMDIARY.HLP')
  407.  rc=SysFileDelete('\OS2\APPS\DLL\PMDCTLS.DLL')
  408. RETURN
  409.  
  410.  
  411.