IFS file in use

["Bartell, Aaron L. (TC)" <ALBartell@xxxxxxxxxxxxxx>]

I am trying to lock an IFS file by opening it in one program (in debug) and
then seeing if I can open it in another program (in debug in separate
session).  I thought the second program should puke and not provide me a
handle for the file, but it gives me the handle just fine.  I am assuming
that since I am opening it for reading and writing that I should get a file
lock but evidently not.  Here is the program I am using to test the process:

     H DFTACTGRP(*NO)

     D open            PR            10I 0 ExtProc('open')
     D  filename                       *   value options(*string)
     D  openflags                    10I 0 value
     D  mode                         10U 0 value options(*nopass)
     D  codepage                     10U 0 value options(*nopass)

     D close           PR            10I 0 ExtProc('close')
     D  handle                       10I 0 value

     D*                                            Reading & Writing
     D O_RDWR          C                   4

     D handle          S             10I 0
     D rc              S             10I 0
      /Free

       handle = open('/tmp/Example3.xml': O_RDWR);
       rc = close(handle);
       *InLR = *On;

      /End-Free 

Any ideas?

Aaron Bartell