home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: InfoMgt
/
InfoMgt.zip
/
marb91c.zip
/
_MA_SRd.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1996-03-08
|
345b
|
14 lines
/* REXX */
ThreadID = VRMethod("Application",,
"GetThreadID")
CALL VRMethod "Application",,
"GetVar",,
"TreeSource."
SELECT
WHEN LINES(TreeSource.ThreadID) <> 0
THEN
RETURN 1
OTHERWISE
RETURN 0
END