将空间部分移到Map变量中

杜尼迪 · 发表：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） · 发表：2012年9月17日星期一7:00 pm

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

我可能不知道其他选择，但这就是我能想到的。

杜尼迪 · 发表：2012年9月17日星期一7:40 pm

感谢Rogit您的答复。

是的，这也是我以前的想法（通过使用DRK属性为该字符串声明一个变量来修改map）。但是我当时在考虑不要更改Map定义，而只是更改CICS程序以将空格部分移到String位置，这样pgm的重新编译就足够了。我没有在cobol中找到任何类似参考修改的选项。

尼克·克劳斯顿

罗伯特·桑普

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

比尔·伍德格

比尔·奥博伊尔

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

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

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

记住，在BMS /汇编器中

没有标签，没有访问权限。谢谢您的支持....

杜尼迪

感谢比尔的建议。

Nic，Robert，我知道Cobol中的引用修饰，并已使用了很长时间。我打算说，由于当前的问题，我在CICS命令中找不到类似的功能。（将空格移动到整个字符串的一部分）。仍然感谢您的回复

罗希特·乌马尔吉卡（Rohit Umarjikar）

杜尼西

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

地图的变化也是您的问题吗？您在考虑问题时在考虑参考修改的逻辑是什么？

杜尼迪

是的，Rohit，Atlast我需要在其他选项上更改地图。我提出了这篇文章，以了解将部分空间移至cics变量的所有功能。参考修改之所以出现，是因为在cobol程序中，通过使用它，我们将部分空间移动到变量。如果有任何可用的选项，我只能单独更改Cics程序，而不能映射。

罗希特·乌马尔吉卡（Rohit Umarjikar）

迪克·谢勒

您好，

比尔·奥博伊尔

迪克

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

更新加载模块将是一个非常糟糕的主意。这就是为什么我建议添加标签并将生成的地图副本（SG11128A）中的label / field属性字节设置为ASKIP，DRK（DFHBMDAS）的原因。

迪克·谢勒

谢谢比尔，

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

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

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

d

罗希特·乌马尔吉卡（Rohit Umarjikar）

迪克

我们只是想传达TS，在这种情况下无法进行参考修改。