01-Cobol-基础知识讲义

《01-Cobol-基础知识讲义》由会员分享，可在线阅读，更多相关《01-Cobol-基础知识讲义（10页珍藏版）》请在装配图网上搜索。

1、第一章关于COBO的初步知识一 . COBOL 语言的特点COBOUl Common Business-Oriented Language （公用面向商业的语言）的缩写，主要供数据处理、数 据收集及分析之用。COBOL自60年代初开始广泛应用于计算机应用领域（商业和其他领域）。事实上，除了商业之外，各种管理工作都广泛使用 COBOL如各种统计工作，财会工作，企业计划编制，作业制度，情报检 索，人事管理等。COBOI#对商业世界的使用，是真正商用应用程序开发的首选语言。适于数据处理领域。1采用英语语法的高级语言，可读性、可维护性、可移植性较强。2通用性强，标准化程度较高。3结构严谨，层次分明。4

2、缺点是比较繁琐。5最简单的COBO程序介绍.二例1 ：IDENTIFICATION DIVISION.（标识部）PROGRAM-ID. EXAM 1（.程序标识段）ENVIRONMENT DIVISION.设备部）DATA DIVISION.（数据部）PROCEDURE DIVISIO N过程部）A. DISPLAY THIS IS A COBOL PROGRAM .STOP RUN.例2 :IDENTIFICATION DIVISION.（标识部）PROGRAM-ID. EXAM （程序标识段）ENVIRONMENT DIVISION.设备部）DATA DIVISION.（数据部）WORKI

3、NG-STORAGE SECTION单元节）77 A PICTURE IS 9（3）.（对 A 进行描述）78 B PICTURE IS 9（3）.（对 B 进行描述）PROCEDURE DIVISIO N过程部）S. ACCEPT A.（输入A值）ACCEPT B.（输入 B 值）ADD A TO B.（A+B->B）DISPLAY A,B.（显示 A和 B 值） STOP RUN.3 COBO程序的结构1 部 每个程序都包括四个部： IDENTIFICATION DIVISION （标识部）提供程序的一般性文档说明，主要用来指定源程序名。ENVIRONMENT DIVISION（环境

4、部） 列出程序中所用到的文件。 程序中不需要外部文件时， 环境部为空， 也可以省略部标题。 DATA DIVISION（数据部）程序中所用到的全部数据（包括：文件数据-用于输入输出、静态数据、参数等）都应在数据部中说明它们的类型和所占内存的情况。 PROCEDURE DIVISION（过程部）包含构成程序的过程性语句，用来给出程序要执行的指令，使计算机产生相应的操作。2 节和段标识部下只有各个段。除标识部以外，每个部下可以有若干个节（SECTION） ，每个节以“节头”作标识。每个节下又可包括若干段（ PARAGRAPH每个段用“段名”标识。各个段内有各种COBO沅素。3 句子，语句和子句在过

5、程部中，每一段由若干个句子（ Sentence ）组成。一个句子是以英文句号来结束的。句子又由语句（ Statement ）组成。一个语句中又可以包含若干个子句（ Clause ） 。注意：部标题、节标题、段名、数据项目描述及句子后必须用英文句号结束，否则程序无法编译。4 描述体（描述款目） 在数据部中有若干个节，每个节中有若干个描述体，每个描述体又有若干个子句构成。4 源程序的书写格式1 16 列，为“序号区” ，为 6 位整数序号，不是程序本身的内容。序号不是必须的，但其所占区域要保留。2 第 7 列，为“指示符区（续行标志区） ” 。连接符“ - ”表示本行是紧接在上一行的后面。 “*

