COBOL学习笔记_20121231

合集下载

cobol学习02——基本语句

cobol学习02——基本语句

cobol学习02——基本语句1.MOVE语句 是整个COBOL中最常⽤额语句。

可以实现变量的赋值,参数传递等类似功能。

可以对单个数据进⾏复制,也开业对⼀组数据进⾏复制。

 a、复制单个数据  例: 01 IN-STATUS PIC X(5). --> MOVE 'READY' TO IN-STATUS. --> MOVE IN-STATUS TO OUT-STATUS. 说明:当复制的数据为数值类型时 如果⽬标数据的长度⼤于源数据项内容的长度时,则在⽬标数据项的⾼位以0进⾏填充 如果⽬标数据的长度⼩于源数据项内容的长度,对⾼位超出部分进⾏截断。

如果数值含有⼩数部分,需要作为浮点数做相应处理。

b、复制⼀组数据 通过MOVE语句对⼀组数据进⾏复制。

MOVE语句中的两个变量分别是数据组的名称。

注意点: 所复制的组内数据必须同名,不同名的数据将不被复制。

如果数据项在分组中,则分组名称也必须相同。

数据项在组内的顺序可以任意。

以FILLER命名的数据项不被复制。

2.PERFORM语句 执⾏COBOL中所编写的相应的处理过程。

过程处理相当于COBOL中的函数,PERFORM⽤于调⽤这些函数。

可通过THRU选项同时对多个处理过程进⾏执⾏。

3.ACCEPT和DISPLAY语句 可以⽅便调试。

a、ACCEPT语句接收数据 既可以接收⽤户从终端输⼊的数据,也可以接收由系统产⽣的相应数据。

接收的数据存放在 COBOL数据部中所定义的相应变量中。

4.REDEFINES语句 ⽤于同⼀块内存区域内进⾏重定义。

可以定义多个指向同⼀内存区域的变量。

01 TEST-AREA. 05 TEST-A PIC X(4). 05 TEST-B REDEFINES TEST-A.5.⽂件相关语句 ⽂件包括常规⽂件,以及VSAM⽂件。

基本操作包括⽂件的打开、关闭、⽂件读写。

a、OPEN和CLOSE语句 OPEN语句⽤于⽂件的打开操作。

cobol教程

cobol教程

cobol教程COBOL教程COBOL(Common Business-Oriented Language)是一种面向商业应用的编程语言,它主要用于处理大型企业的数据处理和事务处理。

本教程旨在帮助初学者了解和学习COBOL的基本概念和语法规则,从而能够编写简单的COBOL程序。

1. 基本语法COBOL程序由一系列的“句子”组成,每个句子以句点(.)结束。

句子由一系列的“词”组成,每个词由一个或多个字符组成。

COBOL对大小写敏感,因此要注意单词的大小写。

2. 数据定义在COBOL中,需要先定义要处理的数据。

可以使用“DATA DIVISION”来定义数据项及其属性。

数据项可以是数字、字符或日期等类型。

例如,可以定义一个名为“EMPLOYEE-ID”的变量来存储员工的唯一标识。

3. 过程部分过程部分是COBOL程序的核心,用于执行实际的业务逻辑。

可以使用各种控制结构(如IF语句和PERFORM循环)来实现条件判断和循环操作。

通过使用一系列的“句子”来描述要执行的操作。

4. 文件处理COBOL可以处理各种类型的文件,如顺序文件和索引文件。

可以使用“FILE SECTION”来定义文件及其属性,然后使用相关的文件处理语句来读取和写入文件。

5. 运行和调试COBOL程序可以通过COBOL编译器进行编译,并通过COBOL运行时系统来执行。

可以在运行过程中进行调试,以便找出程序中的错误并进行修复。

总结本教程提供了COBOL的基本概念和语法规则的介绍,以及一些常用的编程技巧和注意事项。

