论坛徽章:: 0

电梯直达

1楼 [收藏(0)] [报告]

发表于 2009-10-28 15:01 |只看该作者 |倒序浏览

如题，今天用ACCEPT取出来的时间系统年月日时6位的，400/COBOL中如何取8位系统时间啊，请前辈们指教一下，感激不尽

文库|博客

seouldeng

家境小康

论坛徽章:: 0

2楼 [报告]

发表于 2009-10-28 15:12 |只看该作者

COBOL没有用过，查看下系统的函数了，在RPG里边就有*DATE，8位的,UDATE，6位的，不知道COBOL里边是否同样

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

waiting811013

白手起家

论坛徽章:: 0

3楼 [报告]

发表于 2009-10-28 15:21 |只看该作者

COBOL不一样，想取4位的年度，用ACCEPT取出来的却是两位的，哪个大哥指点一下啊

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

abcde645

白手起家

论坛徽章:: 0

4楼 [报告]

发表于 2009-10-28 22:47 |只看该作者

用CBLLE

好像最近用COBOL有上升的趋势

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

没想到

白手起家

论坛徽章:: 0

5楼 [报告]

发表于 2009-10-28 23:10 |只看该作者

楼主，你需要达到的功能在COBOL中是可以做到的。附代码如下

DATA DIVISION.
WORKING-STORAGE SECTION.
01 YYYYMMDD PIC 9(8).

PROCEDURE DIVISION.
MAINLINE.
MOVE FUNCTION CURRENT-DATE(1:8) TO YYYYMMDD.
DISPLAY "CURRENT DATE " YYYYMMDD.
STOP RUN.