home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
High Voltage Shareware
/
high1.zip
/
high1
/
DIR24
/
WUZ10A.ZIP
/
WPSET.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1993-12-14
|
860b
|
35 lines
/* Rexx program to set object data */
/* (c) Copyright 1993 Scott Maxwell. */
arg args
split = LastPos(" ",args)
where = Left(args,split-1)
data = SubStr(args,split+1)
if Left(where,1) = '"' then
where = SubStr(where,2,Length(where)-2)
if where = '' | data = '' then do
say "Usage: WPSet object-name object-data"
say " Use this to set object data. For instance, to open a folder use:"
say " WPSet c:\os2 open=default"
exit(0)
end
call RxFuncAdd 'SysSetObjectData','RexxUtil','SysSetObjectData'
if SysSetObjectData(where,data) = 0 then do
say 'Error creating object'
exit(1)
end
exit(0)
Directory: procedure
arg Name
if Length(Name) > 3 then
if Right(Name,1) = '\' then
Name = Left(Name,LENGTH(Name)-1)
n = 'DIRECTORY'(Name)
if Right(n,1) \= '\' then
n = n'\'
return n