6、”或“ / 表示本行为注释行。“D”表示本行为调试行。3 . 811歹U,为“ A区”，部头，节头，段头，层号 01,层号77以及文件描述符FD,程序结束标题等应从 A 区开始书写，但不一定从第 8 列开始写。4 .1272列（现在有时厂家规定可到80列），为“ B”区，过程部中白句子只能从B区开始书写。5 7380 列，为“注释区” 。在写程序时，应注意以下几点：1 大写或小写字母均可，习惯用大写字母。2相邻的两个字之间必须留一个以上的空格。3运算符和等号左右两边必须各留一个空格。4逗号，句号，分号的左边不能留空格，而右边应有空格。L.COBOL符和 COBOL字COBOL 字符集包括以下字

7、符：( ) < > $ 空格09, az, AZ, + - * / = , . ;COBOL 单字分三种：保留字、用户自定义字及系统名称。COBO单字的规则如下：1 字长为 130 个字符之间。2 只能由字母，数字和连字符“ - ”组成，第一个和最后一个字符不能用连字符。3 字中不能出现空格。4 小写字母与大写字母等价。5 不能用保留字作为用户定义字和系统名称，但用户定义字和系统名称可以用同一个单词。用户自定义字：文件、数据、标号、程序等所取的名称。系统名称：COBO保留字，用于与操作环境通信， 又COBOUT家定义。分为：Computer name Implementers na

8、me、 Language name 。保留字：有300 多个。如：+、 ACCEP、T ADD、 BEFOR、E DATA。6 常量1 数值常量（数字直接数）例： 123, +45.67, -89.652 非数值常量（非数字直接数） : 字符串内的引号用两个连续引号表示。 例：abcd , Expired ,3 象征常量：用保留字表示某些常用常量（ 直接数 ） 。例： ZERO ZEROS ZEROESSPACE SPACESHIGH-VALUE HIGH-VALUES LOW-VALUE LOW-VALUES QUOTE QUOTES ALL 常量7 COB O L处理数据的特点： 层次的概

9、念；记录和文件的概念。8 程序文本的复制与替换操作1. COPm句COPm句用COBO源文本text-name替换从COPY开始到终止句号之前的内容。2. REPLACE!REPLACE语句将COBO源程序某个段中的文本进行替换。替换从REPLAC晤句的第一个格式开始，至ijREPLACE OF赠句结束。第二章 标识部和环境部一 标识部（IDENTIFICATION DIVISION）（一）必写部分IDENTIFICATION DIVISION.PROGRAM-ID. 程序名 .（二）任选部分 一般格式：AUTHOR. 作者姓名 INSTALLATION. 设计这个程序的公司或部门。 DATE

10、-WRITTEN. 编写日期，可记入修订史，修改日期、原因及人员。 DATE-COMPILED. 编译日期 SECURITY. 保密程度的描述。 注：标识部中的段标题只能按部描述中指定的顺序出现。3. 环境部（ ENVIRONMENT DIVISIO）N环境部指定程序中与特定计算机或操作系统相关的方面，指明用到哪些设备，哪些文件，将程序中用到的内部文件名与外部文件（或外部设备）联系起来。如果程序不需要任何环境部提供的项目，则可以省略 环境部。一般格式： ENVIRONMENT DIVISION.CONFIGURATION SECTION.配置节SOURCE-COMPUTER. OBJECT-C

11、OMPUTER. SPECIAL-NAMES.INPUT-OUTPUT SECTION.输入 / 输出节.I-O-CONTROL.1 配置节包括 SOURCE-COMPUTER, OBJECT-COMPUTESPECIAL-NAMES专用名段）。SOURCE-COMPUTERS识编译程序的计算机。若该段省略，则编译程序的计算机是源计算机。如果指 定WITH DEBUGGING MODE句，则编译所有源调试行，否则把调试行作为说明语句。OBJECT-COMPUTERS识编译程序运行的计算机。SPECIAL-NAME皱用于把系统中原规定的一些设备名或功能名或符号改为用户自己指定的名字或符 号。SP

