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

将空间部分移到Map变量中


IBM大型机论坛 -> CICS
发表新话题   回复主题
查看上一个主题 :: 查看下一个主题  
作者 信息
杜尼迪

新的用户


已加入:2012年3月2日
帖子:48
地点:印度

发布发表:2012年9月17日星期一6:23 pm
引用回复

你好

我有一个现有屏幕,显示的行如下所示,

L =有效代码为有效代码( )
S = STOLEN 04 =提货0-9并且
()
F =欺诈07 = SPCL拾起A-F和()


我为上述声明了变量,

000287 SG11070 DFHMDF POS =(10,70),X
000288长度= 01,X
000289 ATTRB =(ASKIP,NORM),X
000290 INITIAL =')'
000291 ***************************************************** **********************
000292 DFHMDF POS =(11,01),X
000293长度= 08,X
000294 ATTRB =(ASKIP,NORM),X
000295 INITIAL ='S = STOLEN'
000296 ****************************************************** **********************
000297 DFHMDF POS =(11,28),X
000298长度= 12,X
000299 ATTRB =(ASKIP,NORM),X
000300 INITIAL = '04 =提货'

000301 ***************************************************** **********************
000302 DFHMDF POS =(11,54),X
000303长度= 11,X
000304 ATTRB =(ASKIP,NORM),X
000305 INITIAL ='ARE 0-9 AND'
000306 ****************************************************** **********************
000307 SG11166 DFHMDF POS =(11,66),X
000308长度= 01,X
000309 ATTRB =(ASKIP,NORM),X
000310 INITIAL ='('


我的要求是我需要从地图显示中隐藏'04 = PICK UP'字符串。是否可以通过CICS程序单独隐藏该字符串。由于已为物理映射中的所有连续字符串声明了变量,因此可以选择隐藏特定的字符串,例如使用Cobol参考修改。
回到顶部
查看用户资料 发送私信
罗希特·乌马尔吉卡(Rohit Umarjikar)

全球主持人


已加入:2010年9月21日
帖子:2581
地点:美国纽约

发布发表:2012年9月17日星期一7:00 pm
引用回复

1)如果它的时间发生了变化,即将来您不需要显示它,那为什么不使用DRK attrb更改地图。
2)如果要动态控制它,则向它添加一个标签,然后将DRK属性移到它的“ A”字节并发送该映射。

我可能不知道其他选择,但这就是我能想到的。
回到顶部
查看用户资料 发送私信
杜尼迪

新的用户


已加入:2012年3月2日
帖子:48
地点:印度

发布发表:2012年9月17日星期一7:40 pm
引用回复

感谢Rogit您的答复。

是的,这也是我以前的想法(通过使用DRK属性为该字符串声明一个变量来修改map)。但是我当时在考虑不要更改Map定义,而只是更改CICS程序以将空格部分移到String位置,这样pgm的重新编译就足够了。我没有在cobol中找到任何类似参考修改的选项。
回到顶部
查看用户资料 发送私信
尼克·克劳斯顿

全球主持人


加入时间:2007年5月10日
帖子:2455
地点:英国汉普郡

发布发表时间:2012年9月18日,星期二,上午1:07
引用回复

引用:
我在coboll中找不到任何类似参考修改的选项

参考修改是一个COBOL术语。对于其他语言中的类似功能,该术语为SUBSTR或子字符串。所以我不理解你在说什么。
回到顶部
查看用户资料 发送私信
罗伯特·桑普

全球主持人


已加入:2008年6月6日
帖子:8569
地点:美国爱荷华州迪比克

发布发表时间:2012年9月18日,星期二,上午1:15
引用回复

此页顶部有一个指向手册的链接。单击它,找到企业COBOL 语言参考 手册和阅读部分 1.8.1.10参考修改 了解更多。自从至少1993年以来,引用修饰就一直是COBOL的一部分,并且很可能已经更长了,因此没有理由不知道它是什么以及它如何工作。当然,除非您根本不了解COBOL。
回到顶部
查看用户资料 发送私信
比尔·伍德格

主持人荣誉


加入时间:2011年3月9日
帖子:7311
位置:矩阵内部

发布发表:2012年9月18日,星期二,凌晨3:07
引用回复

引用:
但是我当时在考虑不要更改Map定义,而只是更改CICS程序以将空格部分移到String位置,这样pgm的重新编译就足够了。我没有在cobol中找到任何类似参考修改的选项。


In <无论我叫CICS程序是什么>我想使用某种“子字符串”处理。我找不到<CICS程序使用的任何语言>在我看来,任何处理都等同于Cobol中的引用修改,我一直都知道并使用它<因为它的键入要比定义正确的数据少得多,而且我不必维护任何程序,只需编写新程序>.

无论如何,这就是我的阅读方式。
回到顶部
查看用户资料 发送私信
比尔·奥博伊尔

CICS主持人


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

发布发表时间:2012年9月18日,星期二,上午6:01
引用回复

您需要在DFHMDF宏(例如SG11128)之前在第297行添加标签,并重新组合映射,然后重新编译程序。请注意在程序中重新定义的地图副本,因为您的副本刚刚更改,它将进行调整。

