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..... bruceAll standard disclaimers