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

重新定义子句


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

新的用户


已加入:2005年3月23日
帖子:10
地点:诺伊达

 发布 发表:2005年5月11日,星期三,下午6:28
引用回复

请看下面的例子:

01样本。
02 REC-1。
05 PIC X(3)。
05 B图X(6)。
02 REC-2重新定义REC-1。
05 C图片X(6)。
05 D图X(3)。

我们对此进行以下动作。
将C移动到B。

在此MOVE语句之后,请让我知道B的值。

(假设A为abc,B为defghi)
回到顶部
查看用户资料 发送私信
notonly4u

新的用户


已加入:2005年4月26日
帖子:87
地点:海得拉巴

 发布 发表:2005年5月11日,星期三,下午6:32
引用回复

亲爱的里卡,

我认为我们无法移动该值,因为它位于redifines子句中。

由于值重叠或与此有关的一些错误,我们将收到一个编译错误,因为我遇到了很长一段时间,所以无法提出确切的消息。

如果对此有任何了解,请告诉我,如果我错了,也请纠正我。

问候
坦登
回到顶部
查看用户资料 发送私信
超级

全球主持人


已加入:2004年4月26日
帖子:4650
地点:美国北卡罗来纳州罗利

 发布 发表:2005年5月11日,星期三,下午6:33
引用回复

为什么不自己测试一下并发布结果呢?
回到顶部
查看用户资料 发送私信
富集

新的用户


已加入:2005年3月23日
帖子:10
地点:诺伊达

 发布 发表:2005年5月11日,星期三,下午6:35
引用回复

嗨,天哪,

我没有主机访问权限,因为我目前在Float上:-)
如果您测试它并告诉我们,它将非常好。
回到顶部
查看用户资料 发送私信
阿舒托什·舒林特

新的用户


已加入:2004年8月22日
帖子:10
地点:新德里

 发布 发表:2005年5月12日,星期四,下午6:04
引用回复

嗨里嘉,
您可以将var c值移动到var b。它会正常移动。当您显示var b时,将显示var c的值。但是请记住,您不能将value子句与rediefines一起使用。 rec-2不能包含value子句。
回到顶部
查看用户资料 发送私信
maverick05

新的用户


已加入:2005年4月14日
帖子:54
地点:地球

 发布 发表:2005年5月12日,星期四,8:37 pm
引用回复

嗨理查德,

由于使用了重叠移动,因此在move语句之后B包含abcabc。

谢谢

文卡特
回到顶部
查看用户资料 发送私信
戴维·P

活跃用户


已加入:2005年4月11日
帖子:106
所在地:俄亥俄州辛辛那提

 发布 发表:2005年5月13日,星期五,上午9:48
引用回复

嗨,Venkat,
我相信移动后变量的值将为

A-abc
B-abcdef
C-abcabc
定义

如果我错了,请纠正我。
问候,
大卫。
回到顶部
查看用户资料 发送私信
maverick05

新的用户


已加入:2005年4月14日
帖子:54
地点:地球

 发布 发表:2005年5月13日,星期五,上午9:58
引用回复

大卫,您好

您所说的仅对第一个是正确的
在这里,您应该考虑从字符到字符的动态移动,因此考虑C向B移动的情况。

在move语句之后,这些是值

A--abc
B --- abcabc
C --- abcabc
D --- abc

希望你能理解。请让我知道。

谢谢
文卡特
回到顶部
查看用户资料 发送私信
戴维·P

活跃用户


已加入:2005年4月11日
帖子:106
所在地:俄亥俄州辛辛那提

 发布 发表:2005年5月13日,星期五,上午10:37
引用回复

嗨,Venkat,

知道了,谢谢您的快速回复。

问候,
大卫。
回到顶部
查看用户资料 发送私信
中殿

新的用户


加入时间:2005年5月16日
帖子:10
地点:印度班加罗尔

 发布 发表:2005年5月16日星期一6:11 pm
引用回复

嗨里卡
我想回答你的问题。B = abcdef
回到顶部
查看用户资料 发送私信
中殿

新的用户


加入时间:2005年5月16日
帖子:10
地点:印度班加罗尔

 发布 发表:2005年5月16日星期一6:18 pm
引用回复

中殿写道:
嗨里卡
我认为这将回答您的问题。B = abcdef
回到顶部
查看用户资料 发送私信
gvt460

新的用户


加入时间:2005年3月4日
帖子:23

 发布 发表:2005年5月22日,星期日,下午1:27
引用回复

海文卡特
实际上,您的回答是正确的。
那么它将在理论上如何运作?
请让我知道。
如果您对此有任何手册,请提供给我。
回到顶部
查看用户资料 发送私信
查看上一个主题 :: :: 查看下一个主题  
发表新话题   回复主题 查看书签
所有时间均为格林尼治标准时间+ 6小时
论坛索引 -> COBOL程式设计

 


类似主题
话题 论坛 回覆
没有新帖 COBOL pgm中的NOT IN子句 COBOL程式设计 8
没有新帖 带有图片条款的SUSBSCRIPT COBOL程式设计 3
没有新帖 在WHERE子句中使用CASE DB2 10
没有新帖 Cobol重新定义了签名的图片库... COBOL程式设计 4
没有新帖 READ NEXT之后的KSDS直接READ子句 JCL和VSAM 0
搜索我们的论坛:

回到顶部