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