1        IDENTIFICATION  DIVISION.
 2        PROGRAM-ID.     HELLO.
 3       *創建新建變量的部分
 4        DATA DIVISION.
         *FILE SECTION定義文件記錄變量的。
         *WORKING-STORAGE SECTION定義工作變量的。
         *LINKAGE SECTION定義LINKAGE參數的
         *其他擴展：
         *  SCREEN SECTION是定義界面I/O變量的，LOCAL-STORAGE SECTION定義AUTO變量的（區別于WORKING-）
 5           WORKING-STORAGE SECTION.
 6           01 WS-NAME PIC A(30).
 7           01 WS-ID PIC 9(5) VALUE '12345'.
 8           01 WS-WF PIC 9(3) VALUE 0.
 9           01 WS-A PIC A(20) VALUE 'SUPER'.
10           01 WS-AA PIC 9(2) VALUE 0.
11           01 WS-AAA PIC 9(2) VALUE 0.
12           01 WS-AR PIC X(20).
13           01 A PIC A(5) VALUE 'LA JI'.
14           01 C PIC A(20).
15           01 CC PIC A(30) VALUE 'ABCDEFG HIJKLMN OPQ'.
16           01 C-A PIC A(2).
17           01 C-B PIC A(2).
18           01 C-C PIC A(3).
19           01 WS-COUNT PIC 99 VALUE 1.
20       *程序運行主體部分
21        PROCEDURE DIVISION.
22 
23           DISPLAY 'HELLO WORLD'.
24           MOVE 'TutorialsPoint' TO WS-NAME.
25           IF WS-NAME = 'TutorialsPoint' THEN
26              DISPLAY 'TRUE'
27           ELSE
28              ADD WS-ID WS-WF TO WS-ID
29              DISPLAY WS-NAME
30           END-IF.
31 
32           A-PARA.
33            DISPLAY 'A里的WS-WF :'WS-WF.
34       *PERFORM循環，執行完一列循環才會執行下面的語句
35       *如同what一般
36       *PERFORM 某塊（如B-PARA） 數字 TIMES. 數字為執行某塊的次數
37 
38       *WITH TEST UNTIL為默認條件，在執行段落前檢查，與B-PARA的ADD結合類似與for循環
39            PERFORM B-PARA WITH TEST AFTER UNTIL WS-WF>5.
40       *PERFORM B-PARA 3 TIMES.
41            
42            PERFORM C-PARA 1 TIMES.
43           STOP RUN.
44           B-PARA.
45            DISPLAY 'B里的WS-WF :'WS-WF.
46            ADD 1 TO WS-WF.
47 
48           C-PARA.
49           DISPLAY "My name is : "WS-NAME.
50           DISPLAY "My ID is : "WS-ID.
51           INSPECT WS-A TALLYING WS-AA FOR ALL CHARACTERS.
52           DISPLAY "字符總數： "WS-AA.
53           INSPECT WS-A TALLYING WS-AAA FOR ALL 'b'.
54           DISPLAY "A 的總數：" WS-AAA.
55           INSPECT WS-A REPLACING ALL 'AB' BY 'XX'.
56           DISPLAY "WS-A    中的A替換成X:"WS-A.
57       *SPRING可將多個字符串連接在一起，SPACE可替換為SIZE，其中WITH POINTER和ON OVERFLOW
58       *是可選項，另若使用POINTER（計算連結在一起后的字符串長度），定義時需用PIC 99 VALUE 1.
59       *不支持空格，空格后不再繼續相連
60           STRING WS-A DELIMITED BY SPACE
61              A DELIMITED BY SPACE
62              INTO C
63              WITH POINTER WS-COUNT
64       *判斷連結后的字符串是否超過定義的長度
65              ON OVERFLOW DISPLAY 'LJ'
66           END-STRING.
67           DISPLAY 'WIN WS-A :'WS-A.
68           DISPLAY 'WIN A:'A.
69           DISPLAY 'WIN C:'C.
70           DISPLAY 'WIN WS-COUNT：'WS-COUNT.
71       *UNSTRING是分割字符串，以空格為斷點分成段
72           UNSTRING CC DELIMITED BY SPACE
73              INTO C-A,C-B,C-C
74           END-UNSTRING.
75           DISPLAY 'CC:'CC.
76           DISPLAY 'C-A:'C-A.
77           DISPLAY 'C-B:'C-B.
78           DISPLAY 'C-C:'C-C.
79               
80