INSPECT REPLACING
用另一个字符串替换这个字符串。
CS 为"REELWHEEL"
还用上面的例子。
INSPECT CS REPLACING ALL "E" BY "Y". 结果"RYYLWHYYL"
INSPECT CS REPLACING CHARACTERS BY "Z" AFTER "L". 结果"REELZZZZZ"
INSPECT CS REPLACING LEADING "E" BY "Y". 结果不变
INSPECT CS REPLACING LEADING "E" BY "Z" AFTER "H". 结果"REELWHZZL"
INSPECT CS REPLACING FIRST "E" BY "I". 结果"RIELWHEEL"
INSPECT CS REPLACING FIRST "EE" BY "00",ALL "WH" BY "TH",CHARACTERS BY SPACE. 结果" 00 TH "
INSPECT CONVERTING
就是INSPECT REPLACING的缩写。
INSPECT CS CONVERTING "EE" TO "00". 也可以加上BEFORE,AFTER。
COBOL的课没上过,这是从网页上找到的,应该对你的问题有些用处,字面上理解就是对字符串CS里面,进行 字符替换 操作的一个语句,
INSPECT A1 CONVERTING ' ' TO '%' AFTER '%'
这个应该是在A1字符串里面,在第一个'%'后,把所有的' '用'%'替换。
这个不是标准的INSPECT用法,按照ANSI标准,是没有这个用法的(ANSI里面有REPLACING),应该是厂商的扩展。
不过这句话也很容易理解,就是:
检查A1这个字符串,把 % 后面的空格都置换成 % 。
这个用法是合法的