44 lines
1.7 KiB
Plaintext
44 lines
1.7 KiB
Plaintext
|
********************************************************************************
|
||
|
|
*
|
||
|
|
* Support of PR1ME INFORMATION subroutine '!EXIST'
|
||
|
|
*
|
||
|
|
* 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/13/98 23801 RGA Change copyright info.
|
||
|
|
* 03/22/94 13287 LPC Change OPENSEQ TO OPEN & READV to avoid locks
|
||
|
|
* 07/25/88 - - Maintenence log purged at 5.2.1, see release 5.1.10.
|
||
|
|
*
|
||
|
|
*******************************************************************************
|
||
|
|
* !EXIST subroutine returns success=1 if subroutine.name exists in catalog
|
||
|
|
* spcae otherwise it returns success=0. Also refer to newacc which defines
|
||
|
|
* GLOBAL.CATDIR . Prime information implimentation also returns status function
|
||
|
|
* code to indicate the number of arguments to subroutine.Since currently there
|
||
|
|
* is no way of setting status function in a basic program this subroutine call
|
||
|
|
* does not return number of arguments to the catalog program -GPS
|
||
|
|
******************************************************************************
|
||
|
|
$OPTIONS DEFAULT
|
||
|
|
subroutine EXIST(subroutine.name,success)
|
||
|
|
OPEN "", "GLOBAL.CATDIR" TO fd.prog ELSE
|
||
|
|
success = 0
|
||
|
|
return
|
||
|
|
END
|
||
|
|
|
||
|
|
READV foobar FROM fd.prog, subroutine.name, 0 THEN
|
||
|
|
success = 1
|
||
|
|
END
|
||
|
|
ELSE
|
||
|
|
success = 0
|
||
|
|
END
|
||
|
|
return
|
||
|
|
END
|