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

如何解决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