56 lines
1.4 KiB
C
Executable File
56 lines
1.4 KiB
C
Executable File
******************************************************************************
|
|
*
|
|
* uniVerse include file YESNO.H
|
|
*
|
|
* 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.
|
|
*
|
|
*******************************************************************************
|
|
*
|
|
* Maintenance log - insert most recent change descriptions at top
|
|
*
|
|
* Date.... GTAR# WHO Description.........................................
|
|
* 10/14/98 23801 SAP Change copyrights.
|
|
* 06/25/93 10871 EAP Ported PI/open COPY verb to Universe
|
|
********************************************************************************
|
|
*
|
|
* START-DESCRIPTION:
|
|
*
|
|
* END-DESCRIPTION
|
|
*
|
|
* START-DESIGN:
|
|
*
|
|
* END-DESIGN
|
|
*
|
|
* START-FUTURES:
|
|
*
|
|
* END-FUTURES
|
|
*
|
|
* START-CODE:
|
|
*
|
|
DEFFUN YESNO (A1, A2, A3) CALLING '-YESNO'
|
|
*
|
|
**$DEFINE YN$YES 1
|
|
EQUATE YN$YES TO 1
|
|
**$DEFINE YN$NO 2
|
|
EQUATE YN$NO TO 2
|
|
**$DEFINE YN$QUIT 4
|
|
EQUATE YN$QUIT TO 4
|
|
**$DEFINE YN$DFLT 8
|
|
EQUATE YN$DFLT TO 8
|
|
*
|
|
**$DEFINE YN$YES.RES 1
|
|
EQUATE YN$YES.RES TO 1
|
|
**$DEFINE YN$NO.RES 2
|
|
EQUATE YN$NO.RES TO 2
|
|
**$DEFINE YN$QUIT.RES 4
|
|
EQUATE YN$QUIT.RES TO 4
|
|
**$DEFINE YN$NULL.RES 8
|
|
EQUATE YN$NULL.RES TO 8
|
|
*
|
|
* END-CODE
|