Esempio n. 1
0
ISC_STATUS API_ROUTINE gds__ddl(ISC_STATUS* status_vector,
								FB_API_HANDLE* db_handle,
								FB_API_HANDLE* tra_handle,
								SSHORT ddl_length, const SCHAR* ddl)
{
	return isc_ddl(status_vector, db_handle, tra_handle, ddl_length, ddl);
}
Esempio n. 2
0
EXPORT RM_ENTRY(rmc_ddl)
{
	ClearParamPool();
	ISC_STATUS *stat = AllocStatusPool();
	isc_ddl(stat,
			(isc_db_handle *)arg_vector[1].a_address,
			(isc_tr_handle *)arg_vector[2].a_address,
			(short)*CobolToShort(&arg_vector[3]),
			(char *)CobolToString(&arg_vector[4]));
	StatusToCobol(&arg_vector[0], stat);

	return (0);
}