《COBOL程序设计与应用》

第一章 引论1

1.1　数据处理简介1

1.2 COBOL语言的产生与发展2

1.3 COBOL语言的特点3

1.4 COBOL程序的编译与运行5

第二章 COBOL源程序7

2.1 程序的词义7

2.1.1 名词解释7

2.1.2 格式中使用的符号7

2.1.3　字符集8

2.2　源程序的格式8

2.3　程序结构12

2.4　语言结构13

2.4.1　分隔符14

2.4.2 COBOL字15

2.4.3　常字18

2.5　算术表达式18

2.5.1　算术表达式的形成规则18

2.5.2　表达式求值20

2.6　条件表达式22

2.6.1　简单条件22

2.6.2　组合条件24

第三章　数据描述的概念27

3.1　数据的描述27

3.1.1　记录与文件的概念27

3.1.2　数据的层次27

3.1.3　表格的操作28

3.1.4　数据类型30

3.1.5　字符表示和基数的选择30

3.1.6　代数符号31

3.2　数据项和表的引用31

3.2.1　用户定义字的限定31

3.2.2　表项的标识33

3.2.3　标识符的定义36

第四章　标识部38

第五章　环境部39

5.1　配置节40

5.2　输入输出节45

第六章　数据部54

6.1　数据部结构54

6.2　文件节55

6.2.1　文件描述体56

6.2.1.1 BLOCK CONTAINS子句56

6.2.1.2 CODE-SET子句57

6.2.1.3 RECORD CONTAINS子句58

6.2.1.4 LABEL RECORD子句58

6.2.1.5 VALUE OF子句59

6.2.1.6 DATA RECORD子句60

6.2.1.7 LINAGE子句61

6.2.2　记录描述体62

6.2.2.1 BLANK WHEN ZERO子句65

6.2.2.2 JUSTIFIED子句65

6.2.2.3 OCCURS子句66

6.2.2.4　PICTURE子句69

6.2.2.5 REDEFINES子句76

6.2.2.6 SIGN子句79

6.2.2.7 SYNCHRONIZED子句80

6.2.2.8 USAGE子句82

6.2.2.9 VALUE子句84

6.2.2.10　RENAMES子句87

6.2.2.11　CONDITION-NAME VALUE子句89

6.3　工作存贮节91

6.4　连接节92

第七章　过程部94

7.1　算术语句95

7.1.1　ADD（加）语句96

7.1.2　SUBTRACT（减）语句98

7.1.3　MULTIPLY（乘）语句100

7.1.4 DIVIDE（除）语句101

7.1.5　COMPUTE（计算）语句103

7.2 数据传送语句103

7.2.1　MOVE（传送）语句103

7.2.2　INSPECT（检验）语句109

7.2.3　STRING（联串）语句116

7.2.4　UNSTRING（拆串）语句118

7.3　控制语句123

7.3.1 GOTO（转向）语句123

7.3.2 ALTER（变更）语句125

7.3.3 PERFORM（执行）语句125

7.3.4 STOP（停）语句131

7.3.5 IF（条件）语句133

第八章 输入输出语句与USE语句135

8.1 ACCEPT（接受）语句135

8.2 DISPLAY（显示）语句137

8.3 OPEN（打开）语句137

8.4 CLOSE（关闭）语句139

8.5 READ（读）语句141

8.6 WRITE（写）语句145

8.7 REWRITE（重写）语句150

8.8 START（起始）语句152

8.9 DELETE（删除）语句155

8.10 USE（使用）语句156

第九章 程序设计的策略和风格159

9.1 结构程序设计159

9.1.1 结构程序设计基础156

9.1.2 结构程序设计在COBOL中的实现163

9.2 程序设计的目标164

9.3 COBOL程序设计实践166

9.4 程序设计实例——两个文件的合并169

第十章 表处理174

10.1 概述174

10.2 表的定义174

10.3 表的结构与描述175

10.4 可变长表181

10.5 下标与变址181

10.6 SET语句185

10.7 表的检索186

10.7.1 SEARCH语句格式之一187

10.7.2 SEARCH语句格式之二191

10.8 散列表194

10.9 往表中读数197

第十一章 磁带和磁盘顺序文件206

11.1 磁带206

11.2　程序实例——建立一个带文件207

11.3　磁盘210

11.4　程序实例——建立一个盘文件211

11.5　变长记录213

第十二章　分类与合并216

12.1　分类、合并功能216

12.2　分类、合并功能有关的语句形式218

12.2　分类语句219

12.4　合并语句220

12.5　一个程序实例222

第十三章　索引文件处理225

13.1　索引顺序存取方法（ISAM）225

13.2　设计一个索引文件228

13.3　虚拟存贮存取方法（VSAM）235

13.4　设计一个VSAM文件237

第十四章　相对文件处理243

14.1　相对文件的设计243

第十五章　报表生成250

15.1　报表文件250

15.1.1　文件描述的结构250

15.1.2　报表子句251

15.2　专用寄存器251

