| 1 | /* | 
|---|
| 2 | * Legal Notice | 
|---|
| 3 | * | 
|---|
| 4 | * This document and associated source code (the "Work") is a part of a | 
|---|
| 5 | * benchmark specification maintained by the TPC. | 
|---|
| 6 | * | 
|---|
| 7 | * The TPC reserves all right, title, and interest to the Work as provided | 
|---|
| 8 | * under U.S. and international laws, including without limitation all patent | 
|---|
| 9 | * and trademark rights therein. | 
|---|
| 10 | * | 
|---|
| 11 | * No Warranty | 
|---|
| 12 | * | 
|---|
| 13 | * 1.1 TO THE MAXIMUM EXTENT PERMITTED BY APPLICABLE LAW, THE INFORMATION | 
|---|
| 14 | *     CONTAINED HEREIN IS PROVIDED "AS IS" AND WITH ALL FAULTS, AND THE | 
|---|
| 15 | *     AUTHORS AND DEVELOPERS OF THE WORK HEREBY DISCLAIM ALL OTHER | 
|---|
| 16 | *     WARRANTIES AND CONDITIONS, EITHER EXPRESS, IMPLIED OR STATUTORY, | 
|---|
| 17 | *     INCLUDING, BUT NOT LIMITED TO, ANY (IF ANY) IMPLIED WARRANTIES, | 
|---|
| 18 | *     DUTIES OR CONDITIONS OF MERCHANTABILITY, OF FITNESS FOR A PARTICULAR | 
|---|
| 19 | *     PURPOSE, OF ACCURACY OR COMPLETENESS OF RESPONSES, OF RESULTS, OF | 
|---|
| 20 | *     WORKMANLIKE EFFORT, OF LACK OF VIRUSES, AND OF LACK OF NEGLIGENCE. | 
|---|
| 21 | *     ALSO, THERE IS NO WARRANTY OR CONDITION OF TITLE, QUIET ENJOYMENT, | 
|---|
| 22 | *     QUIET POSSESSION, CORRESPONDENCE TO DESCRIPTION OR NON-INFRINGEMENT | 
|---|
| 23 | *     WITH REGARD TO THE WORK. | 
|---|
| 24 | * 1.2 IN NO EVENT WILL ANY AUTHOR OR DEVELOPER OF THE WORK BE LIABLE TO | 
|---|
| 25 | *     ANY OTHER PARTY FOR ANY DAMAGES, INCLUDING BUT NOT LIMITED TO THE | 
|---|
| 26 | *     COST OF PROCURING SUBSTITUTE GOODS OR SERVICES, LOST PROFITS, LOSS | 
|---|
| 27 | *     OF USE, LOSS OF DATA, OR ANY INCIDENTAL, CONSEQUENTIAL, DIRECT, | 
|---|
| 28 | *     INDIRECT, OR SPECIAL DAMAGES WHETHER UNDER CONTRACT, TORT, WARRANTY, | 
|---|
| 29 | *     OR OTHERWISE, ARISING IN ANY WAY OUT OF THIS OR ANY OTHER AGREEMENT | 
|---|
| 30 | *     RELATING TO THE WORK, WHETHER OR NOT SUCH AUTHOR OR DEVELOPER HAD | 
|---|
| 31 | *     ADVANCE NOTICE OF THE POSSIBILITY OF SUCH DAMAGES. | 
|---|
| 32 | * | 
|---|
| 33 | * Contributors: | 
|---|
| 34 | * Gradient Systems | 
|---|
| 35 | */ | 
|---|
| 36 | #include "config.h" | 
|---|
| 37 | #include "porting.h" | 
|---|
| 38 | #include <stdio.h> | 
|---|
| 39 | #include "constants.h" | 
|---|
| 40 | #include "address.h" | 
|---|
| 41 | #include "w_web_site.h" | 
|---|
| 42 | #include "genrand.h" | 
|---|
| 43 | #include "tables.h" | 
|---|
| 44 | #include "columns.h" | 
|---|
| 45 | #include "scaling.h" | 
|---|
| 46 | #include "build_support.h" | 
|---|
| 47 | #include "misc.h" | 
|---|
| 48 | #include "nulls.h" | 
|---|
| 49 | #include "tdefs.h" | 
|---|
| 50 | #include "scd.h" | 
|---|
| 51 |  | 
|---|
| 52 | #include "append_info.h" | 
|---|
| 53 |  | 
|---|
| 54 | struct W_WEB_SITE_TBL g_w_web_site; | 
|---|
| 55 | static struct W_WEB_SITE_TBL g_OldValues; | 
|---|
| 56 |  | 
|---|
| 57 | /* | 
|---|
| 58 | * Routine: mk_web_site() | 
|---|
| 59 | * Purpose: populate the web_site table | 
|---|
| 60 | * Algorithm: | 
|---|
| 61 | * Data Structures: | 
|---|
| 62 | * | 
|---|
| 63 | * Params: | 
|---|
| 64 | * Returns: | 
|---|
| 65 | * Called By: | 
|---|
| 66 | * Calls: | 
|---|
| 67 | * Assumptions: | 
|---|
| 68 | * Side Effects: | 
|---|
| 69 | * TODO: | 
|---|
| 70 | */ | 
|---|
| 71 | int mk_w_web_site(void *info_arr, ds_key_t index) { | 
|---|
| 72 | int32_t nFieldChangeFlags, bFirstRecord = 0; | 
|---|
| 73 | static decimal_t dMinTaxPercentage, dMaxTaxPercentage; | 
|---|
| 74 | static int32_t bInit = 0; | 
|---|
| 75 |  | 
|---|
| 76 | /* begin locals declarations */ | 
|---|
| 77 | char szTemp[16], *sName1, *sName2; | 
|---|
| 78 | struct W_WEB_SITE_TBL *r, *rOldValues = &g_OldValues; | 
|---|
| 79 | tdef *pT = getSimpleTdefsByNumber(WEB_SITE); | 
|---|
| 80 |  | 
|---|
| 81 | r = &g_w_web_site; | 
|---|
| 82 |  | 
|---|
| 83 | if (!bInit) { | 
|---|
| 84 | /* setup invariant values */ | 
|---|
| 85 | sprintf(szTemp, "%d-%d-%d", CURRENT_YEAR, CURRENT_MONTH, CURRENT_DAY); | 
|---|
| 86 | strcpy(r->web_class, "Unknown"); | 
|---|
| 87 | strtodec(&dMinTaxPercentage, WEB_MIN_TAX_PERCENTAGE); | 
|---|
| 88 | strtodec(&dMaxTaxPercentage, WEB_MAX_TAX_PERCENTAGE); | 
|---|
| 89 |  | 
|---|
| 90 | bInit = 1; | 
|---|
| 91 | } | 
|---|
| 92 |  | 
|---|
| 93 | nullSet(&pT->kNullBitMap, WEB_NULLS); | 
|---|
| 94 | r->web_site_sk = index; | 
|---|
| 95 |  | 
|---|
| 96 | /* if we have generated the required history for this business key and | 
|---|
| 97 | * generate a new one then reset associate fields (e.g., rec_start_date | 
|---|
| 98 | * minimums) | 
|---|
| 99 | */ | 
|---|
| 100 | if (setSCDKeys(WEB_SITE_ID, index, r->web_site_id, &r->web_rec_start_date_id, &r->web_rec_end_date_id)) { | 
|---|
| 101 | r->web_open_date = mk_join(WEB_OPEN_DATE, DATET, index); | 
|---|
| 102 | r->web_close_date = mk_join(WEB_CLOSE_DATE, DATET, index); | 
|---|
| 103 | if (r->web_close_date > r->web_rec_end_date_id) | 
|---|
| 104 | r->web_close_date = -1; | 
|---|
| 105 | sprintf(r->web_name, "site_%d", (int)(index / 6)); | 
|---|
| 106 | bFirstRecord = 1; | 
|---|
| 107 | } | 
|---|
| 108 |  | 
|---|
| 109 | /* | 
|---|
| 110 | * this is  where we select the random number that controls if a field | 
|---|
| 111 | * changes from one record to the next. | 
|---|
| 112 | */ | 
|---|
| 113 | nFieldChangeFlags = next_random(WEB_SCD); | 
|---|
| 114 |  | 
|---|
| 115 | /* the rest of the record in a history-keeping dimension can either be a new | 
|---|
| 116 | * data value or not; use a random number and its bit pattern to determine | 
|---|
| 117 | * which fields to replace and which to retain | 
|---|
| 118 | */ | 
|---|
| 119 | pick_distribution(&sName1, "first_names", 1, 1, WEB_MANAGER); | 
|---|
| 120 | pick_distribution(&sName2, "last_names", 1, 1, WEB_MANAGER); | 
|---|
| 121 | sprintf(r->web_manager, "%s %s", sName1, sName2); | 
|---|
| 122 | changeSCD(SCD_CHAR, &r->web_manager, &rOldValues->web_manager, &nFieldChangeFlags, bFirstRecord); | 
|---|
| 123 |  | 
|---|
| 124 | genrand_integer(&r->web_market_id, DIST_UNIFORM, 1, 6, 0, WEB_MARKET_ID); | 
|---|
| 125 | changeSCD(SCD_INT, &r->web_market_id, &rOldValues->web_market_id, &nFieldChangeFlags, bFirstRecord); | 
|---|
| 126 |  | 
|---|
| 127 | gen_text(r->web_market_class, 20, RS_WEB_MARKET_CLASS, WEB_MARKET_CLASS); | 
|---|
| 128 | changeSCD(SCD_CHAR, &r->web_market_class, &rOldValues->web_market_class, &nFieldChangeFlags, bFirstRecord); | 
|---|
| 129 |  | 
|---|
| 130 | gen_text(r->web_market_desc, 20, RS_WEB_MARKET_DESC, WEB_MARKET_DESC); | 
|---|
| 131 | changeSCD(SCD_CHAR, &r->web_market_desc, &rOldValues->web_market_desc, &nFieldChangeFlags, bFirstRecord); | 
|---|
| 132 |  | 
|---|
| 133 | pick_distribution(&sName1, "first_names", 1, 1, WEB_MARKET_MANAGER); | 
|---|
| 134 | pick_distribution(&sName2, "last_names", 1, 1, WEB_MARKET_MANAGER); | 
|---|
| 135 | sprintf(r->web_market_manager, "%s %s", sName1, sName2); | 
|---|
| 136 | changeSCD(SCD_CHAR, &r->web_market_manager, &rOldValues->web_market_manager, &nFieldChangeFlags, bFirstRecord); | 
|---|
| 137 |  | 
|---|
| 138 | genrand_integer(&r->web_company_id, DIST_UNIFORM, 1, 6, 0, WEB_COMPANY_ID); | 
|---|
| 139 | changeSCD(SCD_INT, &r->web_company_id, &rOldValues->web_company_id, &nFieldChangeFlags, bFirstRecord); | 
|---|
| 140 |  | 
|---|
| 141 | mk_word(r->web_company_name, "Syllables", r->web_company_id, RS_WEB_COMPANY_NAME, WEB_COMPANY_NAME); | 
|---|
| 142 | changeSCD(SCD_CHAR, &r->web_company_name, &rOldValues->web_company_name, &nFieldChangeFlags, bFirstRecord); | 
|---|
| 143 |  | 
|---|
| 144 | mk_address(&r->web_address, WEB_ADDRESS); | 
|---|
| 145 | changeSCD(SCD_PTR, &r->web_address.city, &rOldValues->web_address.city, &nFieldChangeFlags, bFirstRecord); | 
|---|
| 146 | changeSCD(SCD_PTR, &r->web_address.county, &rOldValues->web_address.county, &nFieldChangeFlags, bFirstRecord); | 
|---|
| 147 | changeSCD(SCD_INT, &r->web_address.gmt_offset, &rOldValues->web_address.gmt_offset, &nFieldChangeFlags, | 
|---|
| 148 | bFirstRecord); | 
|---|
| 149 | changeSCD(SCD_PTR, &r->web_address.state, &rOldValues->web_address.state, &nFieldChangeFlags, bFirstRecord); | 
|---|
| 150 | changeSCD(SCD_PTR, &r->web_address.street_type, &rOldValues->web_address.street_type, &nFieldChangeFlags, | 
|---|
| 151 | bFirstRecord); | 
|---|
| 152 | changeSCD(SCD_PTR, &r->web_address.street_name1, &rOldValues->web_address.street_name1, &nFieldChangeFlags, | 
|---|
| 153 | bFirstRecord); | 
|---|
| 154 | changeSCD(SCD_PTR, &r->web_address.street_name2, &rOldValues->web_address.street_name2, &nFieldChangeFlags, | 
|---|
| 155 | bFirstRecord); | 
|---|
| 156 | changeSCD(SCD_INT, &r->web_address.street_num, &rOldValues->web_address.street_num, &nFieldChangeFlags, | 
|---|
| 157 | bFirstRecord); | 
|---|
| 158 | changeSCD(SCD_INT, &r->web_address.zip, &rOldValues->web_address.zip, &nFieldChangeFlags, bFirstRecord); | 
|---|
| 159 |  | 
|---|
| 160 | genrand_decimal(&r->web_tax_percentage, DIST_UNIFORM, &dMinTaxPercentage, &dMaxTaxPercentage, NULL, | 
|---|
| 161 | WEB_TAX_PERCENTAGE); | 
|---|
| 162 | changeSCD(SCD_DEC, &r->web_tax_percentage, &rOldValues->web_tax_percentage, &nFieldChangeFlags, bFirstRecord); | 
|---|
| 163 |  | 
|---|
| 164 | void *info = append_info_get(info_arr, WEB_SITE); | 
|---|
| 165 | append_row_start(info); | 
|---|
| 166 |  | 
|---|
| 167 | char szStreetName[128]; | 
|---|
| 168 |  | 
|---|
| 169 | append_key(info, r->web_site_sk); | 
|---|
| 170 | append_varchar(info, &r->web_site_id[0]); | 
|---|
| 171 | append_date(info, (int)r->web_rec_start_date_id); | 
|---|
| 172 | append_date(info, (int)r->web_rec_end_date_id); | 
|---|
| 173 | append_varchar(info, &r->web_name[0]); | 
|---|
| 174 | append_key(info, r->web_open_date); | 
|---|
| 175 | append_key(info, r->web_close_date); | 
|---|
| 176 | append_varchar(info, &r->web_class[0]); | 
|---|
| 177 | append_varchar(info, &r->web_manager[0]); | 
|---|
| 178 | append_integer(info, r->web_market_id); | 
|---|
| 179 | append_varchar(info, &r->web_market_class[0]); | 
|---|
| 180 | append_varchar(info, &r->web_market_desc[0]); | 
|---|
| 181 | append_varchar(info, &r->web_market_manager[0]); | 
|---|
| 182 | append_integer(info, r->web_company_id); | 
|---|
| 183 | append_varchar(info, &r->web_company_name[0]); | 
|---|
| 184 | append_integer(info, r->web_address.street_num); | 
|---|
| 185 | if (r->web_address.street_name2) { | 
|---|
| 186 | sprintf(szStreetName, "%s %s", r->web_address.street_name1, r->web_address.street_name2); | 
|---|
| 187 | append_varchar(info, szStreetName); | 
|---|
| 188 | } else | 
|---|
| 189 | append_varchar(info, r->web_address.street_name1); | 
|---|
| 190 | append_varchar(info, r->web_address.street_type); | 
|---|
| 191 | append_varchar(info, r->web_address.suite_num); | 
|---|
| 192 | append_varchar(info, r->web_address.city); | 
|---|
| 193 | append_varchar(info, r->web_address.county); | 
|---|
| 194 | append_varchar(info, r->web_address.state); | 
|---|
| 195 | sprintf(szStreetName, "%05d", r->web_address.zip); | 
|---|
| 196 | append_varchar(info, szStreetName); | 
|---|
| 197 | append_varchar(info, r->web_address.country); | 
|---|
| 198 | append_integer(info, r->web_address.gmt_offset); | 
|---|
| 199 | append_decimal(info, &r->web_tax_percentage); | 
|---|
| 200 |  | 
|---|
| 201 | append_row_end(info); | 
|---|
| 202 |  | 
|---|
| 203 | return 0; | 
|---|
| 204 | } | 
|---|
| 205 |  | 
|---|