RE: IFS file in use

["Mackie, Roger L. (Precision Press)" <RLMackie@xxxxxxxxxxxxx>]

Aaron,

Not that I've done that much with the IFS, but the way I read the
manuals/Redbooks, if you want an exclusive lock, you need to add x'10'
(exclusive use) to openflags to get the behavior you want.
...
     D O_EXCL          C                   x'10'
...
       handle = open('/tmp/Example3.xml': (O_RDWR + O_EXCL));
...

I don't set the open flag parameter the same way you do, but I think this
will give you the idea.

HTH,
Roger

-----Original Message-----
From: Bartell, Aaron L. (TC) [mailto:ALBartell@xxxxxxxxxxxxxx]
Sent: Friday, August 29, 2003 14:32
To: 'RPG400-L@xxxxxxxxxxxx'
Subject: IFS file in use


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
_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.