AS400中的COBOL里，如何取得8位系统日付？

thursday

1. ACCEPT  aaa  FROM  DATE
   
2. ACCEPT  bbb  FROM  time   

复制代码

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


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

八哥看铺

好像是需要转换的，DATE参数的形式是'70604'（表示2007年6月4日），取出来之后要判断转化一下

pantierui

在CBLLE中可以用MOVE    FUNCTION CURRENT-DATE(1:8 )    TO   L08-DATE

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