******************************************************************************
*
*	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