P
Peter Judge
Guest
We fixed a bug similar to this in the DOH. You can ADD-LIKE-FIELD() from another temp-table. So we have a TT /* We never add records to this, just use it for schema creation */ define private static temp-table ttCaseSensitive no-undo field csChar as character case-sensitive field csClob as clob case-sensitive . And code to use them like case ablType: when 'character' :u then hTable: add-like-field (oField:GetCharacter( string (ServiceMappingFileSchemaEnum: name )), 'ttCaseSensitive.csChar' :u). when 'clob' :u then hTable: add-like-field (oField:GetCharacter( string (ServiceMappingFileSchemaEnum: name )), 'ttCaseSensitive.csClob' :u). end case . else hTable: add-new-field (oField:GetCharacter( string (ServiceMappingFileSchemaEnum: name )), ablType, iExtent). Our use-case/bug was limited to fields that are in an index, so the above 2 fields suffice. If you have array fields you are likely to have more problems (since you'll need a static field for each EXTENT ). Hth, -- peter
Continue reading...
Continue reading...