home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / con2v766.zip / cn2_76_6.zip / util / zip_.cmd < prev   
OS/2 REXX Batch file  |  2000-08-08  |  531b  |  28 lines
  1. /* CONNECT's wrapper for InfoZip's UNZIP */
  2.  
  3. /* input: "zip_.cmd -b $SWAPDIR -g -D -S $ARC $SRC"
  4.  *        "zip_.cmd -b n:\temp -g -D -S n:\suxx.zip @@selected.lst"
  5.  *        "zip_.cmd -b n:\temp -g -D -S n:\suxx.zip filename.txt"
  6.  */
  7.  
  8. call RxFuncAdd 'SysLoadFuncs', 'rexxutil', 'SysLoadFuncs'
  9. call SysLoadFuncs
  10.  
  11. parse arg args
  12.  
  13. if pos( '@@', args ) > 0 then do
  14.  
  15.     parse arg args' @@'list
  16.  
  17.     'zip.exe ' || args || ' -@ < ' || list
  18.  
  19. end
  20. else do
  21.  
  22.     parse arg args
  23.     'zip.exe ' || args
  24.  
  25. end
  26.  
  27. exit 0
  28.