FIRST-NAME DELIMITED BY SAPCE ' ' DELIMITED BY SIZE LAST-NAME DELIMITED BY SPACE INTO FULL-NAME. 其中:DELIMITED BY的SPACE选项用于截掉字符串前后的空格。 SIZE用于将合并的字符串全部内容合并 ' ' DELIMITED BY SIZE:是在FULLname中添加一个空格 3、相应的UNSTRING语句拆分字符串 UNSTRING FULL-NAME DELI...
DELIMITED BY DEC-POINT ：这是对DELIMITED BY 子句的延伸。在上一小节STRING 的基本用法里只讲了在BY 的后面接上SIZE 或SPACE 选项。而此处BY 后面接的是一个变量名称，该变量的内容为一个小数点。因此这里是将REIMBURSE 变量中小数点以前的部分进行截取并用于合并。实际上，BY 后可接任何一个变量，并且将该...
01 WS-STRING PIC A(30) VALUE 'WELCOME TO IOWIKI'. 01 WS-STR1 PIC A(7). 01 WS-STR2 PIC A(2). 01 WS-STR3 PIC A(15). 01 WS-COUNT PIC 99 VALUE 1. PROCEDURE DIVISION. UNSTRING WS-STRING DELIMITED BY SPACE INTO WS-STR1, WS-STR2, WS-STR3 END-UNSTRING. DISPLAY 'WS-STR1...
MOVE ".12 5 " TO INPUT-1. UNSTRING INPUT-1 DELIMITED BY "," OR ALL " "VALU1INTO INTEREST-IN NO-OF-PERIODS-IN. * Convert to numeric values COMPUTE INTEREST = FUNCTION NUMVAL(INTEREST-IN).VALU2COMPUTE NO-OF-PERIODS = FUNCTION NUMVAL(NO-OF-PERIODS-IN). * Get cash flows PERFORM G...
COBOL知识点集锦（上）cobol知识点集锦COBOL数据类型 计息是银行的一项重要业务，包括日常代理客户收、付计算客户利息和年度计息等。目前，这些工作大多数是在IBM ES9000主机的SAFE应用系统平台上进行，该系统联机程序和联机计息程序是用IBM370汇编语言实现的。为方便汇编语言读写，在VSAM文件存储的数据中，数据存放格式...
UNSTRING STRING-VARIABLE DELIMITED BY 'EF' INTO SUBSTRING-VARIABLE1, SUBSTRING-VARIABLE2. 复制代码 在上面的例子中,SUBSTRING-VARIABLE1将包含字符串’ABCD’,SUBSTRING-VARIABLE2将包含字符串’GHIJ’。 这些都是COBOL中常用的截取字符串的方法。具体使用哪种方法取决于你的需求和程序的结构。 0 赞 0 踩最新...
字符串cobolunstringstringdelimitedtallying COBOL字符串处理 在COBOL字符串处理语句⽤来做串多个功能操作。以下是字符串处理语句: Inspect String Unstring Inspect Inspect动词是⽤来计数或替换字符串中的字符。字符串操作都可以在字母,数字或字 母值执⾏。从左到右执⾏检查操作。是⽤于字符串操作的选项如下...
WS-STRING : WelcomeToTutorialspoint WS-COUNT : 25 Unstring Unstring 动词用于将一个字符串拆分为多个子字符串。 Delimited By 子句是强制性的。 语法 以下是 Unstring 动词的语法 − UNSTRING ws-string DELIMITED BY SPACE INTO ws-str1, ws-str2 WITH POINTER ws-count ON OVERFLOW DISPLAY message NOT...
1 第四章COBOL常用语句 MOVE语句STOP语句ACCEPT语句DISPLAY语句PERFORM语句文件操作语句REDEFINE语句STRING和UNSTRING语句INSPECT语句 DUT 2 MOVE语句 DUT MOVE语句相当于赋值语句，可以将常量或一个数据项的内容传送到另一数据项，例如：MOVEMOVEMOVEMOVE‘IBM’TOCOMPANY10TOCOUNTZERO...
UNSTRING TEST DELIMITED BY "," INTO CITY,ZIP. 执行结果CITY值是NEW YORK.ZIP的值是NY 10017。 INSPECT INSPECT TALLYING 计算项目中该字符串出现的次数。 INSPECT AA TALLYING BB FOR ALL “EE”. 从AA中查找有多少个EE,将个数写入BB。 INSPECT AA TALLYING BB FOR CHARACTERS BEFORE “E”. 从AA中查...