COBOL程序结构包括如在下面的图片显示：

简单介绍这些分区如下：

• Sections 是程序逻辑的逻辑细分。段是段落的集合。
• Paragraphs 是分区的一段或分立。它可以是用户自定义或预定义的名称后面加上的一段，由零个或多个句子/项。
• Sentences 是一个或多个语句的组合。句子只出现在程序师。句子，必须结束有一个时期。
• Statements 其执行一些处理有意义的COBOL语句。
• Characters 是最低的层次，不能再分。

您可以互相涉及的以下示例中的上述条件与COBOL程序：

PROCEDURE DIVISION.
A0000-FIRST-PARA SECTION.
FIRST-PARAGRAPH.
ACCEPT WS-ID            - Statement-1  -----|
MOVE '10' TO WS-ID      - Statement-2       |-- Sentence - 1
DISPLAY WS-ID           - Statement-3  -----|
.

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.
PROCEDURE DIVISION.
DISPLAY 'Welcome to web3'.
STOP RUN.

//SAMPLE JOB(TESTJCL,XXXXXX),CLASS=A,MSGCLASS=C
//STEP1 EXEC PGM=HELLO

Welcome to Yiibai

环境分区

环境区划用于指定输入和输出文件的程序。它由两部分组成：

• 配置部分给出了关于在其上的程序被写入和执行的系统信息。它由两段： 
  来源计算机：用于编译程序系统。

  目标计算机：用于执行程序系统。

• 输入 - 输出部分，用于指定关于在节目中要使用的文件的信息。它由两段： 
  文件控制：给出的程序中使用的外部数据集的信息。

  IO控制：提供在程序中使用的文件的信息。

ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. XXX-ZOS.
OBJECT-COMPUTER. XXX-ZOS.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT FILEN ASSIGN TO DDNAME
ORGANIZATION IS SEQUENTIAL.

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT FILEN ASSIGN TO INPUT.
       ORGANIZATION IS SEQUENTIAL.
       ACCESS IS SEQUENTIAL.
DATA DIVISION.
FILE SECTION.
FD FILEN
01 NAME PIC A(25).
WORKING-STORAGE SECTION.
01 WS-STUDENT PIC A(30).
01 WS-ID PIC 9(5).
LOCAL-STORAGE SECTION.
01 LS-CLASS PIC 9(3).
LINKAGE SECTION.
01 LS-ID PIC 9(5).
PROCEDURE DIVISION.
DISPLAY 'Executing COBOL program using JCL'.
STOP RUN.

//SAMPLE JOB(TESTJCL,XXXXXX),CLASS=A,MSGCLASS=C
//STEP1 EXEC PGM=HELLO
//INPUT DD DSN=ABC.EFG.XYZ,DISP=SHR

Executing COBOL program using JCL

程序区划

程序分部被用于包含程序的逻辑。它包括使用数据分割定义的变量可执行语句。在这个划分，段落和章节名称是user-defined。

必须有程序师至少有一个语句。最后语句结束在执行这种划分或者是停止运行它用于调用它采用的是被称为程序的程序或退出程序。

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-NAME PIC A(30).
01 WS-ID PIC 9(5) VALUE '12345'.
PROCEDURE DIVISION.
A000-FIRST-PARA.
DISPLAY 'Hello World'.
MOVE 'YiiBai' TO WS-NAME.
DISPLAY "My name is : "WS-NAME.
DISPLAY "My ID is : "WS-ID.
STOP RUN.

//SAMPLE JOB(TESTJCL,XXXXXX),CLASS=A,MSGCLASS=C
//STEP1 EXEC PGM=HELLO

当编译并执行上面的程序它会产生以下结果：

Hello World
My name is : YiiBai
My ID is : 12345