在生成的map-copybook中,查找map-field SG11128A(属性字节字段),将DFHBMDAS移至该字段,然后将文字“ '04 = PICK UP'”变暗。

可以在SDFHMAC库的本本DFHBMSCA中找到IBM字节属性。

记住,在BMS /汇编器中 icon_arrow.gif 没有标签,没有访问权限。谢谢您的支持.... icon_smile.gif
回到顶部
查看用户资料 发送私信
杜尼迪

新的用户


已加入:2012年3月2日
帖子:48
地点:印度

发布发表时间:2012年9月18日,星期二,12:17 pm
引用回复

感谢比尔的建议。

Nic,Robert,我知道Cobol中的引用修饰,并已使用了很长时间。我打算说,由于当前的问题,我在CICS命令中找不到类似的功能。 (将空格移动到整个字符串的一部分)。仍然感谢您的回复 icon_smile.gif
回到顶部
查看用户资料 发送私信
罗希特·乌马尔吉卡(Rohit Umarjikar)

全球主持人


已加入:2010年9月21日
帖子:2581
地点:美国纽约

发布发表:2012年9月18日,星期二,12:33 pm
引用回复

杜尼西

无论我和比尔建议什么,您为什么不尝试那部分呢?

地图的变化也是您的问题吗?您在考虑问题时在考虑参考修改的逻辑是什么?
回到顶部
查看用户资料 发送私信
杜尼迪

新的用户


已加入:2012年3月2日
帖子:48
地点:印度

发布发表:2012年9月18日,星期二,12:44 pm
引用回复

是的,Rohit,Atlast我需要在其他选项上更改地图。我提出了这篇文章,以了解将部分空间移至cics变量的所有功能。参考修改之所以出现,是因为在cobol程序中,通过使用它,我们将部分空间移动到变量。如果有任何可用的选项,我只能单独更改Cics程序,而不能映射。
回到顶部
查看用户资料 发送私信
罗希特·乌马尔吉卡(Rohit Umarjikar)

全球主持人


已加入:2010年9月21日
帖子:2581
地点:美国纽约

发布发表:2012年9月18日星期二下午12:49
引用回复

引用:
记住,在BMS /组装商中,没有标签,没有访问权限。谢谢您的支持....
回到顶部
查看用户资料 发送私信
迪克·谢勒

主持人荣誉


已加入:2006年11月23日
帖子:19245
位置:矩阵内部

发布发表:2012年9月18日,星期二,11:51 pm
引用回复

您好,

引用:
记住,在BMS /组装商中,没有标签,没有访问权限。谢谢您的支持....
好金达。 。 。可能是我误会了一些东西。

参考修改无非是汇编程序的移动,其中代码指定了指令中“ from”和“ to”存储位置以及指令中的长度,而不是由汇编程序根据“ field”的数据类型来确定。

正如我提到的那样,我可能会误解与特定问题相关的内容,但是我们写过任何通用代码的所有人都做了很多年了。
回到顶部
查看用户资料 发送私信
比尔·奥博伊尔

CICS主持人


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

发布发表:2012年9月19日星期三凌晨3:08
引用回复

迪克

如果没有在MAPSET中为此地图位置定义标签,则必须更新加载模块plus,您需要知道偏移量。

更新加载模块将是一个非常糟糕的主意。这就是为什么我建议添加标签并将生成的地图副本(SG11128A)中的label / field属性字节设置为ASKIP,DRK(DFHBMDAS)的原因。
回到顶部
查看用户资料 发送私信
迪克·谢勒

主持人荣誉


已加入:2006年11月23日
帖子:19245
位置:矩阵内部

发布发表:2012年9月19日星期三凌晨3:22
引用回复

谢谢比尔,

我的坏处是大脑逐渐衰弱。 。 。 icon_redface.gif

我忘记了目标实际上是地图。如果数据是在ds中构建的,可能会更好。当吊索代码是我的主要“工作”时,我在“临时字段”中工作,而不是在文件,数据库区域,地图等内部工作。 (为清楚起见进行了编辑)

正如我说的那样-“可能是我误会了一些东西。” D'oH。
(悄悄地离开码头……)


d
回到顶部
查看用户资料 发送私信
罗希特·乌马尔吉卡(Rohit Umarjikar)

全球主持人


已加入:2010年9月21日
帖子:2581
地点:美国纽约

发布发表:2012年9月20日,星期四,下午2:59
引用回复

迪克

我们只是想传达TS,在这种情况下无法进行参考修改。 icon_smile.gif
回到顶部
查看用户资料 发送私信
查看上一个主题 :: :: 查看下一个主题  
发表新话题   回复主题 查看书签
所有时间均为格林尼治标准时间+ 6小时
论坛索引 -> CICS

 


类似主题
话题 论坛 回覆
没有新帖 文件状态-可变长度39 COBOL程式设计 2
没有新帖 无法显示补偿变量 COBOL程式设计 4
没有新帖 如果数据元素为0,则将其映射到SPACES COBOL程式设计 2
没有新帖 IWS / TWS建立动态或可变APp ... IBM工具 0
没有新帖 确定哪个库成员在其中,... JCL和VSAM 9
搜索我们的论坛:


回到顶部