1.字符串的合并
STRING
01 X PIC 9(5) VALUE '12345'.
01 Y PIC X(5) VALUE 'ABCDE'.
01 Z PIC X(10) VALUE SPACE.
PROCEDURE DIVISION.
INSPECT X CONVERTING '14' TO
'*@'.
INSPECT Y CONVERTING 'CE' TO '^&'.
DISPLAY 'X1 = ' X.
DISPLAY 'Y1 = ' Y.
STRING
X DELIMITED BY SPACE
Y DELIMITED BY SPACE
INTO Z.
DISPLAY 'Z1 = ' Z.
以上为STRING 语句的基本格式。其中每项用于合并的字符串后面都要加上DELIMITED BY 语句。DELIMITED BY 子句后面有两个选项,分别为SPACE和SIZE。
SPACE:找到前面用于合并的字符串中第一个出现空格的地方。将该空格以前的部分进行合并,空格以后的内容包括该空格在内不参与合并操作。
SIZE:将前面对应的用于合并的字符串中的全部内容进行合并。另外BY 后可以接一个变量名称,并且将该变量中保存的字符作为原字符串的截取符。截取符的用法同SPACE选项类似。