希望通过学习本教程,您能够对COBOL有一个初步的了解,并能够编写简单的COBOL程序。

COBOL简易教程

COBOL简易教程

COBOL简易教程主要内容1.COBOL语言的基本概念及程序的结构•一个例子●COBOL程序的结构●COBOL源程序的书写格式2.COBOL数据表示•常量•层次的概念•PICTURE语句•数据在内存中的各种形式3.算术运算●变量赋值 (MOVE, MOVE CORR)●算术运算(ADD, SUB, MUL, DIV, COMPUTE等)●内部函数4.字符串处理●合并、分离、取子串、替换等5.程序逻辑控制•条件的分类•IF、EVALUATE●PERFORM6.表处理定义、赋值、引用、查询7.读、写多格式记录文件8.常用语句小结9.子程序1.关于COBOL的初步知识◆COBOL是Common Business Oriented Language (通用商业语言,或称管理语言)的缩写◆最适用于数据处理◆比较接近于自然语言(英语)◆COBOL的结构严谨,层次性强◆COBOL的缺点是比较烦琐。

1.1 一个例子:***************************************************************** * * COBOL TRAINING PROGRAM * * VERSION 2.1.0 COPYRIGHT (C) 2004 * * WISTRON DALIAN SOFTWARE CO., LTD. * * ALL RIGHTS RESERVED. * * * **************************************************************** IDENTIFICATION DIVISION.PROGRAM-ID. EXERCIS6.AUTHOR. QXLU (WISTRON DALIAN).DATE-WRITTEN. 04-06-23.DATE-COMPILED. 04-06-23.*----------------------------------------------------------------* * COMMENT : * * * *----------------------------------------------------------------* ENVIRONMENT DIVISION.CONFIGURATION SECTION.SOURCE-COMPUTER. IBM-3084.OBJECT-COMPUTER. IBM-3084.INPUT-OUTPUT SECTION.FILE-CONTROL.SELECT DDI01 ASSIGN TO "DDI01".SELECT DDO01 ASSIGN TO "DDO01".*DATA DIVISION.FILE SECTION.*FD DDI01 LABEL RECORD IS STANDARD DATA RECORD AREIN-AREA0, IN-AREA1.01 IN-AREA0.05 IN-YEAR-NUM PIC 9(2).05 IN-PRINCIPAL PIC 9(4)V99.05 FILLER PIC X(07).05 RMARK PIC X(01) VALUE X"0A".01 IN-AREA1.05 IN-INTEREST-RATE OCCURS 5 TIMES PIC V999.05 RMARK PIC X(01) VALUE X"0A".FD DDO01 BLOCK 0 RECORDS LABEL RECORD STANDARD RECORDING F.01 PRT-REC.05 FILLER PIC X(79).**===============================================================* WORKING-STORAGE SECTION.01 IN-FILE-DATA.05 YEAR-NUM PIC 9(2).05 PRINCIPAL PIC 9(4)V99.05 INTEREST-RATE-TABLE.15 INTEREST-RATE OCCURS 5 TIMES PIC V999.*01 HEADER0 PIC X(79) VALUE' TABLE OF SIMPLE INTEREST'.01 HEADER1 PIC X(79) VALUE' ************************************'.01 HEADER2 PIC X(79) VALUE' PRINCIPAL 4,000.00 FOR 10 PERIODS'.01 HEADER3 PIC X(79) VALUE SPACE.01 HEADER4 PIC X(79) VALUE' PERIOD INTEREST RATE'.01 HEADER5.05 OUT-I-R OCCURS 5 TIMES PIC BBBBBBBBB.999.01 DETAIL0.05 OUT-PERIOD PIC ZZZ.05 OUT-P-I-S-ITEM OCCURS 5 TIMES.10 FOURSPACES PIC X(04) VALUE SPACE.10 OUT-P-I-SUM PIC 9,999.99.01 CNT-YEAR-NUM PIC 9(2).01 I-R-INDEX PIC 9.01 P-I-SUM PIC 9(6)V99.****************************************************************** * P R O C E D U R E D I V I S I O N * ***************************************************************** PROCEDURE DIVISION.*INPUT-DATA SECTION.OPEN INPUT DDI01.OPEN OUTPUT DDO01.READ DDI01.MOVE IN-YEAR-NUM TO YEAR-NUM.MOVE IN-PRINCIPAL TO PRINCIPAL.READ DDI01.MOVE IN-AREA1 TO INTEREST-RATE-TABLE.*PROCESS-OUTPUT-DATA SECTION.*PRINT HEADERWRITE PRT-REC FROM HEADER0 BEFORE 1.WRITE PRT-REC FROM HEADER1 BEFORE 1.WRITE PRT-REC FROM HEADER2 BEFORE 1.WRITE PRT-REC FROM HEADER3 BEFORE 1.WRITE PRT-REC FROM HEADER4 BEFORE 1.* PRINT INTEREST RATEPERFORM TEST BEFORE VARYING I-R-INDEXFROM 1 BY 1 UNTIL I-R-INDEX > 5MOVE INTEREST-RATE( I-R-INDEX ) TO OUT-I-R( I-R-INDEX )END-PERFORM.WRITE PRT-REC FROM HEADER5 BEFORE 1.*PROCESS & PRINT DETAILSPERFORM PRINT-DETAILVARYING CNT-YEAR-NUM FROM 1 BY 1UNTIL CNT-YEAR-NUM > YEAR-NUM.*CLOSE-FILES SECTION.CLOSE DDI01.CLOSE DDO01.*STOP RUN.**---------------------------------------------------------------** PRINT-DETAIL **---------------------------------------------------------------*PRINT-DETAIL SECTION.*MOVE CNT-YEAR-NUM TO OUT-PERIOD.PERFORM PROCESS-DETAILVARYING I-R-INDEX FROM 1 BY 1 UNTIL I-R-INDEX > 5.WRITE PRT-REC FROM DETAIL0 BEFORE 1.*PRINT-DETAIL-RTN.EXIT.**---------------------------------------------------------------** PROCESS-DETAIL **---------------------------------------------------------------*PROCESS-DETAIL SECTION.*COMPUTE P-I-SUM = PRINCIPAL *( INTEREST-RATE( I-R-INDEX ) * CNT-YEAR-NUM + 1 ).MOVE P-I-SUM TO OUT-P-I-SUM( I-R-INDEX ).*PROCESS-DETAIL-RTN.EXIT.** *** END OF CODING EXERCIS6 ***1.2 COBOL 程序的结构(1/p4)部(Division) 一部可包括若干节节(Section) 一节可包含若干段段(Paragraph) 一段可包含若干句子句子(Sentence) 一个句子可包含若干语句语句(Statement) 制定计算机完成一定的操作子句(Clause) 制定完成某一方面的功能每个程序应包含四个部IDENTIFICATION DIVISION (标识部)主要用来指定源程序名字,也可以写入其他用作备忘的某些信息(如日期、作者等)。

