cobol字符串处理

2019-04-15 13:04发布

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