RPGIV编程技巧（10）如何判断数组有非法字符？

RPGIV编程技巧（10）如何判断数组有非法字符？

 

如果这个数组是数字型的：

 

     moniter；
      do <= 数组维数 ;
            do <= 数组维数 ;
               ....
               = + 1;
            enddo;
            on-error;
               //提示退出，有非数字型内容。
       enddo；

 

如果是字符型：

 

d                   ds
d                          10              dim(100)
d                       1000              overlay（）
 *
d                                              5s 0
 *
d lo                            c                               c                 'abcdefghijklmnopqrstuvwxyz' 
d hi                            c                 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
d digits                        c                 '0123456789'
  *
     ......
     //把字符串内容有小写字母都转为大写字母
     = %xlate(lo:hi:c@string);

     = 1;
     dow <>  ;
        = %check(hi:c@string:s@pos);
        = %check(digits:c@string:s@pos);

        = ;

     enddo;

     ....

     如果 = ,说明有非法字符。