count_missing_foreign_index.txt

$count:=0

ARRAY LONGINT($tn;0)
ARRAY LONGINT($fn;0)

  //N-field
Begin SQL
	
	SELECT _USER_COLUMNS.TABLE_ID,_USER_COLUMNS.COLUMN_ID
	FROM _USER_CONS_COLUMNS,_USER_COLUMNS,_USER_CONSTRAINTS
	WHERE _USER_CONSTRAINTS.CONSTRAINT_TYPE= '4DR'
	AND _USER_CONSTRAINTS.CONSTRAINT_ID = _USER_CONS_COLUMNS.CONSTRAINT_ID
	AND _USER_COLUMNS.TABLE_ID = _USER_CONSTRAINTS.TABLE_ID
	AND _USER_COLUMNS.COLUMN_ID = _USER_CONS_COLUMNS.COLUMN_ID
	INTO :$tn,:$fn;
	
End SQL

$result:=0

For ($i;1;Size of array($tn))
	
	$t:=$tn{$i}
	$f:=$fn{$i}
	
	Begin SQL
		
		SELECT COUNT(*)
		FROM _USER_IND_COLUMNS
		WHERE _USER_IND_COLUMNS.TABLE_ID = :$t
		AND _USER_IND_COLUMNS.COLUMN_ID = :$f
		INTO :$result;
		
	End SQL
	
	If ($result=0)
		$count:=$count+1
	End if 
	
End for