home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / kabki622.zip / KKSUB.CMD < prev   
OS/2 REXX Batch file  |  1996-08-01  |  839b  |  21 lines
  1. /* KKSUB.CMD */
  2. '@echo off'
  3. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  4. call SysLoadFuncs
  5.  
  6. arg drv dir prg obj .
  7.                                         /*
  8.                                            drv èiö[âhâëâCâuû╝ ü@  c:
  9.                                            dir èiö[âfâBâîâNâgâè   c:\work
  10.                                            prg âfâRü[âhâvâìâOâëâÇ c:\uudecode.exe
  11.                                            obj âfü[â^âtâ@âCâï     c:\folder\inbox\1
  12.                                         */
  13.  
  14. left(drv, 2)                            /* âhâëâCâuò╧ìX */
  15. 'cd ' || dir                            /* âfâBâîâNâgâèò╧ìX */
  16. prg || ' ' || obj                       /* âfâRü[âh */
  17.                                         /* èiö[âfâBâîâNâgâèâIü[âvâô */
  18. call SysSetObjectData dir, "OPEN=DEFAULT"
  19. exit
  20.  
  21.