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...
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...
去掉了 STRING 语句的基本用法 DATA DIVISION WORKING-STORAGE SECTION.01 FIRST-NAME PIC X(10).01 LAST-NAME PIC X(10).01 FULL-NAME PIC X(20).PROCEDURE DIVISION.MOVE 'ADAM' TO FIRST-NAME.MOVE 'SMITH' TO LAST-NAME.STRING FIRST-NAME DELMITED BY SPACE ' ' DELIMITED BY SIZE LAST...
FULL NAME :ADAM SMITH 以上为STRING 语句的基本格式。其中每项用于合并的字符串后面都要加上DELIMITED BY 语句。DELIMITED BY 子句后面有两个选项,分别为SPACE和SIZE。 SPACE:找到前面用于合并的字符串中第一个出现空格的地方。将该空格以前的部分进行合并,空格以后的内容包括该空格在内不参与合并操作。 SIZE:将前面...
使用STRING函数:使用STRING函数可以将字符串中的空格替换为空,然后再对替换后的字符串进行TRIM操作,即可去掉末尾的空格。示例代码如下: 01 MY-STRING PIC X(10) VALUE 'COBOL '. 01 RESULT-STRING PIC X(10). MOVE SPACES TO RESULT-STRING. STRING MY-STRING DELIMITED BY SPACE INTO RESULT-STRING ON OVERFL...
01 WS-STRING PIC A(30) VALUE 'WELCOME TO TUTORIALSPOINT'. 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...
STOP RUN. 输出结果:FIRST NAME :ADAMLAST NAME :SMITHFULL NAME :ADAM SMITH 以上为STRING 语句的基本格式。其中每项用于合并的字符串后面都要加上DELIMITED BY 语句。DELIMITED BY 子句后面有两个选项,分别为SPACE和SIZE。SPACE:找到前面用于合并的字符串中第一个出现空格的地方。将该空格以前的部分进行合并,空格...
'COBOL' DELIMITED BY SPACE 'is a powerful language.' DELIMITED BY SIZE INTO RESULT-STRING. DISPLAY 'Result: ' RESULT-STRING. STOP RUN. 上述代码中,首先使用MID函数从SOURCE-STRING中提取了前5个字符,将结果存储在SUBSTRING变量中。然后使用STRING语句将多个字符串连接起来,包括SOURCE-STRING、SUBSTRING、...
NEW STRING : XBCDXCDXDEXXXFF String 字符串动词用于连接字符串。 使用STRING语句,可以组合两个或多个字符串以形成更长的字符串。 'Delimited By'条款是强制性的。 Syntax 以下是String动词的语法 - STRING ws-string1 DELIMITED BY SPACE ws-string2 DELIMITED BY SIZE ...
WS-STRING : WelcomeToTutorialspoint WS-COUNT : 25 解弦 Unstring动词用于将一个字符串拆分为多个子字符串。必填的By子句是强制性的。 句法 以下是Unstring动词的语法- UNSTRING ws-string DELIMITED BY SPACE INTO ws-str1, ws-str2 WITH POINTER ws-count ON OVERFLOW DISPLAY message NOT ON OVERFLOW DISP...