cobol学习之一开发环境及简单程序

为什么80%的码农都做不了架构师？>>>   

cobol入门课件下载地址：http://download.csdn.net/detail/bq1073100909/8116273

cobol安装文件：http://download.csdn.net/detail/bq1073100909/8116289

cobol安装文件只能安装在winxp的环境中。

每一个程序都应包括以下四大部分：

    IDENTIFICATION  DIVISION (标识部)

    ENVIRONMENT DIVISION（环境部）

   DATA  DIVISION（数据部）

   PROCEDURE  DIVISION（过程部）

过程部程序的结构如下：

部（Division）       —部可包括若干节

节（Section）     —节可包括若干段

段（Paragraph）       —段可包括若干句子

句子（Senrence）     —句子可包括若干语句

 语句（Statement）   —指定计算机完成一定的操作

 子句（Clause）     —指定完成某一方面的特定功能

cobol代码结构：

COBOL源程序的书写格式有两种：

  (一)  美国国家标准COBOL参考格式ANSI(American National Standard COBOL reference format) 。

      ANSI(American National Standard COBOL reference format)格式

        1．1~6列，为“标号区”。可以填写6个数字。编译器会忽略它们。

        2．第7列，是“续行标志区”。写上连接符“-”和注释符“*”。以“*”开头的行将被视为注释行，编译器同样会忽略它们。

        3．第8~11列，称为“A区”，第8列称“A区边界”。    如部头，节头，段头，层号01，层号77以及文件描述物FD等应从A区开始书写

  4．12~72列，称“B区”。写程序中的正文部分。

5．73~80列，为“注释区”。

(二) 终端格式。

1．每行可输256列，满屏后继续输入，直至输完本行。

2． A区占1-4列。第一列做续行标志区（“-”），或注释区（“*”）。

3． B区占5-256列。

数据项的定义：

以层号区分不同的数据定义层次。

01层是最高层，49层是最低层。

77层为独立数据项，常用于定义临时变量。

66层是为特殊描述符项目保留的，可以更名现有的数据项或组，或以原定义未允许的方式组合。

88层是对特殊数据项目条件名保留的

代码案例：

<span style="white-space:pre">	</span>000010 IDENTIFICATION 		DIVISION.
000020 PROGRAM-ID. 		SAMPLE01-2.
000030 ENVIRONMENT 		DIVISION.
000040 DATA        		DIVISION.
000050 WORKING-STORAGE 		SECTION.
000060 77  			A PIC 9(3).
000070 77  			B PIC 9(3).
000080 PROCEDURE 		DIVISION.
000090 S.  			ACCEPT A
000100     			ACCEPT B
000110     			ADD A TO B
000120     			DISPLAY 'A=' A "A" ' B=' B.
000130     			STOP RUN.

转载于:https://my.oschina.net/zjcx/blog/679591