[comp.os.vms] SHAREABLE FILES

Chettri@UDEL.EDU.UUCP (10/02/87)

Dear info-vaxers

I wrote two short programs in FORTRAN, one called TEST.FOR and the other called
HAT.FOR. TEST.FOR opens a file called TEST.DAT which is SHARED.

HAT.FOR opens TEST.DAT as SHARED, READONLY. However on trying to read the file
TEST.DAT, I get a message saying END OF FILE. If I try to type the file T
TEST.DAT to my screen I get my prompt back "$" with no records seeming to
exist in the file. A DIR/SIZ=ALL TEST.DAT shows the following numbers
0/2345 (the number after the slash increments at regular intervals but the 
number before the slash is always 0).

I realize that the records are not being written to the file TEST.DAT until
termination of the file TEST.EXE. However I want to emulate the behaviour of
a batch log file (i.e. almost immediate update). Is there any way to do this?

I realize this question may have come up in the past, so reply direct to me.
If there is sufficient interest, or if you believe that this example 
warrants wider distribution you can ofcourse reply directly to the group.

Program TEST.FOR follows


	Open(unit=22, file='test.dat',status='new',shared)

        Do 10 i =1, 1000000

          Write(22,*)'This is a test'

10      Continue

        End


Program HAT.FOR follows


        Character*80 line

	Open(unit=22, file='test.dat',status='old',readonly,shared)

        Do 10 i =1, 1000

          read(22,*)line
          Write(5,*)line

10      Continue

        End


Sincerely,

Samir Chettri