cobol源程序的格式如下：
每行开头有6个字符的序号区。可以输入000010，000020等表示行，也可以不输。
序号区后面是一个字符（第7位）的指示符区，如第一行所示。可以用*和/表示注释，_表示续行，D表示调试。
指示符区后面是4个字符（8~11位）的A区。可以放入部，节，段标题，段名，层指示符和层号01与77，
关键字DECLARATIVES和END DECLARATIVES,程序结束标题。
A区后面（12位以后）是语句体，称为B区。过程部的语句必须从B区开始。B区宽度通常为72或80个字符。
本例是70个字符。
空行的每个区都是空格
标识部（2~4行），PROGRAM-ID段包含程序名，是每个程序都必须的。AUTHOR等其他段是可有可无的。
环境部（5~15行），提供与程序外部有关的项目，具体地说，就是列出程序所用的文件。如果不需要可以省略。
环境部有配置节（6~10行）和输入输出节（11~15行）。
第7行表示编译程序的计算机。如果指定WITH DEBUGGING MODE就编译调试行。
第8行表示程序运行的计算机。
第9，10行包含一组指定输出样式。这里是标准输出，可以自定义。
输入输出节只用于文件。
第13到15行表示如果程序使用文件，则这个段对每个文件包含一个项目。
文件控制项目的格式取决于文 件的描述类型。
数据部（16~22行），提供程序变量的存放位置，对不同的数据类型分成不同的节：文件数据（File Section）、
静态数据（Working-Storage Section）、参数（Linkage Section）、通信（Communication Section）、
报表（Report Section）。
文件节（18~21行），每个文件描述中包含文件所含纪录的定义，文件节中的数据或从文件读取，
或由写文件的程序产生。
第22行表示工作存储节，这节包含程序所需的临时结果和初始化静态数据的数据。
参数（Linkage Section）包含调用程序传递的数据（其他语言中称为参数）。
通信（Communication Section）,处理COBOL程序和通信设备之间的消息。
报表（Report Section），报表节实现COBOL报告编写工具系统所需的数据。
第20，21行的PIC是PICTURE的缩写，表示定义数据格式。
X(12)表示12个字符的字符串，9(09)表示9位的整数。
可以将基本项目组成层次结构，称为组数据项或组。
COBOL程序中的数据项的定义从层号开始，01层是最高层，49层是最低层。
77层项目用于某个组的数据项，如程序中的临时变量。
66层是为特殊描述符项目保留的，可以更名现有的数据项或组，或以原定义未允许的方式组合。
88层是对特殊数据项目条件名保留的
如：
03 STATE PIC XX.
88 NEW-ENGLAND VALUES ARE "1","2","3","4","5".
IF NEW-ENGLAND ... then do something
过程部（23~30行），包含构成程序的过程性语句。
带DECLARATIVES的过程部。有些程序用特殊的USE语句表示遇到特殊条件时要执行的过程，
如发生I/O错误时。
USE语句组合在一起，放在过程部开头，由关键字DECLARATIVES和END DECLARATIVES限定。
第24行相当于定义了一个名字叫ACAB030100-PROC（）的函数。
第25，29行定义了标志，可以用GO TO 语句跳转到这个地方，执行下面的语句。
第26行在屏幕上打印，相当于printf("ACAB030100-START");
第27行是调用ACAB030100-PROC（）函数。
cobol程序的要求：必须以英文句号.结束部标题、节标题、段名、项目和语句。
句号为小数点时，两边都要有数字。
本文地址：http://com.8s8s.com/it/it24583.htm