COBOL字符串的操作资料.pdfVIP

COBOL字符串的操作

（—）字符串的合并STRING

一、STRING语句的基本用法

DATADIVISION

WORKING-STORAGESECTION.

01FIRST-NAMEPICX(10).

01LAST-NAMEPICX(10).

01FULL-NAMEPICX(20).

PROCEDUREDIVISION.

MOVEADAMTOFIRST-NAME.

MOVESMITHTOLAST-NAME.

STRING

FIRST-NAMEDELMITEDBYSPACE

DELIMITEDBYSIZE

LAST-NAMEDELIMITEDBYSPACE

INTOFULL-NAME.

DISPLAYFIRSTNAME:,FIRST-NAME.

DISPLAYLASTNAME:,LAST-NAME.

DISPLAYFULLNAME:,FULL-NAME.

STOPRUN.

输出结果：

FIRSTNAME:ADAM

LASTNAME:SMITH

FULLNAME:ADAMSMITH

以上为STRING语句的基本格式。其中每项用于合并的字符串后面