| 761 | // |
| 762 | |
| 763 | static void asgn_to_proc( const ref* reference) |
| 764 | { |
| 765 | SCHAR s[MAX_REF_SIZE]; |
| 766 | |
| 767 | for (; reference; reference = reference->ref_next) |
| 768 | { |
| 769 | if (!reference->ref_value) |
| 770 | continue; |
| 771 | const gpre_fld* field = reference->ref_field; |
| 772 | gen_name(s, reference, true); |
| 773 | if (field->fld_dtype == dtype_blob || field->fld_dtype == dtype_quad || |
| 774 | field->fld_dtype == dtype_date) |
| 775 | { |
| 776 | sprintf(output_buffer, "%sCALL isc_qtoq (%s, %s)\n", COLUMN, s, reference->ref_value); |
| 777 | } |
| 778 | else |
| 779 | sprintf(output_buffer, "%s%s = %s\n", COLUMN, reference->ref_value, s); |
| 780 | FTN_print_buffer(output_buffer); |
| 781 | } |
| 782 | } |
| 783 | |
| 784 | |
| 785 | //____________________________________________________________ |
no test coverage detected