| 6833 | |
| 6834 | |
| 6835 | static void set_system_flag(thread_db* tdbb, Record* record, USHORT field_id) |
| 6836 | { |
| 6837 | /************************************** |
| 6838 | * |
| 6839 | * s e t _ s y s t e m _ f l a g |
| 6840 | * |
| 6841 | ************************************** |
| 6842 | * |
| 6843 | * Functional description |
| 6844 | * Set the value of a particular field to a known binary value. |
| 6845 | * |
| 6846 | **************************************/ |
| 6847 | dsc desc1; |
| 6848 | |
| 6849 | if (!EVL_field(0, record, field_id, &desc1)) |
| 6850 | { |
| 6851 | SSHORT flag = 0; |
| 6852 | dsc desc2; |
| 6853 | desc2.makeShort(0, &flag); |
| 6854 | MOV_move(tdbb, &desc2, &desc1); |
| 6855 | record->clearNull(field_id); |
| 6856 | } |
| 6857 | } |
| 6858 | |
| 6859 | |
| 6860 | void VIO_update_in_place(thread_db* tdbb, |