COBOL学习基础教程 01

COBOL学习基础教程 01

COBOL 概述1.COBOL语言的发展概述COBOL是Common Business Oriented Language(商业通用语言)的缩写。

实际上,COBOL不仅是商业数据处理的理想语言,而且广泛应用于数据管理领域,如财会工作,统计报表,计划编制,情报搜索,人事管理等。

因此COBOL也被称为“用于管理的语言“。

在计算机的应用领域中,数据处理(data processing)是应用最为广泛的一个领域。

数据处理的日益广泛应用要求人们设计出能满足实际数据处理工作中各种要求的一种计算机语言。

COBOL就是在这种形势下应运而生的。

1959年COBOL-611965年COBOL-651978年COBOL-781985年COBOL-852.COBOL语言的特点①最适于数据处理领域。

所谓数据处理是指对大量数据的收集,统计,分类和加工。

例如企业管理,库存管理,报表统计,账目管理,信息情报检索等方面都属于数据处理。

数据处理的特点是:算术计算量小而逻辑处理多;输入输出多;数据间存在着一定的逻辑关系;大量的分类排序;对打印报表要求比较高,多样化等等。

②COBOL比较接近于自然语言(英语)。

COBOL程序看起来很像一篇用英语写出来的文章。

比如 ADD A TO B 表示 A + B = B 。

