IBM大型机论坛索引
 
 登录
 
IBM大型机论坛索引 大型机:搜索 IBM Mainframe论坛:常见问题解答  寄存器
 

操作日期变量


IBM大型机论坛 -> COBOL程式设计
 发表新话题     回复主题
查看上一个主题 :: 查看下一个主题  
作者 信息
srvk_2k2

新的用户


加入时间:2008年5月7日
帖子:36
地点:钦奈

 发布 发表:2008年5月8日星期四上午9:39
引用回复

你好

如何处理日期...
我的要求是从COBOL中的系统日期获取以前的日期
有什么可能和简单的方法?

提前致谢
萨拉瓦那
回到顶部
查看用户资料 发送私信
the_gautam

活跃用户


已加入:2005年6月5日
职位:165
地点:班加罗尔

 发布 发表:2008年5月8日星期四上午9:49
引用回复

您在程序中使用DB2吗?
回到顶部
查看用户资料 发送私信
srvk_2k2

新的用户


加入时间:2008年5月7日
帖子:36
地点:钦奈

 发布 发表:2008年5月8日星期四上午9:53
引用回复

没有Yaar ..这是简单的COBOL程序

问候,
萨拉瓦娜S
回到顶部
查看用户资料 发送私信
srvk_2k2

新的用户


加入时间:2008年5月7日
帖子:36
地点:钦奈

 发布 发表:2008年5月8日,星期四,上午9:57
引用回复

我已经尝试过使用功能'SUBTRACT-DURATION
'。但这不起作用,我认为它适用于其他版本的COBOL,我不确定。

问候,
萨拉瓦娜S
回到顶部
查看用户资料 发送私信
the_gautam

活跃用户


已加入:2005年6月5日
职位:165
地点:班加罗尔

 发布 发表:2008年5月8日,星期四,上午9:58
引用回复

从系统接受日期后,将其存储在WORKING-STORAGE变量中。
那么,为什么不能简单地从日期部分中减去1来获得前一个日期呢?
当然,如果当前日期是月份/年份的第一天,则需要注意月份和年份的值。
回到顶部
查看用户资料 发送私信
srvk_2k2

新的用户


加入时间:2008年5月7日
帖子:36
地点:钦奈

 发布 发表:2008年5月8日星期四上午10:00
引用回复

感谢您的回复Gautam。还有其他方法/内置功能可以简单地获取上一个日期。如果是这样,那会有所帮助

问候,
萨拉瓦娜S
回到顶部
查看用户资料 发送私信
the_gautam

活跃用户


已加入:2005年6月5日
职位:165
地点:班加罗尔

 发布 发表:2008年5月8日星期四上午10:06
引用回复

不确定。我使用了一个程序来计算日期差/日期验证,现在每当我需要此逻辑时,便会使用该程序。
回到顶部
查看用户资料 发送私信
srvk_2k2

新的用户


加入时间:2008年5月7日
帖子:36
地点:钦奈

 发布 发表:2008年5月8日星期四上午10:15
引用回复

你可以张贴吗?

问候,
萨拉瓦娜S
回到顶部
查看用户资料 发送私信
the_gautam

活跃用户


已加入:2005年6月5日
职位:165
地点:班加罗尔

 发布 发表:2008年5月8日星期四上午10:23
引用回复

抱歉,我不应该发布公司资产。
回到顶部
查看用户资料 发送私信
dbzTHEdinosauer

全球主持人


已加入:2006年10月20日
帖子:6967
位置:瓷宝座

 发布 发表:2008年5月8日,星期四,下午1:04
引用回复

萨拉瓦那

几乎每家商店都有某种约会套路/服务。我会问你的同龄人/系统人员。
回到顶部
查看用户资料 发送私信
ashimer

活跃的成员


已加入:2004年2月13日
帖子:551
地点:班加罗尔

 发布 发表:2008年5月8日,星期四,下午4:38
引用回复

您好Saravana,

尝试这个 ...

码:


01 YYYYMMDD图片9(8).
01 日期到整数 Pic S9(9).


移动功能当前日期(1:8) to YYYYMMDD
计算日期到整数=函数日期整数(YYYYMMDD)
Subtract 1 from 日期到整数
计算YYYYMMDD =函数整数(date-to-Integer)



这将为您提供数字格式的上一个日期...

试试这个..i还没有测试这个...让我们知道...

谢谢,
ashimer
回到顶部
查看用户资料 发送私信
比尔·奥博伊尔

CICS 主持人


已加入:2008年1月14日
帖子:2504
地点:美国乔治亚州亚特兰大

 发布 发表:2008年5月8日,星期四,下午4:42
引用回复

您的COBOL版本/发行版是什么?

最小为COBOL / 370(在15年前发布)以支持FUNCTION,它是COBOL2的后继产品。

不管COBOL版本/发行版如何,FUNCTION SUBTRACT-DURATION都不是有效的COBOL FUNCTION。

当您说需要“上一个系统日期”时,需要从当前日期中减去多少时间?分钟,小时,天数等?我们都不确定。

要使用受支持的COBOL功能,请签出-

01)功能当前日期
02)日期功能整数
03)从日期整数调整结果
04)功能日期

但是,我赞同Dick关于标准化日期方法子系统的建议,您应该与其他同事交谈。

问候,

法案
回到顶部
查看用户资料 发送私信
srvk_2k2

新的用户


加入时间:2008年5月7日
帖子:36
地点:钦奈

 发布 发表:2008年5月29日,星期四,上午11:39
引用回复

是的ashimer。您的建议奏效了...非常感谢

问候,
萨拉瓦娜S
回到顶部
查看用户资料 发送私信
srvk_2k2

新的用户


加入时间:2008年5月7日
帖子:36
地点:钦奈

 发布 发表:2008年5月29日,星期四,上午11:41
引用回复

终于奏效了。...感谢大家的答复

问候,
萨拉瓦娜S
回到顶部
查看用户资料 发送私信
查看上一个主题 :: :: 查看下一个主题  
 发表新话题     回复主题 查看书签
所有时间均为格林尼治标准时间+ 6小时
论坛索引 -> COBOL程式设计

 


类似主题
话题 论坛 回覆
 没有新帖 使用SORT进行日期转换 同步排序 4
 没有新帖 文件状态-可变长度39 COBOL程式设计 2
 没有新帖 日期转换Y2T到Y2W 同步排序 8
 没有新帖 日期格式转换 DFSORT / ICETOOL 4
 没有新帖 十六进制值-VB文件替换旧日期... DFSORT / ICETOOL 14
搜索我们的论坛:

 回到顶部