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

我如何验证字符字段具有(全部x"00")


IBM大型机论坛 -> PL / I和组装商
发表新话题   回复主题
查看上一个主题 :: 查看下一个主题  
作者 信息
拉格南

新的用户


已加入:2018年3月12日
帖子:2
地点:印度

发布发表于:2020年9月22日,星期二9:26 pm
引用回复

我正在尝试检查以下代码中的QID =''(CHAR(26)),并且输入中的值为All x“ 00”。现在,流程将流向其他部分,而不是流向其他部分。

然后我尝试分配QID =''检查NULL是否无效。有人可以帮我找到更好的解决方案吗?

我希望流程能够顺利进行。

输入:
码:
1 MI
  05 QID_IN       All x"00"

DCL QID_IN                 CHAR (26);
DCL QID_PTR      PTR INIT (ADDR(QID_IN));

DCL  (NULL) BUILTIN;

如果QID_IN_PTR = 空值则执行;   
         QID_IN = '';
 END;
如果QID_IN =''然后执行;
   CALL QO_COLLECT;
结束;
其他
   CALL QO_EXPO_STATUS;
结束;

为您编码-下次自己做
回到顶部
查看用户资料 发送私信
普里诺
警告:1

高级会员


已加入:2009年2月7日
职位:1241
地点:立陶宛维尔纽斯

发布发表于:2020年9月22日,星期二10:04 pm
引用回复

也许您应该从RTFM开始。

内置的NULL()函数与'00'x字符完全无关。同时,您还可以查看字符串重复因子或LOW()内置函数。

当您显然一无所知时,请勿在专家论坛上发帖。
回到顶部
查看用户资料 发送私信
查看上一个主题 :: :: 查看下一个主题  
发表新话题   回复主题 查看书签
所有时间均为格林尼治标准时间+ 6小时
论坛索引 -> PL / I和组装商

 


类似主题
话题 论坛 回覆
该主题已锁定:您无法编辑帖子或回复。 将字段名称传递给COBOL程序 COBOL程式设计 10
没有新帖 在COBOL创建中进行XML解析"h... COBOL程式设计 0
没有新帖 BMS映射长度字段大于零 CICS 3
没有新帖 将记录分解为各个字段,每个字段... 同步排序 2
没有新帖 同步排序错误-超出控制范围... 同步排序 10
搜索我们的论坛:


回到顶部