INTO OUTPUT-LINE. INSPECT OUTPUT-LINE REPLACING ALL "_" BY SPACES. DISPLAY OUTPUT-LINE PAYMENT-OUT. MOVE "OK" TO CALL-FEEDBACK. GOBACK. 子例程 COBVALU *** * COBVALU * * * * A simple subprogram that calculates present value * * for a series of cash flows. * * * *** IDENTIFICAT...
为了提高COBOL程序的效率和可维护性,开发者可以采用一些最佳实践。例如,在编写循环时,使用INSPECT语句来处理字符串操作,这比传统的循环更加高效。此外,合理利用SEARCH语句可以在数组中快速查找特定值,减少不必要的迭代次数。这些技巧不仅有助于提升程序性能,还能让代码更加整洁易读。 2.3 COBOL错误处理与调试 在开发过程中...
STRING "COBVALU:_Present_value_for_rate_of_" INTEREST-IN "_given_amounts_" BUFFER-ARRAY (1) ",_" BUFFER-ARRAY (2) ",_" BUFFER-ARRAY (3) ",_" BUFFER-ARRAY (4) ",_" BUFFER-ARRAY (5) "_is:_" DELIMITED BY SPACES INTO OUTPUT-LINE. INSPECT OUTPUT-LINE REPLACING ALL "_" BY ...
1 第四章COBOL常用语句 MOVE语句STOP语句ACCEPT语句DISPLAY语句PERFORM语句文件操作语句REDEFINE语句STRING和UNSTRING语句INSPECT语句 DUT 2 MOVE语句 DUT MOVE语句相当于赋值语句，可以将常量或一个数据项的内容传送到另一数据项，例如：MOVEMOVEMOVEMOVE‘IBM’TOCOMPANY10TOCOUNTZERO...
INSPECT A REPLACING ALL ‘X’ BY ‘A’. ·将字符串A中所有的‘X’字符替换成‘A’. 还可以在最后加BEFORE‘X’或AFTER‘X’,即在某一字符前或后的查找或替换。 8、字符串操作语句STRING,UNSTRING a. STRING A, B, C DELIMITED BY SIZE INTO D . ·将字符串A, B, C按它们定义长度连接赋给变量...
INSPECT CS CONVERTING "EE" TO "00". 也可以加上BEFORE,AFTER。 实例: 更多例子 IF判断 IF语句 IF CONDITION THEN STATEMENTS1/NEXT SENTENCE ELSE STATEMENTS2 END-IF/NEXT SENTENCE/ENDIF NEXT SENTENCE将跳出IF操作语句执行下一条语句。 IF语句中不要使用.句号。.句号将结束所有IF语句。要结束一个嵌套的IF语...
(INSPECT) ( 1/p157) 1.累计一个指定的字符出现的次数 2.用一个指定的字符去代替另一个指定的字符 3.通过指定某些字符来限制上述检查的区间 INSPECT CARD-RECORD TALLYING N FOR ALL ‘_ ‘. 检查字符串中空格的个数,放入N INSPECT CARD-RECORD REPLACING ALL SPACE BY ‘,’每找到一个空格,就用逗号...
方法主要有3种:最简单且最常用的方法是使用两个特殊字符“<%”和“%>”,只要在使用的VBScipt脚本语句前后加上它们即可,例如:<%Response.write"VBScipt脚本"%>。 第二种方法是在特定的主页中指定主要的脚本语言,要将这种语言名称直接放在ASP程序的第一行,例如: ...
??? 如果使用no advancing选项,则输出最后一个字符后输出设备仍然保持原位,使下一条display语句还在该位置显示。否则可能到下一行显示。 INITIALIZE ??? 初始化数据,数字和数字编辑数据项初始化为0,其他初始化为空格。 INSPECT TALLYING ??? 计算项目中该字符串出现的次数。 ??? INSPECT AA TALLYING BB FOR ...