64 lines
2.2 KiB
Plaintext
64 lines
2.2 KiB
Plaintext
|
******************************************************************************
|
||
|
|
*
|
||
|
|
* Permissions handling subroutine for UniVerse Files
|
||
|
|
*
|
||
|
|
* Module %M% Version %I% Date %H%
|
||
|
|
*
|
||
|
|
* (c) Copyright 1998 Ardent Software Inc. - All Rights Reserved
|
||
|
|
* This is unpublished proprietary source code of Ardent Software Inc.
|
||
|
|
* The copyright notice above does not evidence any actual or intended
|
||
|
|
* publication of such source code.
|
||
|
|
*
|
||
|
|
*******************************************************************************
|
||
|
|
*
|
||
|
|
* Maintenence log - insert most recent change descriptions at top
|
||
|
|
*
|
||
|
|
* Date.... GTAR# WHO Description.........................................
|
||
|
|
* 10/14/98 23801 SAP Change copyrights.
|
||
|
|
* 08/30/96 19155 DJD Fixed runtime error message.
|
||
|
|
* 06/05/96 18438 JC Port to NT
|
||
|
|
* 12/07/94 15371 PVW Created subroutine.
|
||
|
|
*
|
||
|
|
*******************************************************************************
|
||
|
|
|
||
|
|
SUBROUTINE OpenError (ErrorCode, FileName, PathName)
|
||
|
|
|
||
|
|
BEGIN CASE
|
||
|
|
CASE ErrorCode = -1
|
||
|
|
CALL *UVPRINTMSG(970020, FileName)
|
||
|
|
CASE ErrorCode = -2
|
||
|
|
IF PathName MATCHES "...!/..." or PathName MATCHES "...!\..." THEN
|
||
|
|
CALL *UVPRINTMSG(970021, FileName)
|
||
|
|
END ELSE
|
||
|
|
CALL *UVPRINTMSG(970022, FileName)
|
||
|
|
END
|
||
|
|
CASE ErrorCode = -3
|
||
|
|
CALL *UVPRINTMSG(970023, FileName)
|
||
|
|
CASE ErrorCode = -4
|
||
|
|
CALL *UVPRINTMSG(970024, FileName)
|
||
|
|
CASE ErrorCode = -5
|
||
|
|
CALL *UVPRINTMSG(970025, FileName)
|
||
|
|
CASE ErrorCode = -6
|
||
|
|
CALL *UVPRINTMSG(970026, FileName)
|
||
|
|
CASE ErrorCode = -7
|
||
|
|
CALL *UVPRINTMSG(970027, FileName)
|
||
|
|
CASE ErrorCode = -8
|
||
|
|
CALL *UVPRINTMSG(970028, FileName)
|
||
|
|
CASE ErrorCode = -9
|
||
|
|
CALL *UVPRINTMSG(970029, FileName)
|
||
|
|
CASE ErrorCode = -10
|
||
|
|
CALL *UVPRINTMSG(970030, FileName)
|
||
|
|
CASE ErrorCode = -11
|
||
|
|
CALL *UVPRINTMSG(970031, FileName)
|
||
|
|
CASE ErrorCode = -12
|
||
|
|
CALL *UVPRINTMSG(970032, FileName)
|
||
|
|
CASE ErrorCode = -13
|
||
|
|
CALL *UVPRINTMSG(970033, FileName)
|
||
|
|
CASE ErrorCode = -14
|
||
|
|
CALL *UVPRINTMSG(970034, FileName)
|
||
|
|
CASE 1
|
||
|
|
CALL *UVPRINTMSG(970035, FileName, ErrorCode)
|
||
|
|
END CASE
|
||
|
|
RETURN
|
||
|
|
END
|