12、ECIAL-NAMES.CLASS REAL-NUMBER IS 0123456789+-. 可用于类条件测试DECIMAL-POINT IS COMMA. 逗号用作小数点，句号用作编辑符CURRENCY SIGN IS “Y”. 表示货币符号的字符， DEFAULT$2 输入输出节输入输出节只用于文件，它把内部文件与外部文件（包括外部设备）联系起来。它有两个段：文件控制段：段是给文件命名，指出存放该文件的外部设备及其他有关文件控制信息。对每个文件包含一个项目。.SELECT FILE- 1 ASSIGN TO“T”.SELECT FILE-2 ASSIGN TO DISK.SELECT FI

13、LE-3 ASSIGN TO PRINTER.输入输出控制段：I-O-CONTROL 段包含定义程序返回点，不同文件共享的内存区和多文件卷中文件位置的项目。数据部的节COBOL将数据部分成节，每第三章 数据部数据部包含程序引用的所有数据的定义，如文件记录、变量、表格和报表。个节是可选的，但程序中的节应按指定顺序定义。DATA DIVISION.FILESECTION.文件节WORKING-STORAGE SECTION.工作存储节LINKAGE SECTION .连接节COMMUNICATION SECTION.通信节REPORT SECTION.报表节1 文件节程序中每一个输入或输出文件都要

14、在文件节中定义。包括：（ 1 ） 文件名和文件属性。（ 2 ）文件中包括的记录名。（ 3 ）每个记录中数据的层次关系。（ 4 ）记录中各数据项的数据形式和占内存的大小。DATA DIVISION. （ 数据部 ）FILE SECTION. （ 文件节 ）FD FILE-1. （文件名）LABEL RECORD IS OMITTEDDATA RECORD IS STUDENT-SCORE.（ 1 STUDENT-SCORE. （ 记录名 ）03 NAME PIC X（10）.03 NUM PIC 9（06）.03 CORUSE-SCORE.05 CORUSE-1 PIC 9（03）.05 COR

15、USE-2 PIC 9（03）.05 CORUSE-3 PIC 9（03）.2 工作存储节包含程序所需的临时结果和初始化静态数据的数据定义。WORKING-STORAGE SECTION.77 X PIC S99 VALUE -21.01 A PIC 9（08）.01 B.03 B1 PIC X（04）.03 B2 PIC X（02）.03 B3 PIC X（02）.3 连接节本节只用于子程序，包含调用程序传递的数据（即参数） 。LINKAGE SECTION.01 LCMIN.COPY RCI001.01 LCMOT.COPY RCJ001.4 通信节通信节描述作为程序间接口的数据和消息控制

16、系统，用以实现与通信设备相关的消息分析的COBO方法。属过时部分，很少使用。5 报表节报表节描述实现COBOII艮告编写工具的系统所需的数据。REPORT SECTION.RD EMPLOYEE-REPORTPAGE LIMIT 60 LINESHEADING 1FOOTING 58FIRST DETAIL 3.二.COBO数据的类型及层次（一）数据类型（ 1 ） numeric （数字）（ 2 ） numeric-edited （数字编辑）（ 3 ） alphabetic （字母）（ 4 ） alphanumeric （字母数字）（ 5 ） alphanumeric-edited （字母数字

17、编辑）所有数据类型缺省作为字符串存放在内存中，唯一可以用不同方式存储的数据类别是数字型数据（通过USAG仔句）。对数字型数据制订不同方式存储，提高计算效率。（二）数据的层次和层号COBOL 中把有从属关系的数据用层次关系来描述。数据的层次结构是：记录组合项基本项。层次规定如下：（ 1）用来描述数据的层次结构的层号从01 开始，到 49 结束，即可用的层号为 0149 。（ 2）从属项的层号比其上属项的层号高。（ 3）如果几个数据项都从属于同一组合项但互不从属，则这几个数据项应具有相同的层号。（ 4） 77 层项目用于某个组的数据项，如程序中的临时变量。（ 5） 66 层和 88 层是特殊层。

