home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: InfoMgt / InfoMgt.zip / MArb92a.zip / Open.CMD < prev    next >
OS/2 REXX Batch file  |  1996-04-04  |  410b  |  16 lines
  1. /* REXX */
  2.  
  3. /*  Function     : When invoked, this function attempts to open the simple
  4.                    file.
  5.     Created      : February 10, 1996
  6.     Modifications:
  7. */
  8.     SELECT
  9.         WHEN STREAM("d:\MA_Development\Sample.Txt",,
  10.                     "C",,
  11.                     "OPEN READ") == "READY:"
  12.             THEN
  13.                 RETURN 1
  14.         OTHERWISE
  15.             RETURN 0
  16.     END