*******************************************************************************
*
*	ERROR.BOX.B - This widget allows the user to create a error message box
*                on the screen with retry button.
*
*
*	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/14/98 23801 SAP Change copyrights. 
*	05/15/96 18330 LDG Changed LEN() function to LENDP() for NLS DBCS.
*	03/14/91 7673  DTM Routine first created and admin'd.
*******************************************************************************

SUBROUTINE ERROR.BOX.B(s.ln, mx.ln,wd,txtstr,retry,help.string)

Button.array=""
Button.array<1>=3
Button.array<2>="Retry"
Button.array<3>="Cancel"
Button.array<4>="Help"
IF s.ln=0 THEN s.ln=5
IF wd=0 THEN wd=60
IF mx.ln=0 THEN 
	count=LENDP(txtstr)/wd
	IF count > 8 THEN count = 8
	mx.ln=count+3
END
txtstr="!!ERROR!! - ":txtstr
CALL *CHOICE.BOX.B(s.ln,mx.ln,wd,txtstr, Button.array,retry,help.string)
RETURN

END