18、88 层是对特殊数据项目条件名保留的。 （在讲过程部的条件语句时再详细介绍。）66层是用于更明现有数据项或数据项组。（讲RENAMES句时再介绍。）（三）限定数据（四） FILLER 关键字需要定义部分记录，但这部分在程序中永远不会用到，则可用保留字FILLER 占有这个记录部分的位置。举例：一个打印用的记录行，有固定的空格时。如果组项目不需按名称引用，则可以用FILLER关键字作为数据名，不用生成组名，但 FILLER组名中定义的每个数据项应当唯一。. 数据部用子句（一）PIC子旬PIC是PICTURE的缩写，PIC子句用来描述每一个基本数据项，定义基本项目的具体长度、格式和 数据类型。01

19、 A.03 A1 PIC 9999.03 A2 PIC AAAA.03 A3 PIC XXXX.（A） 字母数据字母数据限于字母表中使用的字符和空格符，用 A 描述符表示，每个字符用一个A 表示。01 X PIC A（4）.MOVE AB C TO X.（B） 字符数据（字母数字）字符数据可以包含计算机字符集中的任何字符。 字符数据项目的格式字符串可用用A、 X 、 9 表示，至少要包含一个X, 是非数值类型的，不能用于运算。01 X PIC X（4）.01 Y PIC X（8）.01 Z PIC A（5）X9（2）. MOVE BOOK TO X MOVE 1234 TO X MOVE CO

20、BOL- 85 TO Y MOVE COBOL- 85 TO Z（C） 字符编辑数据（字母数字）要把字符数据格式化成特定形式，则可以用字符编辑数据。字符编辑数据用特定字符表示格式。字符编辑数据项目的格式字符串可用A、X、9、R。和/表示，至少要有一个 A或X和一个B （空格）或 0（ 0 ）或 / （斜杠） 。01 EDITED-DATE PICTURE IS 99/XXX/9999.MOVE 05May1909 TO EDITED-DATE贝U EDITED-DATES勺值为'05/May/1909 '（D） 数字数据数字数据由数字组成，包括其隐含的小数点和操作符号，表示的是

21、实际数字值, 可用于数据运算。数字数据只能包含字符9, V, S和P的组合，至少要有一个9,最多18个9,至少一个 V和S。1 “ 9 ”描述符表示数字存放位置, 不能放入空格，不能表示小数和负数。算进项目长度中。描述数值内存中表示长度数值范围01 XPIC9991231233099901 YPIC9(4)4567456740999901 ZPIC9912.3412201 T2 “ V”PIC 99-12.34描述符122指出在数据中隐含的小数点的位置，不占内存，不算进项目长度中。运算时按隐含的小数点位0，置对准进行运算。显示时只显示内存中的内容，不显示小数点。不包含V 的项目假设的小数点位于

22、最右边。描述数值内存中表示长度数值范围01 XPIC99V99.87.5875040.0099.9901 YPIC9(3)V9(2). 7817810050.000999.9901 ZPICV9991.234234301 T3. “P'PIC 999V123描述符1233表示数据项的比例因子，不占内存，不算进项目长度中。当数值很大，前面或后面若干位为为了节省内存可以用" P'描述符。P只能出现在开头或末尾，而不能同时在两处出现。显示时只显P (即 0)。内存中表示长度数值范围19*100002 0.000010.00099示内存中实际存放的数字而不显示隐含的描 述数值

23、01 X PIC 9P(4). 100001101 Y PIC PPP99. 0.00023 234. “S”描述符SIGN IS SEPARATE 从句。如有 S 则数值范围表示一个带符号的数，符号不算如项目长度中，除非包括必须是最左边一个描述符。如无S 则总是表示为正值。描 述数值 内存中表示长度01 X PIC S9(3)V9(2) 126.89126895 -999.99999.9901 Y PIC S9(3)V9(2) -1126.897 126895(E) 数字编辑数据为了使输出数据更易读，可以定义数字编辑数据。数字编辑数据可以用于显示数字，但所有计算中只能用数字数据。数字编辑数据

