+ case ECPGt_decimal: /* this is used by informix and need to be initialized */
+ if (atoi(dimension) < 0)
+ type = ECPGmake_simple_type(ECPGt_numeric, make_str("1"));
+ else
+ type = ECPGmake_array_type(ECPGmake_simple_type(ECPGt_numeric, make_str("1")), dimension);
+
+ if (strlen($4) == 0)
+ {
+ $4 = mm_alloc(sizeof(" = {0, 0, 0, 0, 0, NULL, NULL}"));
+ strcpy($4, " = {0, 0, 0, 0, 0, NULL, NULL}");
+ }
+
+ $$ = cat_str(4, $1, mm_strdup($2), $3.str, $4);
+
+ break;