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); }
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); }