Path: utzoo!mnetor!uunet!husc6!cmcl2!rutgers!ames!ucbcad!ucbvax!VPFVM.BITNET!XRBEO
From: XRBEO@VPFVM.BITNET (Bruce O'Neel)
Newsgroups: comp.os.vms
Subject: Re: File Sharing
Message-ID: <8712100615.AA07134@ucbvax.Berkeley.EDU>
Date: 9 Dec 87 16:54:19 GMT
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The ARPA Internet
Lines: 27

This is how I do file sharing in fortran (sorry, not in pascal)


 Program 1.  Runs on node2, opens a relative file on node 1 and processes
it.
       include '($foriosdef)'
       open (10,file='node1::file.shared',status='old',shared,
     1       access='direct',organization='relative',recordtype='fixed,
     2       recordsize=80)

 Later in the program

      read (10,rec=145,iostat=ios) record_1
      if (ios .eq. for$ios_sperecloc) then
* the record is locked, do what ever you want until it is unlocked
      else
            call error (ios)
      endif
      unlock (10)  ! permits others to use this record now


 The program which runs on node 1 is the same, it just specifies a file name
of file.shared rather than node1::file.shared.  Almost all of this is from
  Programming in VAX FORTRAN.  There should be a compariable pascal manual.


Hope this helps..... bruce   All standard disclaimers