5.6 完整的COBOL程序

下面是一个完整的COBOL程序的例子。

        IDENTIFICATION DIVISION.
        PROGRAM-ID. TESTProgram.
        AUTHOR. NEWMAN LV.

        DATA DIVISION.
        WORKING-STORAGE SECTION.
        01  Slogan        PIC X(30) VALUE ‘Hello China！The world is flat.’

        PROCEDURE DIVISION.
        SayHello.
            DISPLAY ‘My Slogan is：", Slogan.
            STOP RUN.