|
1 | | -/********************************************************************* |
2 | | -* Copyright (C) 2005-2006,2008-2010,2011 by Progress Software * |
3 | | -* Corporation. All rights reserved. Prior versions of this work may * |
4 | | -* contain portions contributed by participants of Possenet. * |
5 | | -* * |
6 | | -*********************************************************************/ |
| 1 | +/************************************************************************** |
| 2 | +* Copyright (C) 2005-2006,2008-2010,2011-2024 by Progress Software * |
| 3 | +* Corporation. All rights reserved. Prior versions of this work may * |
| 4 | +* contain portions contributed by participants of Possenet. * |
| 5 | +* * |
| 6 | +***************************************************************************/ |
7 | 7 | /* Procedure: prodict/mss/_gendsql.p |
8 | 8 |
|
9 | 9 | Created: Donna L. McMann |
|
58 | 58 | 09/18/13 sgarg Fix for empty string ("") INITIAL value, does not generate SQL (OE00241307) |
59 | 59 | 12/11/13 sdash OE Initial Value not propagated w/"Include Defaults" on delta.sql (PSC00247036) |
60 | 60 | 08/20/18 vprasad ODIA-1951 - ODBC Driver 17 for SQL Server certification |
| 61 | + 03/04/24 kberlia Fixed issue for not considering width option in DSRVR-PRECISION value While generating DF using delta SQL utility (OCTA-56151). |
61 | 62 |
|
62 | 63 | If the user wants to have a DEFAULT value of blank for VARCHAR fields, |
63 | 64 | an environmental variable BLANKDEFAULT can be set to "YES" and the code will |
@@ -4027,6 +4028,7 @@ DO ON STOP UNDO, LEAVE: |
4027 | 4028 | ASSIGN df-info.df-seq = dfseq |
4028 | 4029 | dfseq = dfseq + 1 |
4029 | 4030 | df-info.df-tbl = tablename |
| 4031 | + df-info.df-fld = fieldname |
4030 | 4032 | df-line = " DSRVR-PRECISION " + STRING(all_digits). |
4031 | 4033 | CREATE df-info. |
4032 | 4034 | ASSIGN df-info.df-seq = dfseq |
|
0 commit comments