#include <sql.h>
#include <stdlib.h>
#include <string.h>
#include <stdio.h>

SQLRETURN SQLGetDiagRec(
     SQLSMALLINT     HandleType,
     SQLHANDLE       Handle,
     SQLSMALLINT     RecNumber,
     SQLCHAR *       SQLState,
     SQLINTEGER *    NativeErrorPtr,
     SQLCHAR *       MessageText,
     SQLSMALLINT     BufferLength,
     SQLSMALLINT *   TextLengthPtr)
{
	char *message = ".Серьезное предупреждение и четкий сигнал обществу — пришел последний момент действовать, заявила Европейская комиссия (ЕК) о своей только что принятой Стратегии устойчивого развития водных ресурсов. При этом природоохранные организации вовсе не хлопают в ладоши. От этого документа они ожидали большего – в стратегии не хватает амбиций и юридически обязательных целей для государств-членов. Изменит ли недавно принятая стратегия жизнь европейцев и как именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именнокак именно";

	SQLState[0] = 'a';
	SQLState[1] = '\0';
	*NativeErrorPtr = 1;

	if (1 < RecNumber)
		return SQL_NO_DATA;

	if (NULL == MessageText && 0 == BufferLength && NULL != TextLengthPtr)
	{
		*TextLengthPtr = strlen(message);
		return SQL_SUCCESS_WITH_INFO;
	}

	if (NULL != MessageText)
	{
		strncpy(MessageText, message, BufferLength);
		MessageText[BufferLength - 1] = '\0';
	}

	return SQL_SUCCESS_WITH_INFO;
}