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
cobol对书写要求较高，
前1-6列为保留列，一般不写任何代码或文字，
第7列可写注释，以*开头
第8-11为所有的 COBOL 各部，节，段和一些特殊条目必须在 A 区开始
第12-72为所有的 COBOL 语句必须在B区开始。
第73-80为识别区，它可以根据程序员的需求进行使用。