INSPECT CONVERTING 就是INSPECT REPLACING的缩写。INSPECT CS CONVERTING "EE" TO "00". 也可以加上BEFORE，AFTER。COBOL的课没上过，这是从网页上找到的，应该对你的问题有些用处，字面上理解就是对字符串CS里面，进行 字符替换 操作的一个语句，INSPECT A1 CONVERTING ' ' TO '%' AFTER...
cobol知识点集锦COBOL数据类型 计息是银行的一项重要业务，包括日常代理客户收、付计算客户利息和年度计息等。目前，这些工作大多数是在IBM ES9000主机的SAFE应用系统平台上进行，该系统联机程序和联机计息程序是用IBM370汇编语言实现的。为方便汇编语言读写，在VSAM文件存储的数据中，数据存放格式进行了特殊的定义。如日期...
INSPECT SOURCE-STRING REPLACING FIRST '*' BY '$'. DISPLAY 'AFTER INSPECT:'SOURCE-STRING. STOP RUN. 对全体数据进行替换:INSPECTSOURCE-STRINGREPLACING ALL'A' BY 'B'. 对开始数据进行替换:INSPECTSOURCE-STRINGREPLACING LEADING'A' BY 'B'. 对首个字符进行替换:INSPECTSOURCE-STRINGREPLACING FIRST'A' B...
INSPECT TEST-STRING REPLACING LEADING 0 BY '*'. DISPLAY 'AFTER INSPECT :',TEST-STRING. STOP RUN. 该代码执行后,将有如下输出信息。 B 9、EFORE INSPECT :0000567.90 AFTER INSPECT :*567.90 通过以上代码可以发现,使用LEADING选项只是对前缀字符进行了替换。这里的前缀字符是从字符串开头处连续出现的一串字符...
INSPECT REPLACING 用另一个字符串替换这个字符串。 还用上面的例子。 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 REPLACING 用另一个字符串替换这个字符串。 还用上面的例子。 INSPECT CS REPLACING ALL "E" BY "Y". 结果"RYYLWHYYL" INSPECT CS REPLACING CHARACTERS BY "Z" AFTER "L". 结果"REELZZZZZ" INSPECT CS REPLACING LEADING "E" BY "Y". 结果不变 ...
REPLACING LEADING 0 BY '*'. DISPLAY 'AFTER INSPECT :',TEST-STRING. STOP RUN. 该代码执行后,将有如下输出信息。 BEFORE INSPECT :0000567.90 AFTER INSPECT :***567.90 通过以上代码可以发现,使用LEADING选项只是对前缀字符进行了替换。这里的前缀字符是从字符串开头处连续出现的一串字符。因此,即使原字符串中...
INSPECTREPLACING用另一个字符串替换这个字符串。还用上面的例子。INSPECTCSREPLACINGALL"E"BY"Y".结果"RYYLWHYYL"INSPECTCSREPLACINGCHARACTERSBY"Z"AFTER"L".结果"REELZZZZZ"INSPECTCSREPLACINGLEADING"E"BY"Y".结果不变INSPECTCSREPLACINGLEADING"E"BY"Z"AFTER"H"....
INSPECT REPLACING 用另一个字符串替换这个字符串。 还用上面的例子。 INSPECT CS REPLACING ALL E BY Y. 结果RYYLWHYYL INSPECT CS REPLACING CHARACTERS BY Z AFTER L. 结果REELZZZZZ INSPECT CS REPLACING LEADING E BY Y. 结果不变 INSPECTCSREPLACINGLEADINGEBYZAFTER H. 结果REELWHZZL INSPECT CS ...
INSPECT REPLACING 用另一个字符串替换这个字符串。 还用上面的例子。 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 ...