Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.3 4.3bsd-beta 6/6/85; site ucbvax.ARPA
Path: utzoo!linus!decvax!ucbvax!info-vax
From: info-vax@ucbvax.ARPA
Newsgroups: fa.info-vax
Subject: Reading Logfiles that are currently write-open
Message-ID: <9199@ucbvax.ARPA>
Date: Sat, 20-Jul-85 14:02:34 EDT
Article-I.D.: ucbvax.9199
Posted: Sat Jul 20 14:02:34 1985
Date-Received: Sun, 21-Jul-85 23:32:43 EDT
Sender: daemon@ucbvax.ARPA
Organization: University of California at Berkeley
Lines: 26

From: <#D15%DDATHD21.BITNET@WISCVM.ARPA>

Hi Don,

   forget my firts program. There is an error in the declaration
of the variables and procedures. Here is the correct source:

      PROGRAM Share_Test
      IMPLICIT NONE
      INTEGER I,J,FOR$RAB,SYS$FLUSH,STATUS,SYS$EXIT
C
      OPEN(UNIT=1,FILE='TEST.DAT',STATUS='NEW',SHARED) ! Open File
      I = FOR$RAB(1)                     ! Get RAB-Adress
      J = 0                              ! Init Counter
C
      DO WHILE (.TRUE.)                  ! Infinite Loop
        WRITE(1,*) ' TEST',J             ! Write File
        J = J + 1                        ! Update Counter
        IF(J.GT.100) THEN                ! Time to Update File
          J = 0
          STATUS = SYS$FLUSH(%VAL(I))    ! Update File if necessary
          IF(.NOT.STATUS) CALL SYS$EXIT(%VAL(STATUS)) ! Exit on Error
        END IF
      END DO
      END