24、项目的格式字符串只能包含字符9、Z、日0、/、P、V、，、。、*、+、-、CR DB的组合。它必须包含118 个 9 字符，包含至少一个除9、 P、 V 以外的字符。1 “. ”描述符表示插入小数点的位置，只能在格式字符串中使用一次，不能与 V和P同时使用。01 W PIC 9(3).9(2).01 V PIC 9(3)V9(2).MOVE 123.45 TO VMOVE V TO W错误： 01 W PIC S9(3).9(2).2 “， ”描述符表示插入逗号的位置，尽管它通常作千位分隔符，但也可以插入格式字符串其他地方。01 W PIC 999,999.99.MOVE 123456.78

25、TO W输出表示： 123 ， 456.783 “ 0 ”描述符表示插入 0。4 “B”描述符表示插入空格。01 W PIC 9(3).01 V PIC B9(3)B.MOVE 123 TO W.MOVE W TO V.5 “+”或“- ”描述符表示在输出的数值前(或后)加正号或负号。当用“+”时，不论数值为正或负一律加符号。当用“ - ”时，当数值为正时，数值前空一格，数值为负时，加一负号。01 X PIC S99.01 Y PIC +99.01 Z PIC -99.01 U PIC 99+.01 V PIC 99-.6插入“$ ”01 A PIC $999.99.01 B PIC +$99

26、9.99.01 C PIC -$999.99.7浮点插入形式（浮动插入正负号和“$”）“ $ ” ,“ + ” , “ - ”的位置是浮动的，能够使符号紧挨着数字之前输出。在编辑型数据的描述中，指定浮动插入的字符个数应足够，以免数据被截断。浮动字符前不能再出现其它符号，即浮动字符应为第一个描述字符。01 A1 PIC S9（3）V99.01 A2 PIC +.99.01 A3 PIC $.99.01 A4 PIC +.+.01 A5 PIC $.$.错误： 01 A1 PIC +$.99.8 .零抑制格式（取消高位零，用“ Z”和“*”描述符）01 A1 PIC S9（3）V99.01 A2

27、PIC ZZZZ.99.01 A3 PIC *.99.（1） 不能同时用 Z 浮动和 +， -, $ 浮动错误： ZZ$9.99 或 +ZZ.99（2）单个的+, -, $ 可以与 Z 或*连用01 A1 PIC +ZZZ.99.01 A2 PIC -*（3）.99.01 A3 PIC $ZZZ.99.（3）如果使" Z”或“ *”对应与所有的数字字符，当数值为0时，则所用数字位全部由空格或*代替。小数点位置上，由空格代替（用 Z 时） ，或保留“ . ” （用 * 时） 。01 A1 PIC ZZZ.ZZ.01 A2 PIC *.*4）可与“，”连用01 A1 PIC Z,ZZZ.

28、99.9 .插入“ DB'和" CR'字符DB （DEBIT,借方）和CR（CREDIT贷方）只能用作固定插入，而且只作最后一个描述符号。当数值为负时，在编辑型数据项中最后两个字节中置DB或CR数值为正时，此两字节留空格。01 A2 PIC $999.99CR.10. PIC子句小结 描述字符9AXVS P $.， +-Z*B 0DB （借方）01 A1 PIC $9（3）.99DB.含义表示一个数字位置表示一个字母位置表示一个字符位置表示隐含的小数点位置表示数值数据带符号表示十进比例换算插入货币号插入小数点位置插入逗号位置一律加符号对负数加负号，对正数前留一空格取消