COBOL采用大量英文词汇和句型,学过英语的人看COBOL程序感到通俗易懂。

③通用性强,由于COBOL语言的标准化程度较高。

一个计算机上的COBOL程序向另一计算机系统上移植是比较容易实现的。

④COBOL的结构严谨,层次分明。

每个程序分四大部分(称为部 DIVISION),每个部下面分为若干节,每个节下面分为若干段。

每一部分都有固定的程式。

⑤COBOL的缺点是比较繁琐。

无论程序大小简繁,四大部分都要写齐,对每个部进行必要的定义和说明。

因此源程序显得比较冗长。

3.COBOL程序的结构①部IDENTIFICATION DIVISION(标识部) : 主要用来指定源程序的名字,也可以写入其他做备忘的某些信息。

COBOL培训教程-11

COBOL培训教程-11

COBOL培训教程-11COBOL是一种过程型编程语言,最初由美国联邦政府财政部和IBM公司共同开发,主要应用于商业和金融领域。

随着计算机技术的不断发展和商业需求的变化,COBOL确立了其在企业信息系统中的重要地位。

而为了满足企业对COBOL程序员的需求,也为有志成为COBOL开发人员的IT专业人士提供了学习机会,许多培训机构开始提供COBOL培训教程,其中包括“COBOL培训教程-11”。

一、“COBOL培训教程-11”是什么?“COBOL培训教程-11”是一个专门为COBOL初学者或想深入学习COBOL的人提供的培训教程。

本教程涵盖了COBOL的基本语法、程序结构、数据类型、数据处理、文件处理、子程序等内容,同时还涉及到企业级COBOL程序的编写和调试。

本教程注重实践操作,通过编写实际的程序来帮助学习者更好地理解和掌握COBOL编程。

二、为什么要学习COBOL?COBOL是一种非常稳定、安全、高效的编程语言,被广泛应用于金融、制造、保险、医疗等行业的业务处理和管理系统。

许多企业的信息系统至今仍在使用COBOL编写的程序,需要维护和升级。

因此,学习COBOL开发有非常广阔的就业前景。

除此之外,COBOL还有以下优点:1. 语法简单易懂,学习门槛不高。

2. 可以处理大型数据,并有效地组织和管理数据。

3. 可以与其他编程语言或工具集成,提供灵活性。

4. 可以从源代码的角度审计系统,保证信息安全。

三、“COBOL培训教程-11”的学习流程1. 熟悉COBOL开发环境学习COBOL之前,需要熟悉COBOL开发环境。

现有的主流开发环境包括微软Windows、Linux、UNIX等,还需要安装COBOL编译器和调试器等开发工具。

在学习过程中需要熟练掌握开发环境的基本使用方法。

2. 学习COBOL基本语法COBOL的基本语法包括程序结构、基本语句、数据类型、运算符等。

学习者需要熟悉这些基本语法,从而能够编写简单的COBOL程序。

COBOL基础培训

