跌打滚爬中的小菜鸟...
分类: 其他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