Chinaunix首页 | 论坛 | 博客
  • 博客访问: 354738
  • 博文数量: 90
  • 博客积分: 847
  • 博客等级: 准尉
  • 技术积分: 1373
  • 用 户 组: 普通用户
  • 注册时间: 2012-08-02 10:54
个人简介

跌打滚爬中的小菜鸟...

文章分类

全部博文(90)

文章存档

2015年(5)

2013年(47)

2012年(38)

我的朋友

分类: 其他UNIX

2013-09-18 15:46:13

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

阅读(1212) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~