相关疑难解决方法(0)

接受cics地图中的字符的数字字段

我的地图中有4个字段,分别是9(6),9(3),9(3),9(3).我写了这样的验证码:

IF ROLLNUM IS NOT NUMERIC                          
MOVE DFHRED TO ROLLNUMC                         
MOVE 'INVALID DATA' TO RESMSGO                  
MOVE ROLLNUMI TO ROLLNUMO                       
PERFORM SEND-MAP THRU SEND-MAP-EXIT             
PERFORM KEY-VALIDATION THRU KEY-VALIDATION-EXIT.
Run Code Online (Sandbox Code Playgroud)

但是,从Cics中将A12AK等值插入数据库时​​,我没有遇到任何错误.它将A替换为1,B替换为2,依此类推......为什么会发生这种情况?以及如何避免这种情况

db2 cobol cics

0
推荐指数
1
解决办法
1649
查看次数

标签 统计

cics ×1

cobol ×1

db2 ×1