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

COBOL:如何调用字段中的第n个数字


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

新的用户


加入:2005年6月15日
帖子:2
地点:萨默塞特郡

发布发表:2011年6月21日,星期二,晚上8:57
引用回复

你好朋友,

我在将此字段从输入应用程序映射到我的代码时感到困惑。
您可以将我的接收字段视为CONTENT X

05你好发生25次。
10 SAYONARA图片9值0。
10 NAMASTE PIC X(03)。

如何映射这个?

如果在任何情况下NAMASTE(3:1)为'A',则拉相应的SAYONARA字段?

我在声明NAMASTE字段时感到困惑

谢谢你的帮助。

里彭
回到顶部
查看用户资料 发送私信
比尔·伍德格

主持人荣誉


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

发布发表:2011年6月21日,星期二,9:02 pm
引用回复

码:
05你好发生25次。
10 SAYONARA图片9值0。
10纳玛斯特。
     15  FILLER PIC XX.
     15 NAMASTE-SAYONARA需要检查 PIC X.
回到顶部
查看用户资料 发送私信
dbzTHEdinosauer

全球主持人


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

发布发表:2011年6月21日,星期二,9:12 pm
引用回复

实施条件名称(88级)
  • 使代码更易于理解
  • 无需在“程序分部”中使用文字。

码:

05 你好发生了25次。
    10  SAYONARA                             PIC 9 VALUE 0.
    10  NAMASTE.
        15  FILLER PIC XX.
        15 NAMASTE-SAYONARA需要检查    PIC X.
           88 VALUE-IS-A-PULL-SAYONARA      VALUE 'A'.
回到顶部
查看用户资料 发送私信
比尔·伍德格

主持人荣誉


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

发布发表:2011年6月21日,星期二,9:27 pm
引用回复

我当然同意,dbz。

我希望没有人会向TS展示如何为参考修改添加字幕/索引,以便他们可以使用文字。

1)自己检查一下,这样您就会知道在需要时如何使用它(不适用于此类情况)。
2)使用88,就像dbz指出的那样。如果您不打算引用PIC X字段,则可以将其设置为FILLER,这样没人会想知道为什么不使用该字段。

等等,等等-你看了吗?
回到顶部
查看用户资料 发送私信
dbzTHEdinosauer

全球主持人


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

发布发表:2011年6月21日,星期二,9:37 pm
引用回复

是的,我确实看过;无法自拔。
引用按钮使阅读文章变得非常容易,
并了解BBCode的工作原理。

您当然不认为我会放弃回应的机会?
回到顶部
查看用户资料 发送私信
阿努·达万(Anuj Dhawan)

高级会员


已加入:2006年4月22日
帖子:6250
地点:印度孟买

发布发表:2011年6月22日,星期三,下午3:26
引用回复

另一方面,我正在考虑用于演示该示例的“变量名称”:

您好-大家都知道。
SAYONARA-日本的告别方式。
Namaste-印度说“你好”或“再见”的方式。

抱歉,迪克...icon_wink.gif
回到顶部
查看用户资料 发送私信
dbzTHEdinosauer

全球主持人


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

发布发表:2011年6月22日,星期三3:30 pm
引用回复

阿努·达万写道:
抱歉迪克


没问题。
回到顶部
查看用户资料 发送私信
马索

REXX主持人


已加入:2006年3月13日
帖子:1348
地点:以色列

发布发表:2011年6月22日,星期三7:00 pm
引用回复

TS可能对同时使用OCCURS和参考修改感到困惑。
我打开了COBOL语言参考,寻找“参考修改”。的 第三个例子 提供了明确的答案。
回到顶部
查看用户资料 发送私信
dbzTHEdinosauer

全球主持人


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

发布发表:2011年6月22日,星期三7:09 pm
引用回复

像往常一样出色的Marso职位。
回到顶部
查看用户资料 发送私信
比尔·伍德格

主持人荣誉


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

发布发表:2011年6月22日,星期三,下午7:17
引用回复

没那么容易... :-)

在这种情况下,我们不希望他使用带下标的引用修改,因为您不能在其上放置88级,并且我们不喜欢过程分部中的文字(我们是dbz吗?)。不过,对他来说是完美的链接。
回到顶部
查看用户资料 发送私信
dbzTHEdinosauer

全球主持人


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

发布发表:2011年6月22日,星期三,8:16 pm
引用回复

好吧,比尔,你赢了。您可以发表最后一篇文章。
回到顶部
查看用户资料 发送私信
马索

REXX主持人


已加入:2006年3月13日
帖子:1348
地点:以色列

发布发表:2011年6月22日,星期三,晚上8:44
引用回复

最后发布?嘿,等等!我还没完蛋! icon_smile.gif

技术上,我想我得到了正确的答案。
但是“引用修改/ 88级/文字”问题也很有趣,也许可以通过以下方法解决:
码:
特殊名称。                 
   SAYONARA-PULL类为'A'。


    IF NAMASTE (SUBSCR) (3:1)然后是SAYONARA-PULL
        pull sayonara
    ELSE
        don't pull
    END-IF
仍然使用参考修改,因为毕竟不必将字段切成小块,这很不错,
但不需要级别88,也不需要PD中的文字。
这可以接受吗?
回到顶部
查看用户资料 发送私信
比尔·伍德格

主持人荣誉


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

发布发表:2011年6月22日,星期三,9:04 pm
引用回复

喜欢
回到顶部
查看用户资料 发送私信
比尔·伍德格

主持人荣誉


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

发布发表:2011年6月22日,星期三10:48 pm
引用回复

不得不说我确实更喜欢dbz的解决方案。数据部门中的所有定义都明确了必要时各个字段的含义(否则为FILLLER,因此很明显仅测试了该字段)。

W-h-a-t d-o y-o-u t-h-i-n-k,dbz?
回到顶部
查看用户资料 发送私信
dbzTHEdinosauer

全球主持人


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

发布发表:2011年6月23日,星期四,上午1:01
引用回复

我竭尽全力按顺序生成所需的数据布局
避免参考修改
在我发布的模块中。

老实说,我的个人模块(实用程序等)
看起来像汇编程序-仅使用cobol编译器进行编译。

所以,这是其中之一 照我说的做,而不是我做
回到顶部
查看用户资料 发送私信
查看上一个主题 :: :: 查看下一个主题  
发表新话题   回复主题 查看书签
所有时间均为格林尼治标准时间+ 6小时
论坛索引 -> COBOL程式设计

 


类似主题
话题 论坛 回覆
该主题已锁定:您无法编辑帖子或回复。 将字段名称传递给COBOL程序 COBOL程式设计 10
没有新帖 COBOL性能调整 COBOL程式设计 6
没有新帖 JCL用于替换Cobol中的代码 JCL和VSAM 7
没有新帖 COBOL VS SORT实用程序,用于文件格式... COBOL程式设计 6
没有新帖 在COBOL创建中进行XML解析"h... COBOL程式设计 0
搜索我们的论坛:


回到顶部