COBOL基础操作

AHEADETP MF4组1班
COBOL
上机实验报告
姓名：
编号：CN0001
日期: 2011.02.XX
List
COBOL Exercise (3)
1. HELLO (3)
2. ACCEPT1 (5)
3. READ1 (12)
4. WRITE (14)
5. SIGN1 (21)
6. STRING (25)
7. DATE1 (29)
8. PARM1 (32)
9. COPY1 (36)
10. SUBPROGRAM (38)
11. TABLE1 (45)
12. SEARCH1 (52)
13. SORT1 (54)
14. SEQ1000 (57)
15. SEQ2000 (60)
16. RPT1000 (63)
COBOL Exercise
1.HELLO
这是一个入门程序，功能是显示：“HELLO WORLD”
创建CN0001.COBLE.LOADLIB 的PDS数据集文件：
COBOL语言编译的HELLO源程序代码，源代码如图：
文件名为COMPILE的JCL文件源代码如图：
文件名为GOHELLO的JCL文件源代码如图：
2.ACCEPT1
这个程序主要是学习ACCEPT语句，该语句主要用于接收数据，当用户从终端上输入数据时，这些数据将通过
ACCEPT语句保存到相应变量中。

文件名为ACCEPT1的COBOL文件源代码如图：
运行后结果如图：
运行文件名为GACCEPT1的JCL文件源代码如图：
运行结果如图：
COMPUTE1和COMPUTE2
利用ACCEPT语句接受数据，然后进行简单的运算。

COMPUTE1:
COBOL代码如图：
把文件名为COMPILE 的JCL文件SUB，使相应的COBOL变为可执行文件，运行后如图：
编写Gcompute1的JCL源程序代码文件，它可调用上步生成的可执行文件，源代码如图：
运行后结果如下图：
COBOL代码如图：
把文件名为COMPILE 的JCL文件SUB，使相应的COBOL变为可执行文件，运行后如图：
编写文件名为Gcompute2的JCL源程序代码文件，它可
调用上步生成的可执行文件，源代码如图：
对接收的值N.的一系列运算过程参照相应的COBOL程序，如下图：
运行后值=【（12+3）/5 – 2 】* 8=08，下图为运行结果：
3.READ1
这个程序主要是学习READ语句，该语句用于从文件中读取数据。

COBOL代码如图：
编写文件名为GOREAD1的JCL源程序代码文件，它可调用上步生成的可执行文件，源代码如图：
运行后得出结果，下图为运行结果：
4.WRITE
主要是学习WRITE语句，该语句与READ语句相对应，主要用于对文件的写入。

但是要注意的是，READ语句后面为文件名，WRITE语句后面则为记录名。

此练习有以下几个程序：
WRITE1
COBOL代码如图：
编写文件名为GOWRITE1的JCL源程序代码文件，它可调用上步生成的可执行文件，源代码如图：
运行后得出结果，下图为运行结果：
WRITE2
COBOL代码如图：
编写文件名为GOWRITE2的JCL源程序代码文件，它可调用上步生成的可执行文件，源代码如图：
运行后得出结果，下图为运行结果：
WRITE3
COBOL代码如图：
编写文件名为GOWRITE3的JCL源程序代码文件，它可调用上步生成的可执行文件，源代码如图：
运行后得出结果，下图为运行结果：
OUT3文件如图：
5.SIGN1
这个程序主要学习SIGN/COMP/COMP-3
COBOL代码如图：
编写文件名为GOSIGN1的JCL源程序代码文件，它可调用上步生成的可执行文件，源代码如图：
运行后得出结果，下图为运行结果：
SIGN1NEW
COBOL代码如图：
编写文件名为GOSIGN1的JCL源程序代码文件，它可调用上步生成的可执行文件，源代码如图：
运行后得出结果，下图为运行结果：
SIGNOUT文件如图：
6.STRING
主要学习STRING语句，该语句用于对字符串进行相关基本操作。

STRING1
使用STRING语句对字符串进行合并操作。

COBOL代码如图：
编写文件名为GOSIGN1的JCL源程序代码文件，它可调用上步生成的可执行文件，源代码如图：
运行后得出结果，下图为运行结果：
STRING2
使用UNSTRING语句对字符串进行拆分操作。

COBOL代码如图：
编写文件名为GOSIGN1的JCL源程序代码文件，它可调用上步生成的可执行文件，源代码如图：
运行后得出结果，下图为运行结果：
7.DATE1
这个程序功能是显示日期和时间。

COBOL代码如图：
编写文件名为GODATE1的JCL源程序代码文件，它可调用上步生成的可执行文件，源代码如图：
运行后得出结果，下图为运行结果：
通过分析可知，要使年份4位输出，可用以下2种方式，如下图：
结果为：
8.PARM1
这个程序主要学习参数的传递。

COBOL代码如图：
编写文件名为GOSIGN1的JCL源程序代码文件，它可调用上步生成的可执行文件，源代码如图：
运行后得出结果，下图为运行结果：
STRING2
使用UNSTRING语句对字符串进行拆分操作。

COBOL代码如图：
编写文件名为GOSIGN1的JCL源程序代码文件，它可调用上步生成的可执行文件，源代码如图：
运行后得出结果，下图为运行结果：
9.COPY1
这个程序主要学习如何拷贝一个文件到程序中。

COBOL代码如图：
编写文件名为GOCOPY的JCL源程序代码文件，它可调用上步生成的可执行文件，源代码如图：
运行后得出结果，下图为运行结果：
10.S UBPROGRAM
a)关于子程序的调用
MYSUB1的COBOL代码如图：
DRIVER1
这个程序是静态子程序调用。

COBOL代码如图：
编写文件名为GDRIVER1的JCL源程序代码文件，它可调用上步生成的可执行文件，源代码如图：
运行后得出结果，下图为运行结果：
DRIVER2
这个程序是动态子程序调用。

COBOL代码如图：
编写文件名为GDRIVER2的JCL源程序代码文件，它可调用上步生成的可执行文件，源代码如图：
运行后得出结果，下图为运行结果：
b) NUMEDIT
这个程序用于数据编辑。

COBOL代码如图：
编写文件名为GDRIVER3的JCL源程序代码文件，它可调用上步生成的可执行文件，源代码如图：
运行后得出结果，下图为运行结果：
11.TABLE1
这个程序是关于表的操作。

COBOL代码如图：
编写文件名为GOTABLE1的JCL源程序代码文件，它可调用上步生成的可执行文件，源代码如图：
运行后得出结果，下图为运行结果：
查看CN0001.COBOL.PAYLIST文件，如下图：
a)INDEX1
这个程序用到索引，通过索引来管理表。

定义索引表，要指明表的名称，数据条目，重复次数，还要包含一个索引变量。

要注意的是，索引变量只用指明，不必进行定义。

COBOL代码如图：
编写文件名为GOINDEX1的JCL源程序代码文件，它可调用上步生成的可执行文件，源代码如图：
运行后得出结果，下图为运行结果：
查看CN0001.COBOL.PAYLIST1文件，如下图：
INDEXNEW
COBOL代码如图：
编写文件名为GOINDEXNW的JCL源程序代码文件，它。