示例 :DATEVAL
此示例显示了以下情况: 最好将字段保留为非日期，并在比较语句中使用 DATEVAL 内部函数。
假定在程序中多次引用字段 Date-Copied ，但大多数引用只是在记录之间移动值或重新格式化以进行打印。 只有一个引用依赖于它来包含日期 (用于与另一个日期进行比较)。 在这种情况下，最好将该字段保留为非日期，并在比较语句中使用 DATEVAL 内部函数。 例如：
03 Date-Distributed Pic 9(6) Date Format yyxxxx.
03 Date-Copied Pic 9(6).
. . .
If Function DATEVAL(Date-Copied "YYXXXX") Less than Date-Distributed . . .
在此示例中， DATEVAL 将 Date-Copied 转换为日期字段，以便比较有意义。