temp.txt

unix 下用pro*c tuxedo 开发的东西

/* write the errorlog file when the database is wrong */
void sqlerror()
{
	char ERR_CODE[10];

	EXEC SQL WHENEVER SQLERROR CONTINUE;
	ProcessError(LOG_ERROR,   "PCS_CONVERT_FILE: database error: ", sqlca.sqlerrm.sqlerrmc );
	
	strncpy(ERR_CODE,sqlca.sqlerrm.sqlerrmc,9);
	ERR_CODE[9]='\0';
	if( strcmp(ERR_CODE,"ORA-03127")==0|| strcmp(ERR_CODE,"ORA-03114")==0|| strcmp(ERR_CODE,"ORA-03123")==0|| strcmp(ERR_CODE,"ORA-01034")==0|| strcmp(ERR_CODE,"ORA-01089")==0||strcmp(ERR_CODE,"ORA-01012")==0||strcmp(ERR_CODE,"ORA-01089") ==0||strcmp( ERR_CODE, "ORA-01033") ==0 )
	{
		sleep(INIT_INTERVAL);
		init_time++;
		if (init_time == 6)
		{
			ProcessError(LOG_NORMAL, "PCS_CONVERT_FILE: Could not connect to the database, so exit now!",END);
			freect();
			exit(0);
		}
		InitPcsConvertFile();
	}
	EXEC SQL ROLLBACK WORK;
	ERROR=1;
	return;
}