29、高位零，用空格代替取消高位零，用 * 代替插入空格插入零数据为负时，在数据后面插入DB,为正时，空两格CR(贷方)数据为负时，在数据后面插入 CR为正时，空两格(二)REDEFINES 句REDEFINES?句可以用不同数据描述同一计算机内存，适用于基本数据项和组数据项。层号 数据名 1 REDEFINES 数据名 202 A.03 A1 PIC 9(4).03 A2 PIC X(6).03 A3 PIC X(4).02 B REDEFINES A.03 B1 PIC X(5).03 B2 PIC 9(6).03 B3 PIC 99V9.02 C REDEFINES A.03 C1 PIC X

30、(5).03 C2 PIC X(4).03 C3 PIC X(5).规则： ( 1 )数据名 2 与数据名 1 的层号必须相同。内存中的值为数据名 1 和数据名 2 共享。(2)用REDEFINE分句的描述体应紧跟在被重新定义的数据项的描述之后，中间不能插入其它项的说明。当进行多次重定义，必须紧跟出现，而且要求使用最初定义的数据名。( 3 )不能用于文件节或报表节的01 层，可用于工作单元节的 01 层。(4)用REDEFINES?句可以改变数据的结构，REDEFINE纵句定义的区域长度应小于等于原区域长度。(5) REDEFINE坏句应在其它子句之前。(6)使用REDEFINES?句的数据项

31、不能使用VALUE子句赋初值。(7)数据名2不能包含OCCURS句。03 A PIC X(8) VALUE ABCDEFG H.03 B REDEFINES A.05 B1 PIC X(4).05 B2 PIC X(4).(三)USAGESUSAGE?句可以指定计算机内存中的数据项格式，充分利用计算机内存空间和算术功能。USAGE?句不影响项目的使用(但过程部的有些语句将某些操作数限于某种USAGES句)。USAGEP旬可以用于基本和组数据项目。 USAGE IS BINARYDISPLAYCOMPUTATIONALCOMPCOMPUTATIONAL-1COMP-1COMPUTATIONAL-

32、2COMP-2COMPUTATIONAL-3COMP-3COMPUTATIONAL-4COMP-4COMPUTATIONAL-5COMP-5 INDEX PACKED-DECIMAL 缺省为DISPLAY。BINARY COMPUTATIONAIPACKED-DECIMAH用于数字数据项。BINARY指定项目存放成二进制数。在PIC子句中描述字符9的个数为14时，占内存字节为 2;个数为59 时，占内存字节为4；个数为1018 时，占内存字节为8。COMPUTATIONAL厂家定义。大多选择与 BINARY相同。COMPUTATIONAL-由厂家定义。大多定义为单精度内部浮点数字项，用内存 4

33、Byte。(不用PIC)COMPUTATIONAL-2厂家定义。大多定义为双精度内部浮点数字项，用内存 8Byte。（不用PIC） PACKED-DECIMA指定数字按缩和十进制存放，以减少每个数字的存储量。每个数字4位或每个字节表示2个数字。符号也占半个字节，放在最后面（无符号，用1111' +号，用1100'-号，用1101'）。COMPUTATIONAL-由厂家定义。大多选择与 PACKED-DECIMAL致。COMPUTATIONAL-由厂家定义。大多选择与 PACKED-DECIMAL致。COMPUTATIONAL-由厂家定义。类似于USAGE COMPB与在

34、某些平台上的字节顺序相反。在支持小尾字节顺序的平台上，COMP-5执行速度更快。（COMP-次似于COMP-5但按大尾字节顺序存放。）INDEX用法是特殊用法，指定用该项目作为表格索引。采用INDEX用法的项目只能在过程部的某些语句中，不能有PIC从句。注：USAG以句用于组层时作用于组中每个基本项目。如用BINARY时，组中的所有基本项目都要用数字。03 A PIC 9（4） COMP.03 B PIC 9（4）.03 C COMP.05 C1 PIC S9（3）.05 C2 PIC S9（6）.（四）SIGN子句SIGN 子句可以指定格式字符串包含S字符的数字数据项中符号的位置。SIGN

