chain

Source:

FMT FX FFilename++IPEASF.....L.....A.Device+.Keywords+++++++++++++++++++++

        *************** Beginning of data *********************************

0001.00 FITEMLMAS  IF   E           K DISK                                

0002.00                                                                   

0003.00 D RecKey          DS                  LikeRec(ITEMASEA:*key)      

0004.00                                                                    

0005.00  /free                                                            

0006.00   // set key then chain                                           

0007.00   Read ITEMASEA;                                                  

0008.00   Eval RecKey.Itnbr='A10020-24      '; //后面的空格不写也可以                           

0009.00   Eval RecKey.Recid='A';                                          

0010.00   Dsply RecKey;                                                   

0011.00   //Chain ('A10020-24      ':'A') ITEMASEA;                       

0012.00   Chain %kds(Reckey) ITEMASEA;                                    

0013.00   If %found;                                                      

0014.00     Dsply 'Found the A144243-1';                                   

0015.00   Endif;                                                          

0016.00                                                                   

0017.00   Eval *inlr=*on;                                                 

0018.00   Return;                                                         

0019.00  /end-free                                                        

有两点要注意啊
1. 定义key DS的方法
2. 组合key在使用Chain时需要使用%kds函数.否则会有如下报错信息

  Msg id  Sv Number Seq     Message text                                             

 *RNF7078 30     87 001100  Length of Factor 1 is not the same as the first key field