清秀的学习之路1

使用UNSTRING语句拆分字符串。

 

DATA DIVISION.

WORKING-STORAGE SECTION.

01   FULL-NAME      PIC X(20)

                    VALUE ‘ADAM SMITH’.

01   LAST-NAME      PIC X(10).

01   FIRST-NAME      PIC X(10).

*

PROCEDURE DIVISION.

     UNSTRING FULL-NAME

              DELIMITED BY ‘  ‘

              INTO FIRST-NAME

                   LAST-NAME.

     DISPLAY ‘FULL NAME:’,FULL-NAME.

        DISPLAY ‘FIRST-NAME:’,FIRST-NAME.

          DISPLAY ‘LAST-NAME:’,LAST-NAME.

      STOP RUN.