15.2.1　页计数器251

15.2.2　行计数器252

15.3　报表节252

15.3.1　报表描述项252

15.3.1.1 CODE子句253

15.3.1.2 CONTROL子句253

15.3.1.3 PAGE子句254

15.3.2 报表栏描述项256

15.3.2.1 LINE NUMBER子句259

15.3.2.2 NEXT GROUP子句260

15.3.2.3 TYPE子句260

15.3.2.4 BLANK WHEN ZERO子句266

15.3.2.5 COLUMN NUMBER子句267

15.3.2.6 GROUP INDICATE子句267

15.3.2.7 JUSTIFIED RIGHT子句268

15.3.2.8 PICTURE子句268

15.3.2.9 SOURCE子句268

15.3.2.10 SUM子句268

15.3.2.11 VALUE子句270

15.3.2.12 USAGE子句270

15.4 过程部的语句271

15.4.1 INITIATE语句271

15.4.2 GENERATE语句271

15.4.3 TERMINATE语句272

15.4.4 SUPPRESS语句273

15.4.5 USE语句273

15.5 二个实例274

第十六章 内部程序通讯287

16.1 被调用的COBOL程序287

16.2 CALL（调用）语句288

16.3 ENTER（入口）语句289

16.4 EXIT（出口）语句290

16.5 CANCEL（取消）语句291

16.6 实例291

第十七章 库功能298

17.1 COPY（拷贝）语句298

17.2 实例300

第十八章 分段功能302

18.1 程序分段概述302

18.2 程序分段的结构302

18.3 段限303

18.4 对程序流的限制303

第十九章 调试模块305

19.1　调试模块的功能305

19.2　开关和调试行305

19.3　调试语句306

第二十章　通讯309

20.1　通讯概念309

20.1.1　通讯功能309

20.1.2　通讯环境309

20.1.3　调用COBOL目标程序的方法310

20.1.4　信息和队的概念311

20.2　通讯节313

20.2.1 CD输入区314

20.2.2 CD输出区318

20.3　通讯功能语句321

20.3.1 ACCEPT语句321

20.3.2 DISABLE语句321

20.3.3 ENABLE语句322

20.3.4 RECEIVE语句323

20.3.5 SEND语句324

附录一　事务处理程序实例327

1．编制银行本利对照表327

2．计算推销员提成费并打印报表331

3．处理银行各种业务338

4．为某百货公司结算代销服务费和欠款总额346

5．建立职工薪金文件352

附录二　COBOL语句格式355

附录三　COBOL保留字372

参考资料375

图2-1 程序纸的格式10

图2-2 程序行各区界划分9

图2-3 语句结构14

图6-1 编辑与不同数据的组合71

图6-2 使用＋，－，，，。的例子72

图6-3 使用B和／及其它符号组合的例子72

图6-4 使用＊的例子73

图6-5 使用＄的例子73

图6-6 使用CR和DB的例子73

图6-7 不同字符的组合73

图7-1 PERFORM语句流程图132

图9-1（a）　顺序结构161

图9-1（b）　选择结构161

图9-1（c）　重复结构161

图9-2（a）　一个选择结构，一个重复结构和一个顺序结构162

图9-2（b）　三个选择结构和一个顺序结构162

图9-4 两个文件合并的主例行程序流程图173

图10-1 SEARCH语句（格式1）流程图189

图10-2 SEARCH语句（格式2）流程图192

图11-1 磁带上记录的安排206

图11-2 带记录不分块206

图11-3 带记录分块207

图11-4　磁盘读／写设备210

图11-5 盘片和盘道211

图13-1 分块和不分块关键字226

图13-2 柱面索引226

图13-3 柱面-120的磁道索引226

图13-4 磁道索引和记录关键字227

图13-5 增加三个记录的磁道索引228

图13-6 磁道索引和溢出链228

图13-7 VSAM控制区道236

图13-8 顺序关键字数据集结构236

图13-9 控制区道的拼合237

图15-1 PAGE子句的区域示意图256

图20-1 COBOL通讯环境310

图20-2 队的层次312

图附录1-1　银行本利对照程序框图328

图附录1-2　推销员提成费程序框图332

图附录1-2　推销员提成费程序框图（续）333

图附录1-3　银行业务处理程序框图340

图附录1-3　银行业务处理程序框图（续）341

图附录1-4　百货公司结算代销服务费和欠款总额程序框图347

图附录1-5　职工薪金文件程序框图353

表2-1 象征常数17

表2-2 算术表达式中符号的组合20

表2-3 关于运算量的计算21

表2-4 关于条件表达式的比较23

表2-5 条件逻辑运算符和括号组合26

表3-1 数据项的类和类型的关系30

表6-1 各种符号的组合规则75

表6-2 数据项的内部表示84

表7-1 MOVE语句操作类型109

表20-1 INPUT CD区通讯状态键字条件码317

表20-2 CD输入区的用法318

表20-3 OUTPUT CD区STATUS KEY代码320

表20-4 CD输出区的用法321