这个问题想得我有点头疼，谁能帮帮我

ll250240868

比如说，一个变量是    12345    另一个45678    他们的交际 就是4和5 用as400怎摸能判断出来
比如说，一个变量是    12345    另一个23    他们的交际 就是2和3用as400怎摸能判断出来

ll250240868

ll250240868

没人知道吗

insmile

一个一个的比较

passthru

刚才试了一种算法，应该可以（没有严格检查），你再试试。

d C_str1          s            100    inz('123459') varying  
d C_str2          s            100    inz('945678') varying  
d C_strTaget      s            100    inz                    
d C_str           s            100    inz                    
d s_n             s              5s 0 inz                    
d i               s              5s 0 inz                    
d s_j            s              5s 0 inz
  *
  /free
       C_str = C_str2 ;                       
       for i= 1 by 1 to %len(C_str1) ;        
          s_n = %check(C_str1:C_str:i) ;      
                              
          if s_n > 1;                        
            C_str1 = %subst(C_str1:s_n:2) ;  
            s_j = %scan(C_str1:C_str:1) ;   
            if s_j > 0 ;                     
               C_strTaget = C_str1 ;         
            endif;                           
          endif;                              
          C_str = C_str2 ;                    
      endfor;                                
                                          
     *inlr = *on;                        
     return;                              
                                          
/end-free

passthru

应该不用for也可以。中午刚吃完饭犯困，偷懒一下不再测试了。

ll250240868

回复 5# passthru


    你这是le的阿，我只能用rpg的，写不了啊 ，

passthru

如果你是用os400 v3r6以上的版本，可以使用rpgle后缀的代码。或者，也可以在rpg后缀的代码中使用我上面的代码。

rpgle后缀与rpg后缀的代码区别是后者是OPM模式的代码。自由格式在两者后缀的代码是一样的。

NINERI

将变量A MOVE 一个数组 AR1

开始循环
AR1,X CHECK 变量B
找到就记录下 AR1,X
END

ll250240868

回复 8# passthru


    我是新手，有点迷糊。。。。。