Chinaunix

标题: AS400中的COBOL里，如何取得8位系统日付？ [打印本页]

作者: thursday 时间: 2007-06-02 14:21
标题: AS400中的COBOL里，如何取得8位系统日付？

复制代码

上面的代码分别能取出系统日期和时间，可是日付是六位的！怎么才能直接取得8位的日付呢！？

因为不想在麻烦一次，做日付变换！

作者: 八哥看铺 时间: 2007-06-04 10:45
好像是需要转换的，DATE参数的形式是'70604'（表示2007年6月4日），取出来之后要判断转化一下

作者: pantierui 时间: 2007-06-04 15:23
在CBLLE中可以用MOVE FUNCTION CURRENT-DATE(1:8 ) TO L08-DATE

[ 本帖最后由 pantierui 于 2007-6-5 18:00 编辑 ]

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)