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

如何验证字母数字字段


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

新的用户


已加入:2006年9月20日
帖子:23
地点:钦奈

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

如何验证字母数字值。


我希望有效的前四个位置应为char,下一个6位应为数字。

例如01 pass-no 图片x(10)。

输入文件。

aaaa111111
abaa111111
aa111234

我想验证通行证编号。

输出文件(应该在其中具有有效的输入)
aaaa111111
abaa111111
回到顶部
查看用户资料 发送私信
亚鲁

高级会员


已加入:2007年7月3日
职位:1287
地点:印度金奈

发布发表:2008年6月11日,星期三,下午6:52
引用回复

Itdsen,

使用参考修改并检查NUMERIC或ALPHABETIC。
回到顶部
查看用户资料 发送私信
dbzTHEdinosauer

全球主持人


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

发布发表:2008年6月11日,星期三,下午6:56
引用回复

码:

01  pass-no.
      05  first-four-pass-no.
           10  1st-of-first-four     pic x(01).
                 88  valid              VALUES 'A' THRU 'I'
                                            ,  'J' THRU 'R'
                                            ,  'S' THRU 'Z'.
           10  2nd-of-first-four     pic x(01).
                 88  valid              VALUES 'A' THRU 'I'
                                            ,  'J' THRU 'R'
                                            ,  'S' THRU 'Z'.
           10  3rd-of-first-four     pic x(01).
                 88  valid              VALUES 'A' THRU 'I'
                                            ,  'J' THRU 'R'
                                            ,  'S' THRU 'Z'.
           10  4th-of-first-four     pic x(01).
                 88  valid              VALUES 'A' THRU 'I'
                                            ,  'J' THRU 'R'
                                            ,  'S' THRU 'Z'.
      05  last-six-pass-no         Pic 9(06).

如果在四分之一中有效

   在前四位中的第二位有效

   在四分之三有效

   在四分之四有效

   最后六遍无数字
然后
    everthing is valid
其他
   您没有有效的组合。
万一


字母数字是“ A”至“ Z”和“ 0”至“ 9”。
回到顶部
查看用户资料 发送私信
dbzTHEdinosauer

全球主持人


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

发布发表:2008年6月11日,星期三,下午6:57
引用回复

参考修改使该字段为字母数字,因此数值测试不起作用。
回到顶部
查看用户资料 发送私信
罗伯特·桑普

全球主持人


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

发布发表:2008年6月11日,星期三,9:01 pm
引用回复

我通过测试验证

IF MIXED-VAR(5:)数值
显示“数字通过”
其他
显示“数值失败”
万一。

执行时显示NUMERIC PASSED。只要基础数据结构不包含基本签名项,就没有理由不能在数字测试中使用引用修改字段。
回到顶部
查看用户资料 发送私信
亚鲁

高级会员


已加入:2007年7月3日
职位:1287
地点:印度金奈

发布发表:2008年6月12日,星期四,凌晨2:38
引用回复

罗伯特

引用:
只要基础数据结构不包含基本签名项,就没有理由不能在数字测试中使用引用修改字段。


好信息。谢谢。
回到顶部
查看用户资料 发送私信
star_dhruv2000

新的用户


已加入:2006年11月3日
帖子:87
地点:美国明尼苏达州普利茅斯

发布发表:2008年6月14日,星期六6:03 pm
引用回复

码:

01通过
     05 CHAR-VAL     PIC X(04).
     05 INT-VAL        PIC 9(06).

如果CHAR-VAL是字母的
   陈述性陈述
万一。

如果整数是数字,则
   祈使语句...
万一。


干杯 icon_biggrin.gif
快乐编码
回到顶部
查看用户资料 发送私信
马克思佩恩

新的用户


已加入:2007年12月13日
帖子:10
地点:上海

发布发表:2008年6月24日,星期二,下午1:52
引用回复

引用:

如果pass-no(1:4)是字母和pass-no(5icon_smile.gif 是数字
显示“写出”
其他
显示“忽略”
万一。
回到顶部
查看用户资料 发送私信
查看上一个主题 :: :: 查看下一个主题  
发表新话题   回复主题 查看书签
所有时间均为格林尼治标准时间+ 6小时
论坛索引 -> COBOL程式设计

 


类似主题
话题 论坛 回覆
没有新帖 字母数字到压缩十进制转换... COBOL程式设计 2
没有新帖 BIND jcl中的VALIDATE选项 DB2 2
该主题已锁定:您无法编辑帖子或回复。 Cobol使用s获取内容 COBOL程式设计 4
该主题已锁定:您无法编辑帖子或回复。 可以将字母数字数据移动到... COBOL程式设计 10
没有新帖 验证日期 DFSORT / ICETOOL 9
搜索我们的论坛:


回到顶部