COBOL基础培训
➢ COBOL是Common Business Oriented Language的缩写,是面向商业通用编程语言。 它是专门为商业数据处理而设计的计算机高级程序语言。广泛用于数据管理领域。应用 于多个行业如:银行,证券,金融,制造,等等。
➢ 1960年4月正式发表COBOL 61。目前最新版COBOL 2002。
➢ 常量:COBOL常量分为数值常量,非数值常量,表意常量。 ✓ 数值常量:由数字 0 ~ 9 ,正负号和小数点组成,如:123, 45.67, -890 ✓ 非数值常量:用匹配的引号(单)括起来的字符串,如:’$123’,’HELLO!’。 由纯数字组成 的非数值常量不能用于数学运算,如:’123’和123不同。 ✓ 表意常量: QUOTE, QUOTES表示引号,如:QUOTE ‘HENRY’ QUOTE ZERO, ZEROS, ZEROES : 表示零字符;SPACE, SPACES : 表示空格 HIGH-VALUE, HIGH-VALUES : 表示具有最高值的字符(每个字符二进制为11111111) LOW-VALUE, LOW-VALUES : 表示具有最低值的字符 (每个字符二进制为00000000) ALL : 表示由该量组成的字符串
➢ 数据名:相当于其它语言中的变量名,它代表一个具体的数据项。 ✓ 只能由字母(至少一个),数字和连字符“-“组成,连字符不能出现在两端,不能包含空格 ✓ 数据名长度不能超过30个字符 (length<=30) ✓ 尽量使用有意义的英文字或拼音,如:NAME,XING-MING ✓ 不能用保留字作为数据名,多使用连字符,如: NAME-OF-STUDENT
ENVIRONMENT
INPUT-OUTPUT
FILE-CONTROL.

cobol学习笔记

cobol学习笔记

cobol学习笔记(1) COBOL入門 COBOLとは?2010/06/29 16:35COBOL面向商业的通用语言 (Common business Oriented Language) コボル∙ 1960.04 CODASYL-60∙ 1968. ANSI COBOL(COBOL68)第1次規格∙ COBOL74 第2次規格∙ COBOL85 第3次規格∙ COBOL2002 第4次規格COBOL是Common Business-Oriented Language(公用面向商业的语言)的缩写,主要供数据处理、数据收集及分析之用。

COBOL自60年代初开始广泛应用于计算机应用领域(商业和其他领域)。

事实上,除了商业之外,各种管理工作都广泛使用COBOL,如各种统计工作,财会工作,企业计划编制,作业制度,情报检索,人事管理等。

COBOL针对商业世界的使用,是真正商用应用程序开发的首选语言。

1.适于数据处理领域。

2.采用英语语法的高级语言,可读性、可维护性、可移植性较强。

3.通用性强,标准化程度较高。

4.结构严谨,层次分明。

5.缺点是比较繁琐。

cobol的书写格式(每行)1、前6列为序号区(一般不编辑)2、第7列为标示列,仅可以写如下几个标示符。

a. “*” 注释符(注释当前行的代码)b “/“ 注释符(注释当前行的代码,程序编译时,强制程序清单另起一页,不建议使用)c “-“ 字符串连接符d “D” DEBUG行标示符(程序为DEBUG模式时,标有该标示符的语句行代码执行,否则和注释行效果一样)3、第8列---11列为A区,包括以下内容。

a 部、节名。

b 层号014、第12列---72列为B区,过程部的程序必须写在B区中。

5、第72以后部分不能编辑。

cobol学习笔记(2)COBOL的程序结构 IDENTIFICATION DIVISION 标识部見出し部2010/06/29 20:44COBOL程序由4部(DIVISION)组成:IDENTIFICATION DIVISION.(标识部)、ENVIRONMENT DIVISION.(环境部)、DATA DIVISION.(数据部)、PROCEDURE DIVISION.(过程部),而每个部又由若干节 (SECTION)组成。

COBOL程序设计语言入门教程

COBOL程序设计语言入门教程

COBOL程序设计语言入门教程第一章:COBOL简介COBOL,全称为“公共业务计算机编程语言”(Common Business-Oriented Language),是一种专门针对商业应用开发的高级程序设计语言。

本章节将为读者介绍COBOL的背景、特点以及应用领域。

1.1 COBOL的背景COBOL于1960年首次发布,由美国政府、大型企业和专业团体联合开发。

