41 lines
1.1 KiB
C
41 lines
1.1 KiB
C
|
#ifndef h_COMMON
|
||
|
|
#define h_COMMON
|
||
|
|
/******************************************************************************
|
||
|
|
*
|
||
|
|
* Definition of COMMON storage control block
|
||
|
|
*
|
||
|
|
* 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 intented
|
||
|
|
* 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.
|
||
|
|
* 11/15/89 6183 JWT longer BASIC variable name support
|
||
|
|
* 07/25/88 - - Maintenence log purged at 5.2.1, see release 5.1.10.
|
||
|
|
*
|
||
|
|
*****************************************************************************/
|
||
|
|
|
||
|
|
struct common_block
|
||
|
|
{
|
||
|
|
COMMON *flink,
|
||
|
|
*blink,
|
||
|
|
*xlink;
|
||
|
|
int named,
|
||
|
|
level,
|
||
|
|
size;
|
||
|
|
DATUM *vartab;
|
||
|
|
char *name;
|
||
|
|
};
|
||
|
|
|
||
|
|
EXTERN COMMON *Common_table,
|
||
|
|
*Unnamed;
|
||
|
|
|
||
|
|
#endif /* end of COMMON.h */
|