*******************************************************************************
*
*	SQL ALTER TABLE check constraint violation
*
*	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. 
*	04/18/94 13726 MGM Constraint checker for ALTER TABLE
*
*******************************************************************************

SQLINTCHK = '-SQLINTCHK'
atb.fname = ''
tmp.fname = ''
GET(ARG.) atb.fname
GET(ARG.) tmp.fname
IF LEN(atb.fname) EQ 0 THEN GOTO EXIT.ERROR:
IF LEN(tmp.fname) EQ 0 THEN GOTO EXIT.ERROR:
OPEN atb.fname TO ATB.FILE ELSE
	GOTO EXIT.ERROR:
END

SELECT ATB.FILE
LOOP WHILE READNEXT TO.ID DO
	READ RECORD FROM ATB.FILE,TO.ID THEN
		IOVAR = 1 
		CALL @SQLINTCHK(RECORD,ATB.FILE,TO.ID,atb.fname,IOVAR)
		IF IOVAR<1> THEN GOTO EXIT.ERROR:
	END
REPEAT

OPENSEQ tmp.fname TO OUTPUT ELSE ABORT
WRITESEQ "PASSED" ON OUTPUT ELSE ABORT
CLOSESEQ OUTPUT
@SYSTEM.RETURN.CODE = 0
STOP
*-----
EXIT.ERROR: 
@SYSTEM.RETURN.CODE = -1
STOP