当时,计算机还是新兴的技术,大多数应用主要集中在科学计算领域。

为了适应商业应用的特殊需求,COBOL 应运而生。

1.2 COBOL的特点COBOL以易读性和易维护性著称。

它采用了自然语言风格的编码,使得非专业的程序员也能轻松理解和修改代码。

此外,COBOL还具有丰富的数据处理功能和强大的文件处理能力,适用于处理大量数据的商业应用。

1.3 COBOL的应用领域COBOL广泛应用于金融、保险、银行、物流以及政府行政等领域。

由于COBOL的稳定性和成熟性,一些大型企业仍在使用COBOL开发和维护核心业务系统。

第二章:COBOL基础语法在本章节中,我们将介绍COBOL的基本语法,包括程序结构、数据类型、变量定义、运算符等内容。

2.1 程序结构COBOL程序由多个部分组成,包括程序头、数据定义、主程序和辅助程序。

程序头包含程序名称、作者、日期等信息;数据定义定义所有的变量和文件;主程序包含实际的业务逻辑;辅助程序用于处理一些通用的功能。

2.2 数据类型和变量定义COBOL的数据类型包括数字、字符串、日期、逻辑等。

变量定义使用关键字“PIC”(Picture)来指定变量的类型和长度,例如“PIC 9(4)”表示一个4位数的整数变量。

2.3 运算符COBOL支持常见的算术运算符(加、减、乘、除)和逻辑运算符(与、或、非)。

此外,COBOL还提供了特殊的字符串连接运算符和条件运算符,用于处理字符串和条件语句。

第三章:COBOL程序设计在本章节中,我们将介绍COBOL程序的设计方法和常用技巧,包括文件处理、条件语句、循环结构以及子程序的使用。

  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

cobol语言.修订版.(上册+下册).pdf2012-12-14(1~22 )COBOL语言特点:(1) 适合数据处理(算术计算量小而逻辑处理多;输入输出数据量大;数据间有一定逻辑关系,即层次关系;大量分类排序;对报表要求高、多样化等)(2) 接近自然语言英语,易于理解(3) 通用性强,易于移植(4) 结构严谨,层次分明,每个程序分为4部分(division:标示部Identification division、环境部envroNment division、数据部data division、过程部procedure division)、每部分分为若干节(section 有节头标示,类似部头)、节下面分为若干段(paragraph 有段头标示)。

每一部分都有固定格式。

(5) 缺点是比较繁琐。

不乱程序逻辑如何,都必须按照四大部分生成,对每部分都必须定义和说明,即使该部分实际上没有内容,也要写出头部,导致源程序冗长。

=================一个简单的COBOL程序:Code:IDENTIFICATION DIVISION.PROGRAM-ID. EXAM1.ENVIRONMENT DIVISION.DATA DIVISION.PROCEDURE DIVISION.S. DISPLAY 'THIS IS A COBOL PROGRAM.'STOP RUN.=================IDENTIFICATION DIVISION: 用来指定源程序名称,也可写入其他信息(如作者、日期、保密等)。

ENVIRONMENT DIVISION: 程序中用到的数据文件名和计算机的设备的对应关系,即把某一数据文件和一外部设备关联起来。

此外,还可以指定目标程序中使用的专门控制方法和程序所用内存区的大小。

DATA DIVISION: 程序用到的所有数据的类型和占用内存的情况。

PROCEDURE DIVISION: 用来给出程序要执行的命令,是计算机产生相应的操作。

部下面可以有节,节下面有段;或者部下面直接是段。

=================以上四个部分,只有过程部是执行部分,是核心部分。

过程部中,每段由若干句(Sentence)组成,每句以句号加一个以上的空格来结束的。

一个句子只能由一个语句组成,一个语句加一个句号后跟一个或多个空格形成一个句子。

一个句子可以包含多个子句(Clause),每个子句也有一个动词,指定某一方面的功能。

