COBOL基础培训

幻灯片1COBOL基础培训l 因特驰软件北京有限公司幻灯片2课程设置l 课程安排l 上课：3天，6节课，每节课60+分钟l 练习：25天(估算)l 验收：作业 + 测试（笔试 + 上机）l 学习方法 （理论学习 + 实际操作）l 1.上课要做好课堂笔记l 2.课下熟读PPT，掌握PPT上的所有要点知识l 3.结合练习，在实操中掌握COBOL的编程技巧l 4.学习重点在于PPT中涉及到的内容l 学习目标l 根据项目的程序式样书，编写出合格的COBOL程序。幻灯片3培训内容l 一COBOL概述l 二标识部l 三环境部l 四数据部l 五过程部l 六VSAM文件l 七各部之间的关系l 八程序举例l 九COBOL的编译、链接、执行l 十COBOL语言编程规范幻灯片4一.COBOL概述l 什么是COBOL语言l COBOL语言的特点l COBOL程序的基本结构l COBOL程序结构示意图l COBOL程序的书写区域l COBOL程序的书写格式l COBOL的字符幻灯片5一.COBOL概述l 1. 什么是COBOL语言l COBOL是Common Business Oriented Language的缩写，是面向商业通用编程语言。它是专门为商业数据处理而设计的计算机高级程序语言。广泛用于数据管理领域。应用于多个行业如：银行，证券，金融，制造，等等。l 1960年4月正式发表COBOL 61。目前最新版COBOL 2002。l 2. COBOL语言的特点l 描述性好，能根据需要描述各种形式的数据。l 适合大批量数据处理，能对数据进行严密的组织(运算简单但运算量大，逻辑运算多)l 语法接近自然语言(英语)，成文自明。l 遵循ISO标准，通用性强，移植方便。l 格式固定，结构严谨，层次分明。l 缺点是比较繁琐。幻灯片6一.COBOL概述l 3. COBOL程序的基本结构l 标识部（IDENTIFICATION DIVISION）l 用来标识程序名称，记录程序的文档记录信息如作者和日期等。l 环境部（ENVIRONMENT DIVISION）l 用来描述程序运行和编译的计算机环境，内部数据文件与系统设备的对应关系。l 数据部（DATA DIVISION）l 定义程序中所有数据的类型和所占内存的大小。l 过程部：（PROCEDURE DIVISION）l 编写程序要执行的语句，是程序的核心。幻灯片7一.COBOL概述l 4. COBOL程序结构示意图标识部段环境部节cobol段数据部句子节描述体过程部句子节段句子幻灯片8一.COBOL概述l 5. COBOL程序结构示意图l 部下设置节，节下设置段或描述体，段下或节下包含句子。l 节是由一个或多个段组成的，节的定义从节名开始到下一个节名或文本结束为止。l 定义格式：节名 SECTION.（节名分为系统定义和用户自定义两种）l 段由一个或多个句子组成，段的定义从段名开始到下一个段名或文本结束为止。l 定义格式：段名. （段名+点号）（段名分为系统定义和用户自定义两种）l 文件描述体只能在数据部中定义，用于描述外部文件的属性及其记录的格式。l 定义格式：FD 文件名.（文件描述体用FD（File Description）语句定义）l 句子是完整的指令，用相应的动词表示其操作，以一个句号加一个以上的空格来结束。幻灯片9一.COBOL概述l 5. COBOL程序的书写区域l 标准COBOL程序每行80列，被分为五个区域l 第0106列为 “标号区”l 标号是6位数字，应从小到大，但不一定连续，标号只是方便查阅程序，可以省略。l 第07列为 “注释区”l “*“：表示本行是注释行，用于注释程序说明。l 第0811列为 “A区”l 程序中下列语句必须从该区开始书写：部名、节名、段名，描述符(FD)，01和77层。l 第1272列为 “B区”l 程序正文部分，过程部语句必须从该区开始书写。l 第7380列为 “注释区”l 行注释区，写入此区的内容在编译时被忽略，（一般不推荐使用）幻灯片10一.COBOL概述l 6. COBOL程序的书写格式l 大小写字母等价，但引号中的字符除外。l 如：MOVE A TO B = MOVE a TO bl DISPLAY HELLO DISPLAY hellol 相邻的两个COBOL字之间有一个以上的空格。l 运算符左右必须各有一个以上的空格l 如：COMPUTE R = A ( B + C ) / Dl 逗号，句号，分号左边不能有空格，而右边应有。l 如：DISPLAY A= ， A幻灯片11一.COBOL概述l 7. COBOL的字符l COBOL字符集包括：数字0 - 9 ，字母 A - Z ，a - z ，15个专用符号：+ - * / = ,(逗号) .(句号) ;(分号) (引号) $ ( ) 空格。属于系统字符集而不属于COBOL字符集的字符，只能出现在COBOL程序的字符串或注释行中。如：DISPLAY #HELLO# l COBOL字是由上述字符组成的最小单位。（保留字 ，用户字）l 保留字：规定五种类型专门用途的字(300多个)l 键字：如：MOVE ，ADD 等l 可选字：如：USAGE IS 等l 专用字符：如运算符：+ - * / 等 ；比较符 = 等l 表意常量：如：ZERO/ZEROS/ZEROES；SPACE/SPACES；QUOTE/QUOTES；HIGH-VALUE/HIGH-VALUES；LOW-VALUE/LOW-VALUES；ALL；NULL/NULLSl 专用寄存器：如：LENGTH OF；RETURN-CODE等l 用户字：用户自定义的名字。l 如：程序名，文件名，节名，段名，数据名等幻灯片12一.COBOL概述l 7. COBOL的字符l 数据名：相当于其它语言中的变量名，它代表一个具体的数据项()。l 只能由字母(至少一个)，数字和连字符“-“组成，连字符不能出现在两端，不能包含空格l 数据名长度不能超过30个字符 (length $9.9幻灯片41五.过程部（PROCEDURE DIVISION）l 5. MOVE语句：相当于赋值语句，可以将常量或一个数据项的内容传送到另一数据项中。l 数据名的受限和受限名的引用l 在COBOL程序中，标识名必须唯一识别。受限名的引用使用OF限定符。例如：l 01 TODAY-DATE.l 03 YEARPIC 9(04).l 03 MONTHPIC 9(02).l 03 DATPIC 9(02). l 01 LAST-DATE.l 03 YEARPIC 9(04).l 03 MONTHPIC 9(02).l 03 DATPIC 9(02).l MOVE 2012 TO YEAR ?l MOVE 2012 TO YEAR OF TODAY-DATE l 如果限定一次还不能成为唯一，可以多次使用限定符。幻灯片42五.过程部（PROCEDURE DIVISION）l 5. MOVE语句：相当于赋值语句，可以将常量或一个数据项的内容传送到另一数据项中。l CORRESPONDING(CORR)：对应传送l 一般格式：MOVE CORR 数据项1TO数据项2l 把一个组合项中若干项传送给另一组合项中同名的项l 例如：MOVECORRTODAY-DATETOLAST-DATEl 01 TODAY-DATE. 2012102901 LAST-DATE. 29102012l 03 YEARPIC 9(04). 03 DATPIC 9(02).29l 03 MONTHPIC 9(02). 03 MONTHPIC 9(02).10l 03 DATPIC 9(02). 03 YEARPIC 9(04).2012l 如果两个组合项中包括的项不同，则只传送同名的项l 例如：MOVECORRA TOBl 01 A.01 B.l 03 A1PIC 9(04). 03 B1PIC 9(04).l 03 A2PIC 9(02). 03 A1PIC 9(02).l 03 A3PIC 9(02). 03 A2PIC 9(02). l 传送的两者必须是组合变量，并且有成对的同名数据项，而且这一对中必须至少有一个项是初等项，否则不能作为对应项传送l 例如：MOVECORRA TOBl 01 A.01 B.l 03 A1PIC 9(04). 03 A1PIC 9(04).l 03 A2. 03 A2.l 05 A3PIC 9(02). 05 A5PIC 9(02). l 05 A4PIC 9(02). 05 A6PIC 9(02). 幻灯片43五.过程部（PROCEDURE DIVISION）l 5. MOVE语句：相当于赋值语句，可以将常量或一个数据项的内容传送到另一数据项中。l CORRESPONDING(CORR)：对应传送l 对应传送与层号无关l 例如：MOVECORRA TOBl 01 A.01 B.l 03 A1PIC 9(04). 05 A1PIC 9(04).l 03 A2. 05 A2PIC 9(04).l 05 A3PIC 9(02). l 05 A4PIC 9(02). l 所谓