home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: InfoMgt / InfoMgt.zip / marb91c.zip / _MA_SOpn.CMD < prev    next >
OS/2 REXX Batch file  |  1996-03-08  |  412b  |  15 lines
  1. /* REXX */
  2.     ThreadID = VRMethod("Application",,
  3.                         "GetThreadID")
  4.     CALL VRMethod "Application",,
  5.                   "GetVar",,
  6.                   "TreeSource."
  7.     SELECT
  8.         WHEN STREAM(TreeSource.ThreadID,,
  9.                     "C",,
  10.                     "OPEN READ") == "READY:"
  11.             THEN
  12.                 RETURN 1
  13.         OTHERWISE
  14.             RETURN 0
  15.     END