cobol - COBOL field validation using EXAMINE verb

Question

I have a field in my CICS BMS map as email-id. I want to validate that field for various validations such as it should contain only 1 '@' character and only 1 '.co.in' or '.com' otherwise user should be prompted to enter a valid email-id.

1. I have tried working on it with EXAMINE verb but it is just working for '@' validation. Somehow it is not working for '.co.in' or '.com'. I think, I am going wrong somewhere.
2. Problem is in EXAMINE verb I can't use different counter for every field. So I want to know how to validate multiple strings using examine verb.

Answer 1

尝试检查/统计。或者编写一个简单的有限状态机子程序，从文本字段中解析出 [A-Za-z0-9]@[A-Za-z0-9].[A-Za-z]。