除了过程部外,环境部和数据部也可以包含子句,如SELECT子句、文件描述子句等。

=================COBOL每行80列,每行分为几个区:(1) 1~6列为“标号区”,一般前3列表示页号,后3列表示本页行号。

标号应当按照从小到大顺序填写,但可以不连续。

可以填标号,也可以不填写,对程序没有影响。

(2) 第7列:“续行标志区”,写上续行符"-",表示本行是续上一行后面的。

一般只有拆分字符需要两行紧连或者一个长的字符串需要拆成两行时才使用,否则可以空着。

不推荐使用续行符,容易导致错误。

(3) 第8~11列,称为"A区",程序的某些部分,如部头、节头、段头、层号01、层号77以及文件标示符FD等应从A区开始书写。

可以从第8列开始,也可以不从,但必须在8~11列的任何一列开始。

(4) 第12~72列,称为"B区",是程序的正文部分,过程部的句子必须从B区开始写,不能写入A区中。

(5) 第73~80列,为“注释区”,一般是简单说明,程序编译和执行时都不会理会该区内容。

80列的划分区,只是对程序有以上限制,对于数据而言没有以上分区限制,即输入数据可以从第1列用到第80列。

所有字母应大写;相邻两个字之间应该留一个或以上空格;运算符和等号两边必须各留一个空格;过程部中左括号的左侧和右括号的右侧都要留一个空格,内侧不必留空格;逗号、句号、分号的左边不能留空格,右边必须留空格;一个空格和多个空格作用相同,但引号中的除外;允许一行写几个语句,也可以一个语句写在多行上。

=================COBOL字符集:COBOL程序中允许出现的字符(引号内的除外)。

数字:0~9大写字母:A~Z专用字符15个:加号+减号或连接号-乘号或星号*除号/等号=逗号,句号或小数点 .分号;引号'或"括号()小于号 <大于号 >空格货币符号$#,!,?,%等字符属于系统字符集但不属于COBOL字符集,不能在程序中出现(引号内除外)。

=================COBOL字分为两类:保留字和用户字(非保留)。

保留字指在COBOL中已规定作专门用途的字,代表特定的含义,不能另作他用。

=================数据名就是由程序设计者定义的一片内存区域,即用一个符号代表一个地址。

长度只能是1~30个字符之间;只能由字母、数字和连接符"-"组成,至少含一个字母,连接符不能出现在名称的两端,不能出现空格;不能使用COBOL保留字,一般使用连接符是避免使用保留字的好方法,或者使用X或数字开头的名称;最好使用望文生义的单词命名。

=================常量包括数值常量(Numerical Literal)、非数值常量(Nonnumerical Literal)和表意常量(Figurative Constant)三类。

数值常量不能超过18位数字;至少要有一个数字,不能含有超过一个符号;数字之间不能有空格。

非数值常量指用引号引起来的字符串;非数值含量不能参与运算;如果想把引号也放入常量,需要使用QUOTE保留字实现,如DISPLAY QUOTE 'ABCD' QUOTE,表示'ABCD'六个字符,但QUOTE本身不能替代引号;非数值常量不能超过120个字符。

表意常量就是指用保留字表示的一些特殊常量,如用ZERO表示0,SPACE表示空格等。

=================COBOL的数据具有层次的特征,类似于一颗倒立的树或者是金字塔结构,一般将这样的一条数据称之为一个记录(record)。

为了反映数据在一个层次结构中的层次,引入了层号的概念,使用2位数来表示。

层号小表示较高的层次。

记录是具有一定层次关系的一组数据项的最大集合。

是内存中具有独立逻辑含义的最大可存取项,层号为01。

记录下分为几项,不能继续分的称为初等项或基本项(Element item)。

初等项是数据的基本单位;如果还能继续分,称为组合项(Group Item),组合项下可以是组合项或者初等项。

多个记录可以组成一个文件。