35、IS LEADING SEPARATE CHARACTER TRAILING通过LEADINGmTRAILING幺指定符号在数字的第一位（ LEADING或最后一位（TRAILING）。符号的具体 表示由厂家指定。如果有SEPARATE句，则符号用标准字符 +或-表示，符号位记入数据项的长度。（五）OCCURS旬OCCURS子句指定数据项为固定项目数或可变项目数的表格（即数组）。OCCURS句不能用于01和77层，可以用于基本或组数据项目。详细内容见表格处理。（六）SYNCHRONIZEDSYNCHRONIZE子句指定基本数据项在计算机内存自然边界上的对齐。指定SYNCHRONIZED句时的具

36、体效果由厂家指定。可参看教科书的25章。（七）JUSTIFIED子句JUSTIFIED子句（简称JUST）只能用于非编辑的字母数字基本数据项。即数据放进这个项目时，它与 最右边的字符对齐。数据太长时左边截尾，太短时则左边填充。标准规则为与最左边的字符对齐并在右边截尾或填充。（八）BLANK WHEN ZERO：BLANK WHEN ZER子句只能用于数字型或数字编辑型的基本项。使用时，当数据项的值为零时，内容 改变为空格。03 A PIC $（5）.99 BLANK WHEN ZERO.03 B PIC Z,ZZ9.99 BLANK WHEN ZERO.03 C PIC * BLANK WHE

37、N ZERO.（BLANK子句不起作用）（九）赋初值子句（VALUE子句）VALUE?句来实现。程序中的数据往往需要赋初值，可以用01 A1 PIC 99VALUE 12.'COBOL.，A .组项目被初始化了，则下属项目不能有 子句。01 A2 PIC X(5)VALUE01 A3 PIC S99V99 VALUE -12.34.01 T.03 A4 PIC 9(6)VALUE ZERO.03 A5 PIC X(6)VALUE SPACES.03 A6 PIC X(6) VALUE ALL03 A7 VALUE ' 1234'.-05 A71 PIC 99. VALU

38、E05 A72 PIC 99.四.66层 RENAMES目用66层RENAMES目可以在不改变数据项的长度的前提下，重新定义数据区的名称和数据结构的形式。原各基本项的类型和长度不变。即是说该格式可以更名现有数据项或数据项组，或以原定以未允许的方 式组合。66 数据名 1 RENAMES 数据名 2 THRU 数据名 3 01 A.03 B05 G05 H03 C05 I05 J03 D03 E03 F66KRENAMESG THRUI.66MRENAMESB THRUC.66NRENAMESE.（ 1 ）层号只能用66，它必须紧跟在01 层记录中最后一个数据描述体之后。（ 2 ）只能用于工作单

39、元节中，不能用于文件节中。（ 3 ） 指定数据名 3 时， 数据名 3 必须在数据名 2 后面定义， 不能从属于数据名 2 。 此时数据名 1 是一组项目。第四章 过程部一简介过程部是COBOL§序的最后一个部分。包含程序运彳T时要执行的所有语句。以 PROCEDURE DIVISIONS 头，包含对数据操作的程序逻辑。过程部的组件包括语句、句子、段和节。（ 1 ） 语句（ statement ） ：以动词开头的单词、直接数和分隔符的组合。语句应一律从B 区（ 12 列开始）开始写，续行也应从 B 区开始。（ 2 ）句子（ sentence ） ：以英文句号（ . ）结尾的一系列语句。（ 3 ）段（ paragraph ） ：由段名、句号分隔符和零或几条句子组成。段的最后一条语句要用英文句号结束。（4）节（section ）：由节标题加上保留字SECTION口分隔符句号。注：段名应在节中保持唯一性、节名应在程序中保持唯一性。段名不能与节名重复。引用段名时可以用所属的节限定如下： GO TO PARA-1 IN SECTION-22.例 1:PROCEDURE DIVISION. （过程部头）A SECTION.（A 节）A1. MOVE 1 TO I.（ A1 段）