cobol- STRING语句

字符串的定义

01 STR-ONE PIC XXXXX.
01 STR-TWO PIC X(10).

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 DELIMITED 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

用于合并的每个字符串后面都会加上 DELIMITED BY ，DELIMITED BY 后面有两个选项SPACE和SIZE，
SPACE：找到合并的字符第一次出现空格的地方，将空格之前的字符合并
SIZE：将合并的字符的内容全部合并