Date value representation problem with 4GL developement tools 7.20 UD6 on Alpha ?
Posted in 1999
Hello, after recompiling some software formerly running on Siemens RM technology machine (compiled with 4GL developement tools 4.1x) we recently changed to a Alpha Cluster (with TrueUnix 4.0) and 7.20 UD6 developement tools. After this change, every formatting of DATE values with USING "dd.mm.yyyy" gives error 1210. USING has no meaning at all for every date value. I can use for example USING "fooo" and the displayed date is in the format of the DBDATE=DMY4. value with error 1210 in the log. I checked it with the following program. MAIN DEFINE l_a1 DATE ,l_a3 DATE ,l_a1_str CHAR(20) ,l_a3_str CHAR(20) OPEN WINDOW w_test AT 2,2 WITH 22 ROWS, 78 COLUMNS ATTRIBUTE(BORDER) OPEN FORM f_test FROM "f_test" DISPLAY FORM f_test INITIALIZE l_a3 TO NULL INPUT l_a3 WITHOUT DEFAULTS FROM sr_record.a1 AFTER FIELD a1 LET l_a1 = GETFLDBUF(sr_record.a1) LET l_a1_str = l_a1 USING "DD MM YYYY" DISPLAY l_a1_str AT 10,10 LET l_a3_str = l_a3 USING "DD MM YYYY" DISPLAY l_a3_str AT 11,10 END INPUT END MAIN I first compiled the program to an .ec file and put to printf´s into the code which prints me the long values of the two date variables l_a1 and l_a3. 31.12.1899 <- Input date 31 12 1899 l_a1 = 0000000000 <- output of printf 31.12.1899 l_a3 = 4294967296 30.12.1899 <- Input date 30 12 1899 l_a1 = 0000000001 30.12.1899 l_a3 = 8589934591 (FF FF FF FF) USING string with l_a3 also gives the 1210 error and no formatting according to USING occurs. Is this probably a problem with the 64 bit Alpha archticture not proberly addressed be the developement tools? Greetings, Joerg