cobol字符串处理

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选项类似。