Micro Focus COBOL 5将不接受SQL Server日期

问题描述

一组开发人员正在尝试将我们的COBOL从Micro Focus 4升级到5-我们的日期处理不断抛出异常

工作存储

...
 01  WS-CURRENT-TIMESTAMP    PIC  X(026).
...

程序

...
01434      EXEC sql                                                         
             SELECT CURRENT_TIMESTAMP INTO :WS-CURRENT-TIMESTAMP           
01436      END-EXEC.
...

再往下

...
           MOVE WS-CURRENT-TIMESTAMP TO XX-LST-UPD-TS.
01578      EXEC sql                                                         
01579         UPDATE NHP083TB  
              SET XX_LST_UPD_TS      = :XX-LST-UPD-TS
           END-EXEC.
...

以241的sqlCODE结尾

XX_LST_UPD_TS是sql Server DATETIME2

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

cobol datetime2