OpenMVS平台COBOL编程的问题

[caoker2000]

语句：CALL 'LIB$DATE_TIME' USING BY DESCRIPTOR MY-DATIME.
可以将系统时间赋值给MY-DATIME。但是格式是“25-MAY-2006”这样的。
我希望得到的格式是“05/25/2006”。请问用什么办法可以做到？

[hobson_hua]

01 WX-CURRENT-DATE.
03 WX-MONTH PIC X(02).
03 FILLER PIC X(01) VALUE "/".
03 WX-DATE PIC X(02).
03 FILLER PIC X(01) VALUE "/".
30 WX-YEAR PIC X(04).
自己把相应的年月日填进去不就可以了.

或者你试试这句
ACCEPT B FROM DATE.
可能月份不需要转换

[caoker2000]

请看清问题。
我要得到的是系统时间。就是程序运行时自动将当前时间赋值给一个变量。不是手工输入时间。
但还是感谢您的热心答复！

[hobson_hua]

ACCEPT可以取得系统的日期和时间
ACCEPT ident FROM DATE(DAY,DAY-OF-WEEK,TIME)
但是格式是yymmdd这样的，你直接把年月日的值ＭＯＶＥ到相应的变量里面就可以了．

用你的方法的话还要把月份转换，你可以试试．

[caoker2000]

ACCEPT得到的年份是两位数字的。把年份变成4位就行了。