首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > 编程 >

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

2012-12-21 
cobol拼接字符串--STRING 语句的基本用法一、STRING 语句的基本用法DATA DIVISIONWORKING-STORAGE SECTION.

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

热点排行