Cobol perform

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—80 IDENTIFICATION DIVISION。 PROGRAM-ID。 PSAMPLE1。 ENVIRONM

コボル基本語法

基本語法

一、COBOL基本語法

一、cobol的书写格式（每行）

1、 前6列为序号区(一般不编辑)

2、 第7列为标示列，仅可以写如下几个标示符。

a. “＊” 注释符(注释当前行的代码) b “－“ 字符串连接符

3、第8列---11列为A区，包括以下内容。 a 部、节名。 b 层号01

4、第12列---72列为B区，过程部的程序必须写在B区中。 5、第72以后部分不能编辑。 二、cobol的语法结构 (几大部分)

1、 标示部(IDENTIFICATION DIVISION):提供程序的一般性文档说明。 2、 环境部(ENVIRONMENT DIVISION): 提供程序外部有关的项目。

a. 配置节(CONFIGURATION SECTION) ①.指定源计算机(SOURCE-COMPUTE). ②.目标计算机(OBJECT-COMPUTE).

b. 输入输出节(INPUT-OUTPU

コボル基本語法

コボル基本語法

一、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 层号01

4、第12列---72列为B区，过程部的程序必须写在B区中。 5、第72以后部分不能编辑。 二、cobol的语法结构 (几大部分)

1、 标示

Cobol大作业

班级 姓名 学号 2011-4-25

实验目的

1. 学会编写COBOL程序对输入数据按指定的要求处理，得到符合要求的规范的报表。 2. 熟练掌握COBOL中文件处理的方式，使用READ和WRITE对文件中的记录进行读

取和处理。

3. 会使用SORT和MERGE对文件及其数据进行处理，实现文件中数据的排序以及多个

文件的合并操作。

4. 会使用TABLE对数据进行处理，掌握对TABLE中的数据的访问。 5. 掌握PERFORM语句的使用，包括对数据的访问核对循环的处理。

6. 了解系统函数的使用方法及其功能，在必要的时候调用系统函数，实现对应的功能。 7. 学会对数据进行正确处理，包括怎样定义数据及处理异常数据等。

实验内容

1. 编辑一个关于公司销售情况输入文件，输入文件包含的数据记录有分公司号、销售代表号、分公司名、当年销售情况、去年销售情况，将公司的销售情况按指定格式做一个统计然后输出到指定文件中。

2. 更新数据时，将原来的输入文件与更新的数据进行合并，得到一个新的输入文件，仍旧按指定的格式处理输入数据后输出到指定文件中。

3. 使用表处理，将

等。目前，这些工作大多数是在IBM ES9000主机的SAFE应用系统平台上进行，该系统联机程序和联机计息程序是用IBM 370汇编语言实现的。为方便汇编语言读写，在VSAM文件存储的数据中，数据存放格式进行了特殊的定义。如日期存放采用X(3)型，01年03月15日，存入EBCD码为X‘010315’。在进行年度计息时，为了实现各种复杂的运算工作，一般采用COBOL语言来实现各种运算。而采用COBOL语言读取X(3)型数据时，读出的是字符型数据，不能直接进行运算，必须转换为COBOL数据类型的数据后才能进行相应处理。如刚才的X‘010315’，需要转换为内部十进制数据X‘0010315C’。本文介绍一种用COBOL语言实现字符型X(3)与内部十进制数据相互转换的方法。 由X(3)型转换为内部十进制

由于日期数据总是大于零，在COBOL语言的工作单元节定义变量DATE－FIRST后，再追加定义COBOL语言的最小数据单元X‘000C’，即十进制12。由于重定义DATE－CASE为DATE－CHANGE后，DATE－CHANGE是原日期数据的1000倍，于是要在过程部将DATE－CHANGE除以1000。

首先，在COBOL程序WORKING－ST

COBOL程序设计大作业

学院（系）： 专 业： 班 级： 学 号： 姓 名：

大连理工大学

Dalian University of Technology

1 程序功能描述

（1） 程序分为3个部分，分别是IBMUSER.COBOL.RPTCH、IBMUSER.RPT.DEAL、IBMUSER.RPT.SORT。其中IBMUSER.COBOL.RPTCH是主程序，调用IBMUSER.RPT.DEAL子程序，IBMUSER.RPT.DEAL又调用IBMUSER.RPT.SORT子程序。

（2） 存在一个新的交易数据表，其中有添加交易操作、更新交易操作、删除交易操作、增开一个分公司及其交易操作信息。对其进行合法性验证，错误的信息输入到错误文件中，正确的信息和原来老的交易信息合并并且排序后生成新的交易信息。

（3） 分公司信息表中记录分公司编号和分公司名字的对应情况，销售代表信息表中记录销售代表编号和姓名的对应情况，另外还有新生成的交易信息表，将3个表的信息同时按分公司和销售代表统计信息，生成统计报表。

2 程

1 将文件内容在系统中输出

//CN001000 JOB MSGLEVEL=(1,1),NOTIFY=&SYSUID //STEP1 EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSUT1 DD DSN=CN0010.XCY.JCL3,DISP=SHR //SYSUT2 DD SYSOUT=* //SYSIN DD DUMMY

2 cond的用法，设置判断返回参数以决定是否执行本作业步

//CN001000 JOB MSGLEVEL=(1,1),NOTIFY=&SYSUID //STEP1 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=*

UpRight DB upESQL/COBOL说明书

UpRight DB5

Copyright?2012UpRightSoft Co.,Ltd.All Rights Reserved.

Copyright Notice

Copyright?2012UpRightSoft Co.,Ltd.All Rights Reserved.

中国北京朝阳区望京东路锐创国际中心B座1102室，邮编)100102

