请教一个cobol问题。。。

[abbaboy]

刚接触cobol不久，很多不懂的地方，cobol中有个用search 读数据的部分，好像读成一个类似数组结构的东东，请问，他是怎么个读取方式？为什么我做的数据文件他读后，最后一组总是99999999999
，并且，在search之后，他有个读取的key，这个key是怎么被设置的？我这里他怎么总是只取最后一条， 就造成总读取出来的都是9999999999 ， 非常郁闷。。。
望指教，谢谢

[abbaboy]

这么段代码：
SEARCH-RTN.
MOVE "OF" TO WK-SEARCH-ERR.
SET ZSSIX TO I-TRUE.
SEARCH SSC-TKDATA VARYING ZSSIX AT END
MOVE "ON" TO WK-SEARCH-ERR
GO TO SEARCH-EXT
WHEN SSC-TK-NS(ZSSIX) = ALL "9"
MOVE "ON" TO WK-SEARCH-ERR
WHEN RD-SS-CODE = SSC-TK-NS(ZSSIX)
MOVE SSC-HK-NS(ZSSIX) TO MFW-HAK-COD.
MOVE RD-SS-CODE (1:8) TO MFW-TKU-COD.
SEARCH-EXT.
EXIT.

[jinguliang]

search我没怎么接触过，去查查再回答

[zhenzhen1]

能看看你的表结构吗？这样只看search语句感觉有点困难。不太明白你要查表寻找什么。

要寻找表：SSC-TKDATA 里面的SSC-TK-NS等于RD-SS-CODE的数据，把相应的数据的1到8位放到MFW-TKU-COD里面。如果遇到全是9的数据则报error

你用的是位标法查询表，这个操作中的位标初值设成了I-TRUE，这一点我不太明白，没有实现位标加一的变化，只是search.

[ccccffff]

up