Replacing 替换选项用于替换字符串字符。 语法 以下是替换选项的语法 − INSPECT input-string REPLACING ALL char1 BY char2. 使用的参数是 − input-string− 要将字符从 char1 替换为 char2 的字符串。 示例 IDENTIFICATION DIVISION.PROGRAM-ID.HELLO.DATADIVISION.WORKING-STORAGE SECTION.01WS-STRING PIC...
就是INSPECT REPLACING的缩写。INSPECT CS CONVERTING "EE" TO "00". 也可以加上BEFORE，AFTER。COBOL的课没上过，这是从网页上找到的，应该对你的问题有些用处，字面上理解就是对字符串CS里面，进行 字符替换 操作的一个语句，INSPECT A1 CONVERTING ' ' TO '%' AFTER '%'这个应该是...
INSPECT WS-STRING REPLACING ALL 'A' BY 'X'. DISPLAY "NEW STRING : "WS-STRING. STOP RUN. 复制 JCL执行上述 COBOL 程序。 //SAMPLE JOB(TESTJCL,XXXXXX),CLASS = A,MSGCLASS = C //STEP1 EXEC PGM = HELLO 复制 当您编译并执行上述程序时,它会产生以下结果 - OLD STRING : ABCDACDADE...
INSPECT A REPLACING ALL“AB”BY“XY” ALL“CD”BY“AB” 用XY替代AB,AB替代CD INSPECT A REPLACING LEADING SPACE BY ZERO BEFORE“**” 用0替代**之前的前缀为空格的前缀 如:A为_ _ 2_ 3**,替代后A为002_3** A为1_2_3_**,替代后A不变 INSPECT A REPLACING FIRST“+”BY“-“AFTER SPACE...
(3)INITALIZE 用来初始化组项或基本项。数据名为RENAME的子句不能被初始化。数字数据项由ZEROES代替。字母数字或字母数据项由SPACES 代替。如果我们包含REPLACING术语,则数据项可被初始化为给定替换值。 (4)INSPECT 检查语句,一般搭配VARYING进行使用,可以实现计数的功能。
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' BY 'B'. ...
REPLACING ALL 0 BY '-'. DISPLAY 'AFTER INSPECT :',TEST-STRING. STOP RUN. 该段代码执行后,将有如下输出信息。 BEFORE INSPECT : ADCD0A08B AFTER INSPECT : BDCD-B-8B 这种替换方式是对字符串中满足条件的全体字符进行的替换。并且替换后生成的新字符串覆盖了以前的符串。 2.对前缀字符进行替换 这种...
INSPECT WS-STRING REPLACING ALL 'A' BY 'X'. DISPLAY "NEW STRING : "WS-STRING. STOP RUN. JCL执行上面的COBOL程序。 //SAMPLE JOB(TESTJCL,XXXXXX),CLASS = A,MSGCLASS = C //STEP1 EXEC PGM = HELLO 编译并执行上述程序时,会产生以下结果 - ...
INSPECT CONVERTING 就是INSPECT REPLACING的缩写。 INSPECT CS CONVERTING "EE" TO "00". 也可以加上BEFORE,AFTER。 STRING 将几个字符串合并成一个字符串。 STRING A DELIMITED BY SPACE," !" DELIMITED BY SIZE INTO C.假设A中的内容是"HELLO",则结果是"HELLO !". ...
INSPECTREPLACING 用另一个字符串替换这个字符串。 还用上面的例子。 INSPECTCSREPLACINGALL"E"BY"Y". 结果"RYYLWHYYL" INSPECTCSREPLACINGCHARACTERSBY"Z"AFTER "L". 结果"REELZZZZZ" ...