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

一、  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。

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