rpgiv中如何检查一个字符属性的字段中，输入的都是数字？

V01619

做了一个输入类型的子文件，由于一栏中输入的数字长度都不一致，
所以设置了一个文字型的字段，在里面输入数字。
有没有函数，可以检测输入的值是0~9，
而不是其它字符？

mamei

手头没有机器，没有办法测试

设想：

定义一个0-9的字符串，

用%checkr应该可以实现！

rolexliu

Move到一个(9,0)的数字变量试试, 在monitor message哈哈 lol

insmile

定义一个常量C_CHAR，值为‘0123456789’

C_CHAR     CHECK     AAA                  90


判断指示器90就知道了

passthru

补充rpgiv自由格式：

d s_Pos                   s                   5 0  inz
d s_Pos2                 s                   5 0  inz(1)
d c_Digit                  s                  10    inz('0123456789')
/free
       ....
       //如果字符变量是C_String
       s_Pos = %check(c_Digit:C_String:1) ;
       if s_Pos > 0 ;
            // 存在数字
        ...
       else ；
        //没有数字
    endif ；

    //如果有多个数字
      do ;
            s_Pos = %check(c_Digit:C_String:s_Pos2) ;
            if s_Pos > 0
               //判断数字处理
               s_Pos2 = s_Pos ;
            else ；
          leave ；
       endif ；
    enddo ；
    ....
/end-free