我有一个像这样的平面文件: 1|sal|manager|2007/01/01|2007/12/312|sal|manager|2008/01/01|2008/12/313|per|abc|manager4|sal|manager|2007/01/01|2007/12/315|per|xyz|ceo 我必须使用COBOL读取文件,并将具有字符串sal的行写
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是一个不错的选择吗?请建议我解决这个问题的方法.
提前致谢.
你考虑过使用 INSPECT吗?以下内容对您也有用…MOVE ZERO TO COUNTER INSPECT INPUT-RECORD TALLYING COUNTER FOR ALL '|SAL|' IF COUNTER > ZERO write to temp file END-IF
COUNTER是一个用于接收计数的数字工作存储变量字符串| SAL |的非重叠出现次数在发现INPUT-RECORD.