如何将字符转换为十进制4GL？

Question

我写了一个查询以将字符显示为十进制值，但出现错误。让我分享：

DEFINE VARIABLE cDateTime AS CHARACTER NO-UNDO.

DEFINE TEMP-TABLE tt_data NO-UNDO
    FIELD DateTime   AS DECIMAL FORMAT "->>,>>9.99".

ASSIGN
cDateTime = "20191604121566".

CREATE tt_data.
ASSIGN
tt_data.DateTime = DECIMAL(cDateTime) /* Message Date and Time */

但它说：

“无法使用->>>，>>>，>> 9.999999显示值”。

您能帮忙解决这个问题，并告诉我这里有什么问题吗？

Answer 1

您显示的代码不会导致您正在报告的错误。

我猜测您的真实代码中某处有一个DISPLAY语句。

报告的错误仅表示DISPLAY格式不足以容纳数据。默认情况下，DISPLAY将使用您在数据元素的定义中指定的任何格式。如果您未指定任何内容，则每个数据类型都具有默认值。对于小数，默认值为“->>，>>>。99”。

您可以在定义中增加格式，也可以在显示语句中覆盖它，如下所示：

display tt_data.DateTime format ">>>>>>>>>>>>>>>9". 

注意：显示格式不会影响您可以存储在字段中的值。您总是可以将超出显示范围的更多数据“超载”到变量中。该格式仅用于输出显示目的-与存储无关。