《01-Cobol-基础知识讲义》由会员分享，可在线阅读，更多相关《01-Cobol-基础知识讲义（44页珍藏版）》请在金锄头文库上搜索。
1、第一章 关于COBOL的初步知识一. COBOL语言的特点 COBOL是Common Business-Oriented Language（公用面向商业的语言）的缩写，主要供数据处理、数据收集及分析之用。COBOL自60年代初开始广泛应用于计算机应用领域（商业和其他领域）。事实上，除了商业之外，各种管理工作都广泛使用COBOL,如各种统计工作，财会工作，企业计划编制，作业制度，情报检索，人事管理等。COBOL针对商业世界的使用，是真正商用应用程序开发的首选语言。1 适于数据处理领域。2 采用英语语法的高级语言，可读性、可维护性、可移植性较强。3 通用性强，标准化程度较高。4 结构严谨，层次分明
2、。5 缺点是比较繁琐。二 最简单的COBOL程序介绍例：IDENTIFICATION DIVISION.(标识部)PROGRAM-ID. EXAM1.（程序标识段）ENVIRONMENT DIVISION.（设备部）DATA DIVISION.（数据部）PROCEDURE DIVISION.（过程部）A. DISPLAY THIS IS A COBOL PROGRAM. STOP RUN.例：IDENTIFICATION DIVISION.(标识部)PROGRAM-ID. EXAM.（程序标识段）ENVIRONMENT DIVISION.（设备部）DATA DIVISION.（数据部）WORK
3、ING-STORAGE SECTION.(工作单元节)77 A PICTURE IS 9(3).（对进行描述）77 B PICTURE IS 9(3).（对进行描述）PROCEDURE DIVISION.（过程部）S. ACCEPT A.（输入值） ACCEPT B.（输入值）ADD A TO B.(A+B-B)DISPLAY A,B.（显示和值） STOP RUN. 三 COBOL程序的结构1 部每个程序都包括四个部：IDENTIFICATION DIVISION （标识部）提供程序的一般性文档说明，主要用来指定源程序名。ENVIRONMENT DIVISION （环境部）列出程序中所用到的
4、文件。程序中不需要外部文件时，环境部为空，也可以省略部标题。DATA DIVISION （数据部）程序中所用到的全部数据（包括：文件数据-用于输入输出、静态数据、参数等）都应在数据部中说明它们的类型和所占内存的情况。PROCEDURE DIVISION （过程部）包含构成程序的过程性语句，用来给出程序要执行的指令，使计算机产生相应的操作。2 节和段 标识部下只有各个段。除标识部以外，每个部下可以有若干个节（SECTION），每个节以“节头”作标识。每个节下又可包括若干段（PARAGRAPH），每个段用“段名”标识。各个段内有各种COBOL元素。3 句子，语句和子句 在过程部中，每一段由若干个句
5、子（Sentence）组成。一个句子是以英文句号来结束的。句子又由语句（Statement）组成。一个语句中又可以包含若干个子句（Clause）。 注意：部标题、节标题、段名、数据项目描述及句子后必须用英文句号结束，否则程序无法编译。4 描述体（描述款目）在数据部中有若干个节，每个节中有若干个描述体，每个描述体又有若干个子句构成。四 源程序的书写格式1 16列，为“序号区”，为6位整数序号，不是程序本身的内容。序号不是必须的，但其所占区域要保留。2 第7列，为“指示符区（续行标志区）”。连接符“-”表示本行是紧接在上一行的后面。“*”或“/”表示本行为注释行。“D”表示本行为调试行。3 811
6、列，为“A区”，部头，节头，段头，层号01，层号77以及文件描述符FD，程序结束标题等应从A区开始书写，但不一定从第8列开始写。4 1272列（现在有时厂家规定可到80列），为“B”区，过程部中的句子只能从B区开始书写。5 7380列，为“注释区”。在写程序时，应注意以下几点：1大写或小写字母均可，习惯用大写字母。2相邻的两个字之间必须留一个以上的空格。3运算符和等号左右两边必须各留一个空格。4逗号，句号，分号的左边不能留空格，而右边应有空格。五 COBOL字符和COBOL单字 COBOL字符集包括以下字符： 09, az, AZ, + - * / = , . ; ” ( ) $空格 ： CO
7、BOL单字分三种：保留字、用户自定义字及系统名称。 COBOL单字的规则如下：1 字长为130个字符之间。2 只能由字母，数字和连字符“-”组成，第一个和最后一个字符不能用连字符。3 字中不能出现空格。4 小写字母与大写字母等价。5 不能用保留字作为用户定义字和系统名称，但用户定义字和系统名称可以用同一个单词。用户自定义字：文件、数据、标号、程序等所取的名称。系统名称：COBOL保留字，用于与操作环境通信，又COBOL厂家定义。分为：Computer name、Implementers name、Language name。保留字：有300多个。如：+、ACCEPT、ADD、BEFORE、DA
8、TA。六 常量1 数值常量（数字直接数） 例： 123, +45.67, -89.652 非数值常量（非数字直接数）:字符串内的引号用两个连续引号表示。 例：abcd, Expired,3 象征常量：用保留字表示某些常用常量(直接数)。例：ZERO ZEROS ZEROES SPACE SPACES HIGH-VALUE HIGH-VALUES LOW-VALUE LOW-VALUES QUOTE QUOTES ALL 常量七.处理数据的特点：层次的概念；记录和文件的概念。八 程序文本的复制与替换操作1. COPY语句COPY语句用COBOL源文本text-name替换从COPY字开始到终止句
9、号之前的内容。2. REPLACE语句 REPLACE语句将COBOL源程序某个段中的文本进行替换。替换从REPLACE语句的第一个格式开始，到REPLACE OFF 语句结束。第二章 标识部和环境部一 标识部（IDENTIFICATION DIVISION）（一）必写部分IDENTIFICATION DIVISION.PROGRAM-ID. 程序名.（二）任选部分 一般格式： AUTHOR. 作者姓名INSTALLATION. 设计这个程序的公司或部门。DATE-WRITTEN. 编写日期，可记入修订史，修改日期、原因及人员。DATE-COMPILED. 编译日期SECURITY. 保密程度
10、的描述。 注：标识部中的段标题只能按部描述中指定的顺序出现。3. 环境部（ENVIRONMENT DIVISION）环境部指定程序中与特定计算机或操作系统相关的方面，指明用到哪些设备，哪些文件，将程序中用到的内部文件名与外部文件（或外部设备）联系起来。如果程序不需要任何环境部提供的项目，则可以省略环境部。一般格式：ENVIRONMENT DIVISION.CONFIGURATION SECTION. 配置节SOURCE-COMPUTER.OBJECT-COMPUTER.SPECIAL-NAMES.INPUT-OUTPUT SECTION. 输入/输出节FILE-CONTROL.I-O-CONT
11、ROL.1 配置节包括SOURCE-COMPUTER, OBJECT-COMPUTER和SPECIAL-NAMES（专用名段）。SOURCE-COMPUTER段标识编译程序的计算机。若该段省略，则编译程序的计算机是源计算机。如果指定WITH DEBUGGING MODE 从句，则编译所有源调试行，否则把调试行作为说明语句。OBJECT-COMPUTER段标识编译程序运行的计算机。SPECIAL-NAMES段用于把系统中原规定的一些设备名或功能名或符号改为用户自己指定的名字或符号。SPECIAL-NAMES. CLASS REAL-NUMBER IS+-.-可用于类条件测试 DECIMAL-PO
12、INT IS COMMA. -逗号用作小数点，句号用作编辑符 CURRENCY SIGN IS “Y”. -表示货币符号的字符，DEFAULT$2 输入输出节输入输出节只用于文件，它把内部文件与外部文件（包括外部设备）联系起来。它有两个段：文件控制段：FILE-CONTROL段是给文件命名，指出存放该文件的外部设备及其他有关文件控制信息。对每个文件包含一个项目。FILE-CONTROL. SELECT FILE-1 ASSIGN TO “FILE-1.TXT”. SELECT FILE-2 ASSIGN TO DISK. SELECT FILE-3 ASSIGN TO PRINTER. 输入输
13、出控制段： I-O-CONTROL段包含定义程序返回点，不同文件共享的内存区和多文件卷中文件位置的项目。第三章 数据部一 数据部的节 数据部包含程序引用的所有数据的定义，如文件记录、变量、表格和报表。COBOL将数据部分成节，每个节是可选的，但程序中的节应按指定顺序定义。DATA DIVISION.FILE SECTION. 文件节WORKING-STORAGE SECTION. 工作存储节LINKAGE SECTION . 连接节COMMUNICATION SECTION. 通信节REPORT SECTION. 报表节1 文件节程序中每一个输入或输出文件都要在文件节中定义。包括：（1） 文件名和文件属性。（2） 文件中包括的记录名。（3） 每个记录中数据的层次关系。（4） 记录中各数据项的数据形式和占内存的大小。DATA DIVISION. (数据部)FILE SECTION. (文件节)FD FILE-1. （文件名） LABEL RECORD IS OMITTED DATA RECORD IS STUDENT-SCORE. 01 STUDENT-SCORE. (记录名) 03 NAME PIC X(10). 03 NUM PIC 9(06).
