cobol语言实验手册

《cobol语言实验手册》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、COBOL编程语言实验手册华中科技大学IBM技术中心2014年5月1实验准备一、IBM通信客户端安装与启动IBM通信客户端采用3270仿真终端。该软件无需安装，仅仅通过配置文件即可运行。该终端运行的操作系统为windows系列。配置3270仿真首先要明确主机基本配置信息。主机配置基本信息如下：主机IP：202.115.7.252端口：23配置过程如下：第一步，第二步，第三步，2第四步，第五步，3第六步，经过上述六步，配置完毕。接下来，开启3270客户端。首先，然后，4最后，当上述操作完成后，会出现大型主机

2、登陆界面，如下：5二、大型主机基本操作第一步，在提示符处输入“TSO”进入大型主机，操作如下：第二步，输入大型主机ID号码。第三步，输入密码（新账号需输入密码后，修改密码，并重新输入以确认修改密码）6第四步，进入大机环境，敲击回车（Enter或右Ctrl键）。之后进入ISPF主界面。7对于新账号，在进行COBOL实验学习之前，需要建立以下三个数据集：HZTE02为老师的账号，创建数据集之前，需将数据集名字替换成自己的账号。即上图圈出的三个数据集名字改成如下形式：HZXXX.COBOL.JCL，HZXXX.

3、COBOL.LOADLIB，HZXXX.COBOL.SRCLIB。接下来，讨论如何创建数据集。注意，在大机环境中返回到上一个界面，使用F3按键，F3表示退出并保存。大机环境下，“确定”（回车）是Enter键或右Ctrl键。向上翻页用F7，向下翻页用F8。创建数据集需要先进入ISPF主界面，然后在提示符处输入3.2。8接着，进入DataSetUtility界面分配数据集。以分配COBOL实验需要的三个数据集为例，先建立HZXXX.COBOL.JCL，操作如下：在DataSetName处输入cobol.jcl

4、，在Option输入a，回车。接着进入数据集配置界面，相关参数参照上图：Spaceunits为TRACK，Primaryquantity为20，Secondaryquantity为5，Directoryblocks为50，Recordformat为FB，Recordlength为80，Blocksize为4080。修改完上述值后，按回车。此时数据集创建完成。然后，按F3返回ISPF，并输入3.4,去查看建立的数据集。9输入回车，进入DataSetListUtility。接着，在DsnameLevel输入自

5、己的账号HZXXX，接着输入回车。如下图，数据集创建成功。10其它两个数据集HZXXX.COBOL.LOADLIB，HZXXX.COBOL.SRCLIB创建过程相同，但是注意：HZXXX.COBOL.LOADLIB的数据集配置时将Recordformat改为U！一定要注意，再次强调，在ISPF输入3.2之后的数据集分配的时候，数据集HZXXX.COBOL.LOADLIB的设置中Recordformat一定要为U，而不是之前FB。当然，HZXXX.COBOL.SRCLIB的设置与HZXXX.COBOL.JC

6、L相同。关于以上三个数据集的功能如下：HZXXX.COBOL.LOADLIB为编译后的COBOL程序存放位置。HZXXX.COBOL.SRCLIB为COBOL源程序存放位置。HZXXX.COBOL.JCL为编译COBOL程序的JCL和运行编译后代码的JCL所存放位置。切记上述数据集的功能，以后实验的代码均按照上述三个数据集所在位置放置相应代码和数据！以上三个数据集可以通过大型主机TSO的CO命令，去拷贝老师的相应数据集下的所有文件与程序。拷贝操作在下一节会介绍。11三、编写、编译和运行COBOL程序在IS

7、PF的Option输入3.4，进入DataSetListUtility。再在DsnameLevel输入HZXXX（自己的账号），即可进入自己的数据集，此时应该创建好第二节所述的三个数据集合，如下图：首先，在源文件的数据集中创建源代码文件，可以考虑从老师相应数据集拷贝示例程序，然后修改。拷贝操作如下：敲击F3进入，DataSetListUtility。然后将HZXXX替换为老师的账号，如替换成HZTE02，然后敲击回车。12这样就进入了数据集，然后在如下图所示位置输入CO（拷贝数据集命令）按上述操作后，按回

8、车后，进入需要拷贝的数据列表画面。在需要拷贝的数据旁输入C，如下图：然后输入回车，进入拷贝面板。13最后在DataSetName处输入需要拷贝到的目的数据集，因为此处是源文件，因此拷贝到HZXXX.COBOL.SRCLIB，具体操作如下：按下回车即拷贝完毕。接着，通过按下数次F3进入DataSetListUtility。将DsnameLevel处由HZTE02改为HZXXX。14按下回车，进入数据集界面，并在HZXXX.COB