COBOL语言基础教程
cobol基本语法
基本語法一、COBOL基本語法一、cobol的书写格式（每行）1、前6列为序号区(一般不编辑)2、第7列为标示列，仅可以写如下几个标示符。
a. “＊”注释符(注释当前行的代码)b “－“字符串连接符3、第8列---11列为A区，包括以下内容。
a 部、节名。
b 层号014、第12列---72列为B区，过程部的程序必须写在B区中。
5、第72以后部分不能编辑。
二、cobol的语法结构(几大部分)1、标示部(IDENTIFICATION DIVISION):提供程序的一般性文档说明。
2、环境部(ENVIRONMENT DIVISION): 提供程序外部有关的项目。
a.配置节(CONFIGURATION SECTION)①.指定源计算机(SOURCE-COMPUTE).②.目标计算机(OBJECT-COMPUTE).b. 输入输出节(INPUT-OUTPUT SECTION).文件的物理路径的定义。
方法二:(过程部中动态指定文件)SELECT FILE-LOG ASSIGN TO SELECT-FILEORGANIZATION IS LINE SEQUENTIAL.在数据部定义字符串变量SELECT-FILE,在文件FILE-LOG打开前动态指定文件路径。
3、数据部(DATA DIVISION)。
程序中的变量都在数据部中定义，Cobol中没有全局变量和局部之分。
（变量的类型结构参照5.变量类型）a. 文件节(FILE SECTION)给环境部定义的文件指定一个RECORD变量，读写文件用:FD FILE-LOG.01 RECORD-LOG PIC X(2000).b. 工作存储节定义程序中用到的临时变量。
a) COBOL变量定义需要加层号(表示层次关系),·层号从01开始如: 01 I PIC X(10).·组合项如: 01 WORK-AREA.05 NUM-1 PIC 9(09).05 STR-1 PIC X(10).b) 层号依次排列顺序为:01 ,05,10,15,20,30 ·······c.连接节子程序的参数的定义。
《COB基本教程》课件
COB程序的错误处理与异常情 况
探讨如何处理COBOL程序中的错误和异常情况，保证程序的正确性和稳定性。
COB程序的优化与性能提升
提供COBOL程序优化的基本原则和方法，以及如何优化程序性能以提高执行 效率。
COB与其他编程语言的比较
对比COBOL与其他编程语言，如Java、C++等，分析它们在不同领域的应用和 优势。
COB程序的控制结构
讲解COBOL中的控制结构，如条件语句、循环语句和分支语句等，以及它们在程序中的使用方法。
COB文件处理与数据存储
介绍COBOL中文件处理的基本概念和技术，包括文件读写、文件组织和数据 存储。
COB程序的调试与运行环境
指导如何调试COBOL程序，并提供了与COBOL程序运行相关的开发环境和工具。
COB程序的多人协作与版本管 理
指导多人协作开发COBOL程序的方法和技巧，以及版本管理工具的使用。
COB编程的未来发展趋势
展望COBOL编程的未来发展趋势，包括新技术的应用和COBOL语言的改进。
探索COBOL语言的特点，包括其面向业务的设计思想、可读性和可维护性。
COB程序开发基本流程
详细介绍COBOL程序的开发流程，包括需求分析、程序设计、编码、调试和 测试等环节。
COB程序的数据类型和变量声 明
解释COBOL中常用的数据类型及其在程序中的声明和使用方法。
COB常用内置函数与语句
介绍COBOL常用的内置函数和语句，如字符串处理、数学运算和逻辑控制等。
COB在企业信息系统中的应用
展示COBOL在企业信息系统开发中的广泛应用，如银行系统、保险系统和物流系统等。
COB程序的维护和更新
介绍COBOL程序的维护和更新方法，包括版本控制、修复Bug和升级功能等。
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程序。
COB培训教程
COB培训教程COB培训教程是一种学习COB编程语言的课程教程。
对于那些想要学习COB编程语言的人来说，这个教程提供了许多有用的信息。
如果你想学习COB编程语言，那么这篇文章会介绍一些必须知道的知识。
COB培训教程基础COBOL全称是COmmon Business Oriented Language，是一种应用比较广泛的商业编程语言，被广泛应用于银行、保险、证券等行业。
COBOL已经出现了很多年，但它仍然是一种用于业务领域的编程语言。
COBOL语言的主要功能是处理文件和数据。
由于其简单易懂的语法和大量的库函数，还有大量的工具和支持，使得COBOL变得尤为重要。
作为一个普遍使用的编程语言，COBOL已经被广泛应用。
COBOL编程语言使用严密的语法规则和代码组织来定义和运行商业应用程序。
COBOL编程语言具有相对较高的可读性和可维护性，这使得它成为了电脑系统的一部分。
COBOL的学习在学习COBOL编程语言时，首先需要对编程的基础有一定的了解。
通常情况下，学习COBOL的最佳方式是了解COBOL的语法规则和数据结构。
对于COBOL学习者来说，需要学习以下内容：1. COBOL编程语言的概述和发展历程2. COBOL中的基本数据类型和数据结构3. 构建COBOL程序的关键元素4. COBOL语句和控制结构5. 使用COBOL编写程序的基本规则和方法除了这些基本的知识，还需要了解一些高级的概念和技术。
这些概念和技术包括：1. COBOL中的高级数据类型和数据结构2. 高级算法和逻辑技巧3. 多线程、容错和扩展性4. 优化COBOL代码的技巧5. 是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基础
Cobol 语法基础作成者审查者承认者丁成远变更履历日期版本作成者备注1。
0丁成远初版2005—03-01一．COBOL 语言的特点最适于数据处理领域：算数计算量少而逻辑处理量多，输入输出量大,数据间存在着一定的逻辑关系,大量的分类排序；COBOL比较接近英语，容易懂;通用性强，易植，COBOL结构严谨，层次分明。
二。
COBOL的组成部分1．标识部（IDENTIFICATION DIVISION):用于标识程序名.IDENTIFICATION DIVISION。
PROGRAM-ID。
程序名。
［AUTHOR。
作者名。
］[INSTALLATION. 计算机设置场所。
][DATE-WRITTEN. 源程序编写日期。
]［DATE-COMPILED. 源程序编译日期. ][SECURITY. 保密程度。
］2．环境部（ENVIRONMENT DIVISION)：用于说明程序运行的环境。
ENVIRONMENT DIVISION.CONFIGRATION SECTION.SOURCE—COMPUTER。
源计算机名。
OBJECT—COMPUTER. 目标计算机名。
［SPECIAL—NAMES。
专用名描述项。
］[INPUT—OUTPUT SECTION。
FILE-CONTROL。
{文件控制描述体}[I—O—CONTROL。
输入输出控制描述体]］3．数据部（DATA DIVISION）：用于说明程序中涉及的所有数据。
4．过程部（PROCEDURE DIVISION）:是程序的核心部分，它决定计算机应进行什么操作.三。
最简单的COBOL 程序举例1．环境配置说明：（１)安装“Fujitsu NetCOBOL for Windows V7。
0"的企业版,安装完成后选择“COBOL Project Manager"打开COBOL主控制台。
(２）选择“Open Project”打开存在的COBOL程序，或者输入新的Project名选择打开，可以建立新的COBOL Project.。
COBOL经典讲义
COBOL语言的发展概述• COBOL是Common Business Oriented Language(商业通用语言)的缩写。
• COBOL不仅是商业数据处理的理想语言，而且广泛应用于数据管理领域，因此COBOL也被称为“用于管理的语言”。
• 在计算机的应用领域中，数据处理（data processing）是应用最为广泛的一个领域。
数据处理的日益广泛应用要求人们设计出能满足实际数据处理工作中各种要求的一种计算机语言。
COBOL就是在这种形势下应运而生的。
COBOL语言的特点• 最适于数据处理领域。
• COBOL比较接近于自然语言（英语）。
• 通用性强。
• COBOL的结构严谨，层次分明。
• COBOL的缺点是比较繁琐。
COBOL程序的结构• COBOL源程序的结构• 标识部 环境部 数据部 过程部段 段 段 节 节 节 节 节 节 节 节 节 段 …… 描述体 …… 段 ……句子 …… 句子 …… 语句 ……动词 ……COBOL的四部标识部(IDENTIFICATION DIVISION)主要用来指定源程序名字，也可以写入其它用作备忘的某些信息(如日期、作者等)。
环境部 (ENVIRONMENT DIVISION)指出程序中用到的数据文件名与计算机系统的设备的对应关系，即把某一文件名与某一外部设备联系起来。
数据部(DATA DIVISION)程序中所用到的全部变量都应在数据部中说明它们的类型和所占的内存。
过程部(PROCEDURE DIVISION)编写相应的程序语句来实现源程序需要实现的相应功能。
COBOL源程序的书写格式• ANSI书写格式标号区续行区 A 区 B 区（正文区）注释1 6 7 8 11 12 72 73 80• 终端格式• COBOL字符和COBOL字• COBOL字符 COBOL字• 系统字符集保留字• COBOL字符集例如：DIVISION，SECTION • 包括以下字符：用户字（非保留字）・数字：0〜9・大写字母：A〜Z・小写字母：a〜z・ 专用字符： + ，-，*，/等数据名的命名规则• 每个数据名的长度为1〜30个字符之间。
第五章 COBOL基本语句(1)
COBOL语言程序设计
DISPLAY "Name is ", Initials SPACE Surname. DISPLAY "Date is " CurrentDay SPACE CurrentMonth SPACE CurrentYear. DISPLAY "Today is day " YearDay " of the year". DISPLAY "The time is " CurrentHour ":" CurrentMinute. STOP RUN.
2013-10-28
COBOL语言程序设计
例子1: 01 TAX-INFO. 03 NET-INCOME PIC S9(8)V99. 03 TAX-RATE PIC V999. EVALUATE NET-INCOME WHEN 0 THRU 12500 MOVE 0 TO TAX-RATE WHEN 12501 THRU 28000 MOVE 0.15 TO TAX-RATE WHEN 28001 THRU 50000 MOVE 0.28 TO TAX-RATE WHEN OTHER MOVE 0.33 TO TAX-RATE END-EVALUATE.
2013-10-28
COBOL语言程序设计
JCL文件：
//UR00203 JOB ACCT#,UR001,NOTIFY=UR002,MSGLEVEL=(1,1) //MYLIB JCLLIB ORDER=SYS1.PROCLIB //STEP1 EXEC PROC=IGYWCLG //COBOL.SYSIN DD DSN=UR002.COBOL.SOURCE(AANDD),DISP=SHR //SYSPRINT DD SYSOUT=* //GO.SYSIN DD * COUGHLANMS9476532LM511245M
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
cobol语言基础培训教程2009年04月23日 | 5:23 下午分类：大型机｜Mainframe | 标签：cobol 数据类型、COBOL 程序举例、cobol入门、cobol教程、cobol语言、大型机培训 |CHAPTER 1 COBOL 概述COBOL 是Common Business Oriented Language 的缩写。
它不仅是商业数据处理的理想语言，而且广泛用于数据管理领域，因此COBOL 语言也被称为”用于管理的语言”。
一。
COBOL 语言的特点最适于数据处理领域：算数计算量少而逻辑处理量多，输入输出量大，数据间存在着一定的逻辑关系，大量的分类排序；COBOL比较接近英语，容易懂；通用性强，易移植,COBOL结构严谨，层次分明。
二。
COBOL的组成部分：1。
标识部（IDENTIFICATION DIVISION）：用于标识程序名。
2。
环境部（ENVIRONMENT DIVISION）：用于说明程序运行的环境。
3。
数据部（DATA DIVISION）：用于说明程序中涉及的所有数据。
4。
过程部（PROCEDURE DIVISION）：是程序的核心部分，它决定计算机应进行什么操作。
三。
最简单的COBOL 程序举例：COL 1 —6 7 8 12—72 73—80IDENTIFICATION DIVISION。
PROGRAM-ID。
PSAMPLE1。
ENVIRONMENT DIVISION。
DATA DIVISION。
PROCEURE DIVISION。
DISPLAY ’THIS IS A COBOL PROGRAM.’STOP RUN。
四。
COBOL 源程序的书写格式：第1 至 6 列为”标号区”。
第7列为”续行标志区”第8至此11列，称为”A区”。
程序中有些内容如部头，节头，段头，层号 01，层号 77 及文件描述符FD等应从A区开始写。
第12至此72列，称为”B区”。
写程序中的正文部分。
如过程部中的句子只能从B区开始写。
第73至80列，称为”注释区”。
五。
COBOL字符集包括：数字0 — 9 ，字母 A— Z ，a — z , 专用字符：+ - * / = , . ; ’ ( ) < > $ 及空格。
属于系统字符集而不属于COBOL字符集的字符只能出现在COBOL 程序中的字符串里。
六。
常量：COBOL 常量分为数值常量（如 100，-29），非数值常量（如’ABC’）和表意常量（如 ZERO，SPACE，HIGH-VALUE，LOW-VALUE ，QUOTE ，ALL 常量）。
七。
COBOL 所处理的数据的特点层次的概念：数据间存在的从属关系。
文件的概念：多个记录可以组成一个文件。
记录的概念：具有一定层次关系的一组数据项的最大集合，它是内存中具有独立逻辑含义的最大存取项，具有最高层次。
CHAPTER 2 过程部初步一。
输入输出语句。
1。
ACCEPT语句：直接从终端键盘或系统指定的输入设备上输入数据。
ACCEPT 标识符 [FROM 助忆名]注：A。
标识符(identifier)指的是能唯一地标识一个数据项的数据名，不能唯一地标识一个数据项的数据名不是标识符。
标识符可以是组合项。
B。
在ACCEPT语句中如不写FROM部分，如ACCEPT A ，则表示从系统隐含指定的设备上读入一个数据给A。
如果不想从指定的设备上输入，则要用FROM 选项, 这时”助忆名”需要在环境部中事先说明和那种外部设备相联系。
如：ENVIRONMENT DIVISION。
（环境部）CONFIGRATION SECTION。
（配置节）SPECIAL-NAMES。
（专用名段）CONSOLE IS ABC如在过程部中有 ACCEPT T FROM ABC。
则表示要从控制台接收数据2。
DISPLAY语句：从计算机内存中输出到某一指定的输出设备上。
DISPLAY { 标识符1，常量1}[标识符2，常量2]。
[UPON 助忆名]（标识符和助忆名的说明同上）ACCEPT语句和DISPLAY语句不必定义文件适用于少量的数据输入输出。
3。
READ语句：COBOL语言中数据的输入输出主要是通过对外部文件的读写进行的。
READ 语句就是从外部文件上读入数据输出到程序中的数据项中。
在程序中用到的所有文件都需要在环境部中指定程序中用到的文件名与实际外部文件的联系。
数据部也要对文件加以描述。
指定数据结构各数据项所占的内存单元长度以及数据形式。
COBOL 的存取是以文件为对象以记录为单位的。
READ语句的最简单的格式为： READ 文件名ENVIRONMENT DIVISION。
INPUT-OUTPUT SECTION。
FILE-CONTROL。
SELECT IN-FILLE ASSIGN TO 外部文件名。
为了存储读入的记录，必须在内存开辟一个与文件记录长度相等的存储区，即’输入文件纪录区’。
每一个输入文件都有相应的’输入文件纪录区’，与之一一对应。
亦即在数据部中描述文件的数据结构。
3。
READ语句：假设 IN-FILE 文件每一记录中包含的内容为：产品代码，产品数量，产品单价，生产日期。
设某一记录的具体数据如下：0 0 1 0 0 1 0 0 0 0 0 1 0 0 0 1 9 9 9 0 3 2 2 prodcode quantity price year mon day如果我们希望读入该记录并对各数据项进行处理，则需要在’输入纪录区’中划分出各数据项，以便存放相应的数据。
定义输入纪录区以及划分记录区中各数据项的工作是由数据部来完成的。
下面我们简单介绍数据部定义记录区方法，针对上面输入数据的特点，我们可以在数据部中对记录区作如下描述：DATA DIVISION。
FD IN-FILE LABLE RECORD IS STANDARD。
01 IN-RECORD。
（定义记录区名为IN-RECORD）02 PROD-CODE PIC 9（4）。
02 PROD-QUANTITY PIC 9（5）。
02 PROD-PRICE PIC 9（6）。
02 MANU-DATE。
（生产日期为一组合项）05 DATE-CCYY PIC 9（4）。
05 DATE-MM PIC 9（2）。
05 DATE-DD PIC 9（2）。
其中，FD 即 FILE DESCRIPTION，表示从该行起是’文件描述体’。
LABLE RECORD IS STANDARD ：所有的磁盘文件和磁带文件都必须写明此句。
01 层定义’输入纪录区’的名字为IN-RECORD，由于 01层属于FD描述体，因此也就指定了 IN-RECORD 和 IN-FILE 的关系。
亦即从IN-FILE 读入的数据存放在 IN-RECORD记录区中。
这样，在执行一次READ语句后，文件中一个记录的数据便输入到内存记录区，按排列顺序分别送到记录区中各数据项中。
注意文件的各记录中的数据是不分数据项的，只是按一定的顺序把数据存放在各字节中。
所以数据部对记录区中各数据项的描述应该与文件的记录中各数据排列次序和长度相一致。
READ 语句的一般形式：READ 文件名 RECORD [INTO 标识符] [AT END 执行语句] ，例如：READ IN-FILE INTO TEMP-RECORD AT END STOP RUN 该语句除了将读到的数据传送到IN-RECORD之外，还传送到TEMP-RECORD中。
在遇到文件尾时，程序结束运行。
4。
WRITE语句：将内存中的数据输出到外部设备，主要是由WRITE 语句来完成的。
WRITE语句的最简单的格式为：WRITE 记录名（注意WRITE语句的操作对象是记录，所以是’记录名’而不是’文件名’）与输入文件相似输出文件也要在环境部中指定所对应的实际存在的外部文件：ENVIRONMENT DIVISION。
INPUT-OUTPUT SECTION。
FILE-CONTROL。
SELECT OUT-FILLE ASSIGN TO 打印机名。
也要在数据部中定义输出记录区：DATA DIVISION。
FD OUT-FILE LABLE RECORD IS OMITTED。
01 OUT-RECORD。
02 PROD-CODE PIC 9（4）。
02 PROD-QUANTITY PIC 9（5）。
02 PROD-PRICE PIC 9（6）。
02 MANU-DATE05 DATE-CCYY PIC 9（4）。
05 DATE-MM PIC 9（2）。
05 DATE-DD PIC 9（2）。
LABLE RECORD IS OMITTED ：凡输出设备是打印机的都必须写明此句。
如输出设备是磁盘，则仍用LABLE RECORD IS STANDARD。
01 层定义’输出纪录区’的名字为OUT-RECORD，由于 01层属于FD描述体，因此也就指定了OUT-RECORD 和OUT-FILE 的关系。
在用WRITE 语句输出一个记录之前，应向输出记录区传送数据。
如已将数据传送到上述各数据项中，则在执行 W RITE OUT-RECORD 语句后，则记录区中的数据通过打印机打印出来。
WRITE 语句的一般形式：标识符 2 LINEBEFORE 整数 LINESWRITE 记录名 [FROM 标识符 1 ] AFTER ADVANCING 助忆名PAGE5。
OPEN语句：程序中如果需要读写文件，则该文件必须先用OPEN语句打开，系统在执行READ，WRITE以前先检查该文件是否已在规定的外部设备上准备就绪。
OPEN语句的一般格式为：INPUT 文件名1 [，文件名2]。
OPEN OUTPUT 文件名3 [，文件名4]。
6。
CLOSE语句：当对一个文件的读或写的操作已完成，就应关闭该文件。
CLOSE语句的一般格式为：CLOSE 文件名 1 [，文件名2]。
COBOL通过2位长度的文件状态字(FILE-STATUS)来表示文件的操作结果是否成功，常见的文件状态值及意义:二。
算数运算语句1。
ADD语句：格式1：ADD 标识符1 ，标识符2。
TO 标识符m [，标识符n]。
常量1 ，常量2格式2：ADD 标识符1 ，标识符2 ，标识符3常量1 ，常量2 ，常量3。
GIVING 标识符m [，标识符n]。
2。
SUBTRACT语句：格式1：SUBTRACT 标识符1 ，标识符2 。
FROM 标识符m [，标识符n]。
常量1 ，常量2格式2：SUBTRACT 标识符1 ，标识符2 。
FROM 标识符常量1 ，常量2 常量GIVING 标识符n [，标识符p]。
3。
MULTIPLY语句：格式1：MULTIPLY 标识符1 BY 标识符2 [，标识符3]。