cobol - 读取平面文件。使用 COBOL 检索特定行

Question

我有一个这样的平面文件:

1|sal|manager|2007/01/01|2007/12/31
2|sal|manager|2008/01/01|2008/12/31
3|per|abc|manager
4|sal|manager|2007/01/01|2007/12/31
5|per|xyz|ceo

我必须使用 COBOL 读取文件，并将包含字符串 sal 的行写入临时文件。

unstring 是一个好的选择吗？请建议我解决此问题的方法。

提前致谢。

Answer 1

您是否考虑过使用 INSPECT ？以下内容也适合您...

MOVE ZERO TO COUNTER  
INSPECT INPUT-RECORD TALLYING COUNTER FOR ALL '|SAL|'  
IF COUNTER > ZERO  
   write to temp file  
END-IF   

COUNTER 是一些用于接收计数的数字工作存储变量在中找到的字符串 |SAL| 的非重叠出现次数输入记录。