program7.cbl

来自「cobol大机操作语言的历程」· CBL 代码 · 共 23 行

       IDENTIFICATION DIVISION.
       PROGRAM-ID. TEST-STRING.
       AUTHOR. TEIIKU.
      *
       ENVIRONMENT DIVISION.
      *
       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 FULL-NAME.
       STOP RUN.