cobol拼接字符串--STRING 语句的基本用法

2019-04-15 13:05发布

一、 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-NAME DELIMITED BY SPACE
INTO FULL-NAME.
DISPLAY 'FIRST NAME :',FIRST-NAME.
DISPLAY 'LAST NAME :',LAST-NAME.
DISPLAY 'FULL NAME :',FULL-NAME.
STOP RUN.

输出结果:
FIRST NAME :ADAM
LAST NAME :SMITH
FULL NAME :ADAM SMITH

以上为STRING 语句的基本格式。其中每项用于合并的字符串后面都要加上DELIMITED BY 语句。DELIMITED BY 子句后面有两个选项,分别为SPACE和SIZE。

[b]SPACE:找到前面用于合并的字符串中第一个出现空格的地方。将该空格以前的部分进行合并,空格以后的内容包括该空格在内不参与合并操作。
SIZE:将前面对应的用于合并的字符串中的全部内容进行合并[/b]。另外BY 后可以接一个变量名称,并且将该变量中保存的字符作为原字符串的截取符。截取符的用法同SPACE选项类似。