COBOL 基本语句--好东西
cobol 语法
cobol 语法COBOL语法COBOL（Common Business-Oriented Language）是一种面向商业应用的编程语言，特别适用于处理大型数据和事务处理。
本文将介绍COBOL语法的一些关键要点，并展示其在实际应用中的一些特性。
一、程序结构在COBOL中，程序由多个部分组成，包括IDENTIFICATION DIVISION、ENVIRONMENT DIVISION、DATA DIVISION、PROCEDURE DIVISION等。
IDENTIFICATION DIVISION用于声明程序的名称和作者信息，ENVIRONMENT DIVISION用于定义程序的运行环境，DATA DIVISION用于定义数据，PROCEDURE DIVISION用于编写程序逻辑。
二、数据类型COBOL提供了多种数据类型，包括数字、字符、日期等。
数字类型可以是整数或浮点数，字符类型可以是单个字符或字符串。
日期类型可以表示年、月、日或日期和时间。
在使用数据类型时，需要声明变量的名称和类型，并为其分配初始值。
三、变量和常量在COBOL中，变量和常量都需要使用特定的关键字进行声明。
变量用于存储和处理数据，而常量是固定的数值或字符串。
变量和常量的名称必须符合特定的命名规则，并且需要在使用之前进行定义和初始化。
四、条件语句COBOL提供了多种条件语句，用于根据条件执行不同的程序逻辑。
其中最常用的是IF语句，可以根据条件判断是否执行某个程序块。
在条件语句中，可以使用比较运算符（如等于、大于、小于）和逻辑运算符（如AND、OR）进行条件的组合和判断。
五、循环语句COBOL提供了多种循环语句，用于重复执行某个程序块。
最常用的是PERFORM UNTIL和PERFORM VARYING语句。
PERFORM UNTIL语句会在满足条件之前一直执行程序块，而PERFORM VARYING语句会在指定的范围内重复执行程序块，并可以根据循环变量的值进行控制。
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（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 语法基础作成者审查者承认者丁成远变更履历日期版本作成者备注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⼀些基本⽤法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]。
常量1，格式2：MULTIPLY 标识符1 BY 标识符2 GIVING 标识符3 [，标识符4]。
常量1 ，常量24。
DIVIDE语句：格式1：DIVIDE 标识符1 INTO 标识符2 [，标识符3]。
常量1格式2：DIVIDE 标识符1 INTO 标识符2 GIVING 标识符3 [，标识符4]。
常量1 BY 常量2B à 注意： DIVIDE A INTO B 是指 B/ADIVIDE A INTO Cà B GIVING C 是指 B/ADIVIDE A BY B C àGIVING C 是指 A/B5。
COMPUTE 语句：COMPUTE 标识符1 [，标识符2 ]。
= 算术表达式运算的优先级由⾼到低顺序为：（），正负号，**（次⽅），* 或 / ，+ 或 -如：C = 3 ，D = 5 ，E = 2 ， F = 1 则：COMPUT A，B = -（C + D）* 2 / E ** 3 - F = -3注意1。
每个语句中红⾊标记的部分，不同的语句之间不要弄混。
2．计算都遵循：右标识符算数运算符左标识符（A +/-/*// B）3．其中BY在乘除法中都可以⽤，区别在于前⾯的关键字。
COBOL语言介绍
COBOL语言介绍相对地，科学计算方面的问题往往原始数据较少，但算法复杂；而数据处理方面的问题却常常需要面对大量的初始数据进行加工，加工过程是一些极其简单的运算（有时甚至不执行计算）或逻辑判断，但需要重复许多次，最后输出大量的结果数据，这些数据还往往是一些表格，这种数据的大量和可组织性及加工过程的简单和重复性构成了这类问题的主要特性。
在数据处理领域中，对数据的加工流程可能是成批的，也可能是零星或随机的，数据通常以记录为处理单位和以块为传输单位构成，文件和记录在数据处理中具有很重要的地位。
COBOL（COmmon Business Oriented Language）——是数据处理领域最为广泛的程序设计语言。
COBOL历史COBOL（COmmon Business Oriented Language）是第一个广泛使用的高级编程语言。
在企业管理中,数值计算并不复杂,但数据处理信息量却很大。
为专门解决经企管理问题,于1959年,由美国的一些计算机用户组织设计了专用于商务处理的计算机语言COBOL,并于1961年美国数据系统语言协会公布。
经不断修改、丰富完善和标准化,已发展为多种版本。
COBOL重视数据项合输入/输出记录的处理，对具有大量数据的文件提供了简单的处理方式。
从名字可以看出，它主要用于解决商业和企业管理等领域的大量数据处理问题，又称为企业管理语言、数据处理语言等。
Cobol语言的研制始于50年代末，当时计算机的生产已进入第二代，计算机应用领域开始从数值计算扩大到数据处理。
商业和企业事务管理中需要进行处理的数据量急剧增加，迫切需要有适用于这个领域的程序设计语言，以提高编制程序的质量和速度。
Cobol语言就是在这种社会背景下应运而生的。
也就是说，Cobol已经年过半百了。
Cobol正式发布于1960年4月，称为Cobol－60。
现在最新的版本应该是Cobol －2002了，而且还在不断改进中，未来的Cobol将支持XML等Web时代的新技术。
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基本语句(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
Cobol基本语法总结
コボル基本語法一、COBOL基本語法compla項目使用的Cobol是Micro Focus 公司生产的Cobol,采用在HP-UNIX上运行。
一、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的语法结构(几大部分)1、标示部(IDENTIFICATION DIVISION):提供程序的一般性文档说明,本项目只保留程序名(PROGRAM-ID)一项。
2、环境部(ENVIRONMENT DIVISION): 提供程序外部有关的项目。
a.配置节(CONFIGURATION SECTION)①.指定源计算机(SOURCE-COMPUTE).②.目标计算机(OBJECT-COMPUTE).③.设置debug模式(SOURCE-COMPUTE H9000V WITH DEBUGGING MODE)④. 指定读环境变量设置.SPECIAL-NAMES.ENVIRONMENT-VALUE IS CNS-ENV-PARMENVIRONMENT-NAME IS CNS-ENV-NAME.b. 输入输出节(INPUT-OUTPUT SECTION).文件的物理路径的定义。
方法一：(写死文件路径)SELECT FILE-LOG ASSIGN"/usr3/WSI/commonlog/WSI1101.log"ORGANIZATION IS LINE SEQUENTIAL.方法二:(过程部中动态指定文件)SELECT FILE-LOG ASSIGN TO SELECT-FILEORGANIZATION IS LINE SEQUENTIAL.在数据部定义字符串变量SELECT-FILE,在文件FILE-LOG打开前动态指定文件路径。
商业cobol语言
第一章COBOL语言概述1.1COBOL语言的发展概况COBOL是Common Business Oriented Language (通用商业语言)的缩写。
COBOL标准：COBOL 74, COBOL 85, COBOL 2000。
1.2COBOL语言的特点(一)最适于数据处理领域。
(二)COBOL比较按近于自然语言（英语）。
(三)通用性强，由于COBOL语言的标准化程度较高。
(四)COBOL的结构严谨，层次分明。
(五)COBOL的缺点是比较繁琐。
1.3最简单的COBOL语言介绍1－678－12….列IDENTIFICATION DIVISION.PROGRAM ID. EXAMPL.ENVIRONMENT DIVISION.DATA DIVISION.PROCEDURE DIVISION.DISPLAY “THIS IS A COBOL PROGRAM.”STOP RUN.1.4COBOL程序的结构1.4.1部IDENTIFICATION DIVISION.说明：标识部主要用来指定源程序名字，也可以写入其它用作备忘的某些信息（如日期、作者等）。
ENVIRONMENT DIVISION.说明：环境部指出程序中用到的数据文件名与计算机系统的设备的对应关系，即把某一文件名与一外部设备联系起来。
此外还指定目标程序中使用的专门控制方法及程序所用内存区的大小等。
DA TA DIVISION.说明：数据部程序中所用到的全部数据（包括输入输出的数据和中间数据）都应在数据部中说明它们的类型和所占内存的情况。
PROCEDURE DIVISION.说明：过程部用来给出程序要执行的指令，使计算机产生相应的操作。
例如进行运算或其它处理。
1.4.2节和段除标识部以外，在每一个部的“部头”的下面，可以有若干个节（SECTION），每一个节以“节头”作标识。
每一节下面又可包括若干段（PARAGRAPH）。
每一个段都有自己的名字（即段名）。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
算数运算语句
• • • • • ADD语句 SUBTRACT语句 MULTIPLY语句 DIVIDE语句 COMPUTE 语句
ADD语句
• 格式1：ADD 标识符1 ，标识符2。。。 TO 标 识符m [，标识符n]。。。 • 常量1 ，常量2 • 格式2：ADD 标识符1 ，标识符2 3 • 常量1 ，常量2 ，常量3 • ，标识符
Before Before After After
SUBTRACT Tax, 80 FROM Total. SUBTRACT Tax, 80 FROM Total. 100 480 100 480
100
300
Before Before After After
SUBTRACT Tax FROM GrossPay GIVING NetPay. SUBTRACT Tax FROM GrossPay GIVING NetPay. 750 1000 0012 750 1000 0012
READ语句
• READ语句：从外部文件上读入数据输 出到程序中的数据项中。在程序中用到 的所有文件都需要在环境部中指定程序 中用到的文件名与实际外部文件的联系。 数据部也要对文件加以描述。指定数据 结构各数据项所占的内存单元长度以及 数据形式。 • COBOL 的存取是以文件为对象以记录为 单位的。
OPEN语句
• OPEN语句：程序中如果需要读写文件，则 该文件必须先用OPEN语句打开，系统在执 行READ，WRITE以前先检查该文件是否已 在规定的外部设备上准备就绪。 • OPEN语句的一般格式为： OPEN INPUT 文件名1 [，文件名2]. OPEN OUTPUT 文件名3 [，文件名4].
750
1000
0250
MULTIPLY语句
• 格式1：MULTIPLY 标识符1 标识符2 [，标识符3]。。。 • 常量1， • BY
格式2：MULTIPLY 标识符1 BY 标识符2 GIVING 标识符3 [，标识符 4]。。。 • 常量1 ， 常量2
DIVIDE语句
• 格式1：DIVIDE 标识符1 符3]。 • 常量1 INTO 标识符2 [，标识
MULTIPLY and DIVIDE Examples
MULTIPLY Subs BY Members GIVING TotalSubs MULTIPLY Subs BY Members GIVING TotalSubs ON SIZE ERROR DISPLAY "TotalSubs too small" ON SIZE ERROR DISPLAY "TotalSubs too small" END-MULTIPLY. END-MULTIPLY.
• 格式2：DIVIDE 标识符1 INTO 标识符2 GIVING 标识符3 [，标识符4]。。。 • 常量1 BY 常量2 • 注意： DIVIDE A INTO B 是指 B/A B • DIVIDE A INTO B GIVING C 是指 B/A C • DIVIDE A BY B GIVING C 是指 A/B C
9234.55
100
92.35
COMPUTE 语句
• 格式：COMPUTE
标识符1 [，标识符2 ]。算术表达式
• 运算的优先级由高到低顺序为：（），正负 号 ，** ，* 或 / ，+ 或 – • 如：C = 3 ，D = 5 ，E = 2 ， F = 1 则：
• COMPUT A，B = -（C + D）* 2 / E ** 3 - F = -3
Arithmetic Statement Template
⎫ ⎧ TO ⎪ ⎪ ⎧ Identifier ⎫ ⎪ FROM ⎪ ⎧ Identifier K ⎫ ⎬ ⎨ ⎬ [ ROUNDED ] ⎬ ⎨ VERB ⎨ ⎩ Literal ⎭ ⎪ BY ⎩ Identifier GIVING Identifier K ⎭ ⎪ ⎪ INTO ⎪ ⎩ ⎭
ACCEPT 例句（续）
• 例句5：ACCEPT A FROM TIME.
• 读取当前时间，表示为8位字符。精确到 毫秒。如下午2：41表示为14410000。
DISPLAY语句
• DISPLAY语句：从计算机内存中输出到某一指定 的输出设备上。 • 格式：DISPLAY { 标识符1，常量1}[标识符2，常 量2]。[UPON 助忆名] • 说明：标识符和助忆名的说明同ACCEPT语句 • ACCEPT语句和DISPLAY语句不必定义文件，适用 于少量的数据输入输出
3550
1250
Before Before After After
DIVIDE Total BY Members GIVING Average ROUNDED. DIVIDE Total BY Members GIVING Average ROUNDED. 9234.55 100 1234.56 9234.55 100 1234.56
Before Before After After
ADD Cash, 20 TO ADD Cash, 20 TO 3 3
1023
123
Before Before After After
ADD Cash, Total GIVING Result. ADD Cash, Total GIVING Result. 3 1000 0015 3 1000 0015
WRITE 例句（续）
• LABLE RECORD IS OMITTED ：凡输出设备是打 印机的都必须写明此句。如输出设备是磁盘，则仍 用LABLE RECORD IS STANDARD。 • 01 层定义‘输出记录区’ 的名字为OUT-RECORD， 由于 01层属于FD描述体，因此也就指定了OUTRECORD 和OUT-FILE 的关系。 • 在用WRITE 语句输出一个记录之前，应向输出记录 区传送数据。如已将数据传送到上述各数据项中， 则在执行 W RITE OUT-RECORD 语句后，则记录 区 也要在数据部中定义输出记录区： 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-DATE 05 DATE-CCYY PIC 9（4）. 05 DATE-MM PIC 9（2）. 05 DATE-DD PIC 9（2）.
ACCEPT 例句
• • • • ENVIRONMENT DIVISION.（环境部） CONFIGRATION SECTION.（配置节） SPECIAL-NAMES.（专用名段） CONSOLE IS ABC
• 如在过程部中有 ACCEPT T FROM ABC。 则表示要从控制台接收数据
ACCEPT 例句（续）
• 例句1：ACCEPT A FROM DEV. • 从DEV读取数据到A，也可以省略FROM DEV，表示从键盘读取。 • 例句2：ACCEPT A FROM DATE. • 读取日期，表示为6个字符，如990909（1999 年9月9日）。
ACCEPT 例句（续）
• 例句3：ACCEPT A FROM DAY. • 读取当前日期在年度（前2位）中为第几天 （后3位），表示为6个字符，如1994年4月1日 表示为94091。 • 例句4：ACCEPT A FROM DAY-OF-WEEK. • 读取当前星期几，表示为1位字符。1表示星期 一，7表示星期日。
3
1000
1003
Before Before After After
ADD Males TO Females GIVING TotalStudents. ADD Males TO Females GIVING TotalStudents. 1500 0625 1234 1500 0625 1234
1500
COBOL基本语句
• • • • • 输入输出语句 算数运算语句 条件判断语句 数据传送及字符串操作语句 执行控制语句
输入输出语句
• • • • • • ACCEPT语句 DISPLAY语句 READ语句 WRITE语句 OPEN语句 CLOSE语句
ACCEPT 语句
• ACCEPT语句：直接从终端键盘或系统 指定的输入设备上读取数据。 • 格式：ACCEPT 标识符 [FROM 助忆名]
0625
2125
SUBTRACT语句
• 格式1：SUBTRACT 标识符1 ，标识符2 。。。 FROM 标识符m [，标识符n]。。。 • 常量1 ，常量2 • 格式2：SUBTRACT 标识符1 ，标识符 2 。。。 FROM 标识符 • 常量1 ，常量2 常量 • GIVING 标识符n [，标识符p]。
ACCEPT格式说明
• 1。标识符(identifier)指的是能唯一地标识一个 数据项的数据名，不能唯一地标识一个数据项 的数据名不是标识符。标识符可以是组合项。 • 2。在ACCEPT语句中如不写FROM部分，如 ACCEPT A，则表示从系统隐含指定的设备 （一般是键盘）上读入一个数据给A。 如果不 想从指定的设 备上输入，则要用FROM 选项, 这时“助忆名”需要在环境部中事先说明和那种 外部设备相联系。
WRITE语句
• WRITE语句：将内存中的数据输出到外部设备， 主要是由WRITE 语句来完成的。 • 格式为：WRITE 记录名 [FROM 标识符 1] AFTER ADVANCING 助忆名 • 注意WRITE语句的操作对象是记录，所以是 ‘记录名’而不是‘文件名’。
WRITE 例句
• 与输入文件相似输出文件也要在环境部中指定所对 应的实际存在的外部文件： ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT OUT-FILE ASSIGN TO 外部文件名.