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教程
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.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 概述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培训教程-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基本語法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.数据定义：在COBOL中，数据定义是程序的核心。
它定义了各种数据项的类型和长度，如数值、字符串、日期等。
COBOL提供了特殊的关键字和语法用于定义这些数据项。
2.数据处理：COBOL提供了许多内置函数和操作符，用于处理和计算数据。
这些函数和操作符可用于进行数学运算、日期计算、字符串处理等。
COBOL还具有丰富的条件和循环语句，用于控制程序的流程。
3.文件处理：COBOL是一种事务处理语言，它可以处理大量的数据。
在COBOL中，可以定义文件结构和记录布局，并使用特殊的关键字和语句来读取、写入和更新文件数据。
这使得COBOL成为处理大型数据库的有效工具。
4.子程序：COBOL支持子程序的概念，用于将程序分割成一系列可重用的模块。
这使得程序的开发和维护更加容易。
子程序可以被其他程序调用，并传递参数进行数据交换。
5.错误处理：COBOL具有强大的错误处理机制。
它提供了异常处理和错误检测的能力，以确保程序能够适应各种错误情况，并采取适当的措施。
这有助于保护程序免受潜在的错误和异常的影响。
6.编程规范：COBOL具有一套严格的编程规范和命名约定。
这些规范旨在使程序易于理解和维护，并提高程序员之间的协作。
遵循这些规范将使程序具有一致的外观和结构。
7.部署和调试：COBOL代码可以在各种计算机系统上运行，包括大型主机和小型服务器。
由于COBOL的稳定性和广泛性，许多工具和调试器可用于帮助开发和调试COBOL程序。
总结起来，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 TOORGANIZATION 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).基本語法、 COBOL 基本語法SELECT-FILE05 STR-1 PIC X(10).b) 层号依次排列顺序为：01 ,05,10,15,20,30 ...........c. 连接节子程序的参数的定义。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
c o b o l基本语法基本語法一、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.连接节子程序的参数的定义。
4、过程部(PROCEDURE DIVISION)程序的主体:程序的逻辑运算在此操作。
a、每个程序分为四大节(模块),·前处理(初始化变量,设定初始值等)·主处理(程序业务处理部分)·后处理(程序正常结束时的出口)·错误处理(程序异常结束时的出口)b、对于子程序，PROCEDURE DIVISION 后应列出LINK节中定义的参数。
如: PROCEDURE DIVISION USING LINK-INPUT-DATA LINK-OUTPUT-DATA.c、程序结束。
·主程序 STOP RUN.·子程序 GO BACK.5、变量类型COBOL程序的基本变量类型分为两大类字符串型(X)、数值型(9)。
a 字符串型01 STRING-A PIC X(100).100个字符长的变量，程序可以局部操作一个变量( STRING-A(start: length)如：MOVE ALL “X” TO STRING-A(2:10)(将变量STRING-A第2位开始10长度的内容全赋为”X”字符)b 数值型注： 1、对于出力型数值变量,可以用9代替Z,它们的区别是：结果为零的整数部高位，小数部低位： Z型变量用空格显示，9型变量用零显示2、COBOL语言中数值型变量种类很多，针对不同的要求有不同的数值类型。
c、在COBOL变量定义时,可以加入格式字符串字符。
d、不同类型变量间赋值。
整数1、字符串中数值部分可以作为对应长度的DISPLAY型变量给其它各种数值型变量。
2、DISPLAY型变量(包括出力型变量)被赋值时，超出它表示范围的数可以被接受，但截去超出的高位。
3、COMP型变量被赋值时，超出它表示范围的数不能被接受。
小数1、DISPLAY型变量(包括出力型变量)被赋值时，超出它表示范围的数可以被接受，但整数部截去超出的高位，小数部截去低位。
2、COMP型变量被赋值时，整数部超出它表示范围的数不能被接受，小数部超出它表示范围的数可以被接受，但小数部截去低位注: 以上所述赋值变量为任何类型的数值型变量(经过严格测试得出结论)。
e、字符型比较。
·字符串比较时，系统自动截去尾部空格（如“a “ = “a”）。
·数字的数值形式和数字字符形式相等（如“1234567890” = 1234567890）·综合以上两点, 有“12 “ = 12二、基本语法:1、赋值语句MOVE。
a、将一个变量赋给另个变量move a to b.b、将一个变量同时赋给另外两个变量。
Move a to b c .c、将一个变量全部赋为某个字符move all “x” to a.d、对于赋值溢出，截取的方式为.·字符型变量截去左边的溢出部分。
·数值型变量截去整数部高位、小数部低位的溢出部分。
e、组和项传送，它们的数据结构必须相同f、对于组合项成员的局部引用，应该如下:０１ A-AREA.05 STR-1 PIC X(10).05 STR-2 PIC X(10).０１ B-AREA.05 STR-1 PIC X(20).05 STR-2 PIC X(10).MOVE STR-1 OF A-AREA(1:4) TO STR-1 OF B-AREA(1:4).3、四则运算原则上,四则运算不用助记符语句,但对于简单运算( ++,--),可采用助记符语句。
a、加法( ADD 1 TO NUM-1)b、减法(SUBTRACT 1 FROM NUM-1)c、其它所有运算均采用COMPUTE 语句COMPUTE NUM-1 = NUM-2 + NUM3 * 10运算符如下:+ 加- 减* 乘/ 除** 指数在COMPUTE语句中,变量和运算符间至少留有一个空格。
4、重定义语句REDEFINES(数据部中使用)01 A PIC X(10) VALUE SPACE.01 B REDEFINES A PIC 9(10).变量A,B使用同一个空间，重定义时，重定义变量必须紧跟着被重定义变量后面，并且在字符串同数值一起重定义时,如果对变量进行初始化，变量会初始化为空格。
5、数组关键词OCCURSOCCURS 整数 TIMES.a.简单数组01 A OCCURS 10 PIC X(30).b. 组合项数组01 A.05 B OCCURS 10.10 C PIC X(10).10 D PIC X(20).注意：引用数组中某一元素如下DISPLAY C OF B OF A(1) “@@”.6、连结语句STRINGSTRING A, B, C DELIMITED BY SIZE INTO D .·将字符串A, B, C按它们定义长度连接赋给变量D.STRING A, B, C DELIMITED BY SPACE INTO D .·将字符串A, B, C连接赋给变量D,去掉中间所有的空格.STRING “AAAAAAA” DELIMITED BY SIZE“BBBBBBB ” DELIMITED BY SIZEB DELIMITED BY SIZEINTO D .·将字符串和字符串变量连接赋给变量D.7、IF语句· IF 条件THEN语句（无“.”结束）ELSE语句（无“.”结束）END-IF..注: IF 语句最多只能使用三层嵌套,条件用括号括起来。
10关系运算符注:判断字符串能否转换为数字。
NUMERIC NOT NUMERICIS NOT NUMERIC11、PERFORM 语句PERFORM XXX-RTN.·调用子节，直到遇到第一个只包含EXIT语句的段中止，回到该调用语句的下一条语句。
EXIT只与它搭配有效。
所以节的定义规定如下:XXX-RTN SECTION.语句块········XXX-EXT.EXIT.PERFORM XXX-RTN N TIMES.·循环调用子节N次PERFORM XXX-RTN UNTIL N> 30.·循环调用子节，直到N 大于30。
PERFORM UNTIL 表达式语句·······END-PERFORM.·循环调用语句块,表达式判断在语句块前进行。
PERFORM VARYING X FROM A BY B UNTIL X > 12 语句·······END-PERFORM.·循环调用语句块,相当于FOR 循环。
12、EVALUATE 语句EVALUATE 变量、常量、表达式WHEN ANYTRUEFALSE(NOT) 常量1 THRU (THROUGH) 常量2WHEN OTHER .END – EVALUATE· ANY ：任何变量、常量值· TRUE、FALSE ：关系表达式的结果· (NOT) 常量1 THRU (THROUGH) 常量2: 值(不)在常量1和常量2 构成的闭区间·另外，在WHEN 后面可以包含简单的关系表达式。
如:EVALUATE AWHEN => 10EVALUATE BWHEN = 1 OR = 2 OR = 3语句····WHEN OTHER语句····END-EVALUATEWHEN OTHER语句····END-EVALUATE.13、另外,不同的COBOL系统提供了不同内部函数，建议少用内部函数，以下提供几个通用的内部函数· ORD 取得字符的ASICII码如：MOVE FUNCTION ORD (“A”) TO NUMBER.• UPPER-CASE 字母小写转换成大写如：MOVE FUNCTION UPPER-CASE (STRING(START:1)) TO STRING(START:1)· LOWER -CASE 字母小写转换成大写如：MOVE FUNCTION LOWER-CASE (STRING(START:1)) TO STRING(START:1)· REVERSE 对字符串中所有字符进行倒序如：MOVE FUNCTION REVERSE(STRING-1) TO STRING· LENGTH 取得变量的定义长度，如：COMPUTE LEN = FUNCTION LENGTH(STRING)二、PRO*COBOL基本語法COMPLA使用的PRO*COBOL是ORACLE公司提供的在COBOL程序中嵌入SQL语句的一种方法，使得程序方便地访问操作ORACLE数据库；PRO*COBOL程序经过ORACLE提供的预编译器预编译生成中间COBOL程序后，程序中所有的SQL语句直接调用ORACLE库函数，再经过COBOL编译器同一般COBOL程序一样编译生成各种可执行模块,由于程序中直接调用ORACLE库函数，所以它们访问操作ORACLE数据库的速度很快，基本语法如下。