Restricted Rights Legend

All UpRight Software(UpRight DB?)and documents are protected by copyright laws and the Protection Act of Computer Programs,and international convention.UpRight software and documents are made available under the terms of the UpRight License Agreement and may only be used or copied in accordance with the terms

JCL:

1 简单描述一下DISP的使用，它有哪些参数？

DISP 参数用来告诉系统要使用的数据集的状态是什么并且告诉系统当本作业步执行完毕后如何处理这个数据集。你可以为作业步正常结束和非正常结束时分别指定不同的处理方法。 DISP= ( [NEW] [,DELETE ] [,DELETE ] )为空时也表示这个。

[OLD] [,KEEP ] [,KEEP ] [SHR] [,PASS ] [,CATLG ] [MOD] [,CATLG ] [,UNCATLG] [, ] [,UNCATLG]

2 什么是PROCEDURE，有哪几种PROCEDURE，简述区别 有2中PROCEDURE， 一种是CATALOG的PROCEDURE，是把过程的JCL语句写在一个编目的数据集里，该数据集必须是PDS 或PDSE里的一个成员，能够同时被多个JCL 调用。另一种是INSTREAM的PROCEDURE，流内PROCEDURE,写在一个JCL里面,以PROC开头，以PEND字句结束。

3.什么是GDG数据集，GDG数据集的每一代数据集是否可以是不同类型的? 定义GDG数据集有3个重要的参数： LIMIT NOEMPTY SCRATCH 各表示什么含义？

对于一些常见的面试题进行了系统总结。

JCL:

1 简单描述一下DISP的使用，它有哪些参数？

DISP 参数用来告诉系统要使用的数据集的状态是什么并且告诉系统当本作业步执行完毕后如何处理这个数据集。你可以为作业步正常结束和非正常结束时分别指定不同的处理方法。

DISP= ( [NEW] [,DELETE ] [,DELETE ] )为空时也表示这个。

[OLD] [,KEEP ] [,KEEP ]

[SHR] [,PASS ] [,CATLG ]

[MOD] [,CATLG ] [,UNCATLG]

[, ] [,UNCATLG]

2 什么是PROCEDURE，有哪几种PROCEDURE，简述区别 有2中PROCEDURE， 一种是CATALOG的PROCEDURE，是把过程的JCL语句写在一个编目的数据集里，该数据集必须是PDS 或PDSE里的一个成员，能够同时被多个JCL 调用。另一种是INSTREAM的PROCEDURE，流内PROCEDURE,写在一个JCL里面,以PROC开头，以PEND字句结束。

3.什么是GDG数据集，GDG数据集的每一代数据集是否可以是不同类型的? 定义GDG数据集有3个重要的参数： LIMIT NOEMPTY SCRATCH