49 lines
1.4 KiB
C
49 lines
1.4 KiB
C
|
#ifndef h_proc
|
||
|
|
#define h_proc
|
||
|
|
/******************************************************************************
|
||
|
|
*
|
||
|
|
* Definition of the PROC data-save stack
|
||
|
|
*
|
||
|
|
* 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/28/90 7044 JWT Make chain to proc from basic program un-nest procs
|
||
|
|
* 03/20/90 5104 TMC Stack amvmchk
|
||
|
|
* 12/12/88 4601 JWT No paging in proc
|
||
|
|
* 07/25/88 - - Maintenence log purged at 5.2.1, see release 5.1.10.
|
||
|
|
*
|
||
|
|
*****************************************************************************/
|
||
|
|
|
||
|
|
#include "DBFILE.h"
|
||
|
|
|
||
|
|
#define SUBRTN struct subrtn
|
||
|
|
struct subrtn
|
||
|
|
{ SUBRTN *next;
|
||
|
|
STRING loc;
|
||
|
|
int flag;
|
||
|
|
};
|
||
|
|
|
||
|
|
#define PQ struct pq
|
||
|
|
struct pq
|
||
|
|
{ PQ *next;
|
||
|
|
STRING IB[2],OB[2],FR[10],FI[10];
|
||
|
|
DBFILE *FF[10];
|
||
|
|
int IS[2],OS[2],Ibuf,Obuf,trace,PQNflg,amvmchk,level;
|
||
|
|
BITMAP savfmt:1,savwait:1;
|
||
|
|
SUBRTN *RSTACK;
|
||
|
|
uchar *IP,OQ[2];
|
||
|
|
};
|
||
|
|
|
||
|
|
|
||
|
|
#endif /* end of proc.h */
|