home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / tasker1.zip / INSTALL / ES_DEL.CMD < prev    next >
OS/2 REXX Batch file  |  1994-01-10  |  312b  |  20 lines
  1. /* Delete object */
  2.  
  3.  if arg(1) = "" then do
  4.     say "No Arguments"
  5.     say "Exiting now"
  6.     return
  7.  end
  8.  
  9.  parse arg arg1 argn
  10.  
  11.  obj = "<" || arg1 || ">"
  12.  
  13.  call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  14.  call SysLoadFuncs
  15.  call syssleep 3
  16.  
  17.  rc = SysDestroyObject(obj)
  18.  return
  19.  
  20.