但文件一般存储在外部,不在内存中,内存中最大存取项是记录。

2012-12-1923~28过程部是COBOL的核心部分,应当以过程部为主体,找出几部分之间的关系。

过程部的特点:(1) 过程部是程序的第四部分(2) 过程部都以一个动词开始,如MOVE、READ、WRITE、IF。

表示计算机应当执行的操作。

(3) 动词后面一般都跟着一个操作的对象,可以是数据文件或者数据名。

(4) 过程部一律写在B区上,即第12列开始,可以写在一行或者多行,续行也从B区开始。

=========输入输出1、ACCEPT语句从键盘终端或者指定输入设备获取少量输入数据。

ACCEPT 标识符[FROM 助忆名]这里的标识符必须是可以唯一的标识一个数据项的数据名。

如部->节->段->数据项的情况下,使用OF关联上下关系,保证标识符的唯一性,如01 A.02 B1.03 C ...03 D ...02 B2.03 C ...03 D ...必须写成 C OF B1 和 C OF B2 区分两个不同的C以上[]内的内容表示是可选项,{}内的内容表示其中各项可多选一,...表示之前的{}或[]的内容可以重复多次,有下划线的保留字表示必写,没有的表示可以省略。

以上的FROM省略时表示从系统默认输入设备获取数据,如键盘,增加时,表示从指定设备获取数据,助忆名表示从一个设备名,具体的名称可以在ENVIRONMENT DIVISION中定义:ENVIRONMENT DIVISION.CONFIGURATION SECTION. 配置节SPECIAL-NAMES. 专用字段CONSOLE IS ABC. 将输入设备定义为助忆名:ABCACCEPT T FROM ABC.表示从输入设备获取数据并赋值给变量T。

ACCEPT之后只能跟一个标识符,不能跟多个。

=========2、DISPLAY语句用于少量数据输出到指定外设上。

DISPLAY {标识符|常量}[标识符|常量]...[UPON 助忆名]默认在屏幕上显示数据,使用UPON指向指定的设备名输出每执行一次DISPLAY,总是从一个新行开始;如果一行显示不完,会自动换行显示。

正式程序中,一般都不使用ACCEPT和DISPLAY,以提高系统效率,减少手工干预。

=========3、READ语句READ 文件名RECORD [INTO 标识符] [;AT END 执行语句]分号可以省略例如READ IN-FILE,表示从IN-FILE文件中读取数据,IN-FILE称为“内部文件名”,它与外部文件名之间的关系是通过ENVIRONMENT DIVISION中指定的,如:Code:ENVIRONMENT DIVISION.INPUT-OUTPUTSECTION.输入输出节FILE-CONTROL.文件控制段SELECT IN-FILE ASSIGN TO 外部文件名.2012-12-21 (29~38)内部文件名的长度不能超过30byte,只能由数字、字母和连接符组成,必须至少包含一个字母。

每执行一次READ语句,只读取文件中的一条记录,为避免误解,可以加上关键字RECORD,如:READ IN-FILE RECORD其中,RECORD是可选项,是否写,效果一样。

在计算机内存中专门开辟一片存储单元存放读入记录,所以大小应当等于一条记录的大小。

每次读取下一条记录,会冲掉前一条记录的内存区域,所以必须在处理下一条之前保存处理结果,内存中不会保存前一条记录信息。

输入记录区样例:Code:DATA DIVISION.FD IN-FILE LABEL RECORD IS STANDARD.01 IN-RECORD.02 DATE-IN.03 YEAR PIC 99. (表示2位整数)03 MONTH PIC 99.03 DAYy PIC 99.02 PRODUCT-CODE PIC 9(4).02 CUSTOMER-CODE PIC 9(4).02 QUALITY PIC 9(6).02 UNIT-PRICE PIC 9(6).FD是File Description(文件描述)的缩写,表示从该行起是“文件描述体”。

相关文档
最新文档