SUBROUTINE      OPEN_3
C----------------------------------------------------------------------
C-
C-   Purpose and Methods : OPEN file for FORTRAN Unit #3 
C-                         before the LSM INIT_LLOKUP_ROUTINES 
C-                         calls ZEBRA and does it automatically
C-                         
C-                         The routine Tries the local disk once
C-                         Then tries the host account untill succesful
C-
C-   Created   3-JUL-1992   Philippe Laurens
C-
C----------------------------------------------------------------------
      IMPLICIT NONE
C----------------------------------------------------------------------
      CHARACTER*80    FILENAME  
      INTEGER         IOS
      CHARACTER*80    HOST_ADDRESS
      INTEGER         STRING_LENGTH
C----------------------------------------------------------------------
C       Try opening file on Local Disk
C       ------------------------------

      FILENAME = 'DUA0:[TRIGGER]' // 'LSM_ZEBRA.LOG'

      OPEN      (       UNIT    =  3,
     &                  FILE    =  FILENAME,
     &                  STATUS  = 'NEW',
     &          CARRIAGECONTROL = 'LIST',
     &                  IOSTAT  =  IOS   )

      IF ( IOS .EQ. 0 )    
     &THEN
        GOTO 999
      ELSE
        WRITE(6,1000) FILENAME, IOS
 1000   FORMAT  ( /' ZEBRA LOG FILE ', A80 /' Bad OPEN, IOSTAT=' , I10/)
        CLOSE ( UNIT = 3 )
        CALL WAIT_A_BIT (1.0)
      ENDIF

C----------------------------------------------------------------------
C       Try opening file on Host account
C       --------------------------------

      CALL GET_HOST_RESULT_DIRECTORY( %REF(HOST_ADDRESS), STRING_LENGTH)
      FILENAME = HOST_ADDRESS(1:STRING_LENGTH) // 'TCC_LSM_ZEBRA.LOG'

   10 CONTINUE
      OPEN      (       UNIT    =  3,
     &                  FILE    =  FILENAME,
     &                  STATUS  = 'NEW',
     &          CARRIAGECONTROL = 'LIST',
     &                  IOSTAT  =  IOS   )

      IF ( IOS .EQ. 0 )    
     &THEN
        GOTO 999
      ELSE
        WRITE(6,1000) FILENAME, IOS
        CALL WAIT_A_BIT (1.0)
        CLOSE ( UNIT = 3 )
      ENDIF

      GOTO 10
C --------------------------------------------------------------
  999 CONTINUE
      RETURN

      END
C----------------------------------------------------------------------

      SUBROUTINE      CLOSE_3
C----------------------------------------------------------------------
C-
C-   Purpose and Methods : Close FORTRAN unit #3
C-
C-   Created   3-JUL-1992   Philippe Laurens
C-
C----------------------------------------------------------------------
      CLOSE ( UNIT    =  3 ) 
      END