COBOL程序语言

《COBOL程序语言》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、COBOL语言程序设计许毅第二章COBOL程序设计初步本章包括下面一些COBOL基本规则的介绍：变量，结构，字符型和常量值的分配和显示基本的运算语句2.1变量，组合项，字符型和常量的使用大多数高级编程语言对代表变量，或组合项，字符和常量的数据的定义是类似的。在COBOL程序中数据可以是字母，字符和数字，包括双字节的数据集（DBCS），国际化的字符或数字。也可以定义索引名字和被“USAGEPOINTER,USAGEFUNCTION-POINTER,USAGEPROCEDURE-POINTER,或USAGEOBJECTREFERENCE等诸如指针、函数指针以及对象引用等所描述的数据项。COBOL程

2、序将所有数据定义放到程序的“DATADIVISION”中1、变量变量也被称为数据项，在一个程序中它的值的是可以改变的。数据项在定义时应给定其名字、内存中的长度和类型。例如，如果在你的程序中，一个顾客的名字是一个由字母和数字组成的数据项，你可以这样编码：DATADIVISION.01CUSTOMER-NAMEPICX(20).01ORIGINAL-CUSTOMER-NAMEPICX(20)....PROCEDUREDIVISION.MOVECUSTOMER-NAMETOORIGINAL-CUSTOMER-NAME...2、变量、数据项和组合项相关的数据项可能是一个层次数据结构的某些部分。在第一章

3、提过，没有任何子数据项的一个数据项被称为基本项（初等项）。由一个或多个子数据项组成的数据项被称为一个组合项。一个组合项可以是一个包含字母数字的组合项。DATADIVISION.FILESECTION.FDCUSTOMER-FILERECORDCONTAINS45CHARACTERS.01CUSTOMER-RECORD.05CUSTOMER-NAME.10LAST-NAMEPICX(17).10FILLERPICX.10INITIALSPICXX.05PART-ORDER.10PART-NAMEPICX(15).10PART-COLORPICX(10).WORKING-STORAGESECTIO

4、N.01ORIG-CUSTOMER-NAME.05SURNAMEPICX(17).05INITIALSPICX(3).01INVENTORY-PART-NAMEPICX(15)....PROCEDUREDIVISION....MOVECUSTOMER-NAMETOORIG-CUSTOMER-NAMEMOVEPART-NAMETOINVENTORY-PART-NAME...3、常量常量是一个数值或其他字符构成的序列，它的值就是被赋给的字符序列本身。我们可以在PROCEDUREDIVISION中用一个常量代表数据的值。例如：MOVE“NAMEISNOTVALID”TOCUSTOMER-NAME还可

5、以和一个数字常量进行比较，例如：01PART-NUMBERPIC9(5).…...IFPART-NUMBER=03519THENDISPLAY“PARTNUMBERWASFOUND”.这个例子中，“NAMEISNOTDISPLAY”是一个字符常量，03519是一个数值常量。4、表意常量作为保留字来提供的确定的、通用的常量称为表意常量：ZERO,SPACE,HIGH-VALUE,LOW-VALUE,QUOTE,NULL,和ALL字。因为他们代表固定值，表意常量不需要在数据部定义。例如：MoveSpacesToReport-Header2.2过程部初步过程部的几个特点：一、过程部是程序中的第四部分

6、，它以部头PROCEDUREDIVISION开头。部头从A区(第8—11列)开始书写。过程部下面分若干节，节下面分段，段由若干句子组成，句子以句号“．”和空格结束。句子由若干语句组成，语句间可用分号和空格或用空格分隔。PROCEDUREDIVISION.（过程部头）ASECTION.（A节）A1.MOVE1TOI（A1段）MOVE2TOJ.A2.ADDITOJ.（A2段）BSECTION.（B节）…二、过程部的语句都以一个动词(verb)开始，如MOVE，OPEN，READ，WRITE，IF（IF在COBOL中也作为动词对待)。它表示计算机应执行的操作。如：MOVE100TOX.ADDYTOZ

7、.IFX>100DISPLAYXEND-IF.IFX>100DISPLAYX.三、语句中的动词后面一般要跟一个操作的对象。操作对象可以是数据名或文件名。如：MOVEXTOY．表示将X的值送到Y去。操作的对象是数据项，它们是内存中某一段单元中的内容。READ，OPEN，CLOSE等语句的操作对象是外部文件，在这些动词后跟的是文件名，表示对与文件名相联系的外部文件进行某种操作。如OPENABC，CLO