免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
› 论坛 › 操作系统 › AS400 › 400下cobol如何取系统日期（急）
最近访问板块 发新帖
查看: 5607 | 回复: 7
打印 上一主题 下一主题

400下cobol如何取系统日期（急） [复制链接]

chmj

论坛徽章:
0
跳转到指定楼层
1楼 [收藏(0)] [报告]
发表于 2007-09-14 14:59 |只看该作者 |倒序浏览
接触400下的cobol时间不长，手里没有相关的资料。有两个问题向高手请教：
1 as400下cobol做画面，如何在程序中取系统日期和时间。

2 在dsp中定义的变量，如果用EDTCDE或者EDTWRD，程序可以编译通过，但运行时异常跳出，出现下面的信息：
(C D F G) COBOL のプログラム TEST03 の入出力操作が正常に実行されなかった
这个问题如何能够解决？
tme45

论坛徽章:
0
2楼 [报告]
发表于 2007-09-14 16:23 |只看该作者
CURRENT-DATE

The CURRENT-DATE function returns a 21-character alphanumeric value that
represents the calendar date, time of day, and time differential from Greenwich
Mean Time provided by the system on which the function is evaluated.
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
chmj

论坛徽章:
0
3楼 [报告]
发表于 2007-09-14 16:29 |只看该作者
谢谢楼上兄弟！但能不能给中文的回答，看不懂啊！
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
tme45

论坛徽章:
0
4楼 [报告]
发表于 2007-09-14 16:39 |只看该作者
CCYYMMDD                PIC 9(0 VALUE ZEROS

MOVE FUNCTION CURRENT-DATE(1: TO CCYYMMDD.

[ 本帖最后由 tme45 于 2007-9-14 16:41 编辑 ]
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
chmj

论坛徽章:
0
5楼 [报告]
发表于 2007-09-14 17:14 |只看该作者
谢谢了，第二个问题能帮我解决吗？
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
chmj

论坛徽章:
0
6楼 [报告]
发表于 2007-09-14 17:18 |只看该作者
系统时间怎么取啊？
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
chmj

论坛徽章:
0
7楼 [报告]
发表于 2007-09-15 19:49 |只看该作者

简单的答案

只需要用 ACCEPT  语句取时间和日期
ACCEPT   WRK-SYSDATE       FROM  DATE.
ACCEPT   WRK-SYSTIME       FROM  TIME.
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
digitalchina

论坛徽章:
0
8楼 [报告]
发表于 2007-09-21 13:34 |只看该作者
原帖由 chmj 于 2007-9-15 19:49 发表
只需要用 ACCEPT  语句取时间和日期
ACCEPT   WRK-SYSDATE       FROM  DATE.
ACCEPT   WRK-SYSTIME       FROM  TIME.

这样取到的日期是2位年,时间带微秒
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号：11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们：huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP