Windows下搭建COBOL开发环境

最近在学习COBOL，买了一本《精通COBOL——大型机商业编程技术详解》，但是书内关于用Hercules模拟真实的大型机系统讲解并不太完整，现在我把这几天来的奋斗心得写一下。

从模拟软件的安装说起

需要下载以下的软件：

1、ADCD z/OS1.9系统的卷文件（注意最好把这些卷文件备份一份） 地址是：http://www.hercules-390.org/

2、下载Hercules-3.07.-w32.msi软件（需要安装到windows下） 地址是：http://www.hercules-390.org/

再下载个图形界面

http://www.softdevlabs.com/Hercules/HercGUI-1.11.1.5265-bin.zip

3、下载3270仿真软件PCOM，这个自己Google搜一下

4、下载Microsoft Visual C++ 2008Service Pack 1 Redistributable Package，google一下就可以了

安装步骤：

具体参考以下链接中的博文

http://blog.csdn.net/tuliangde/article/details/6124519

一开始我也按照上面的博文所说的去设置，可是一直IPL失败，现我把自己的设置贴出来，供参考

配置HercGUI的CONF文件，可参考如下，把它保存为D:\Hercules\conf\Sample.conf

注意下面的DASDDevices的路径要配置你存放CCKD文件的目录

 

#

 # HerculesEmulator Control file…

 # Description:z/OS 1.9 MIB Sample

 #MaxShutdownSecs: 15

 #

 #

 # Systemparameters

 #

 

ARCHMODE z/Arch

 ALRF     ENABLE

 CCKD    RA=2,RAQ=4,RAT=2,WR=2,GCINT=5,GCPARM=0,NOSTRESS=0,TRACE=0,FREEPEND=-1

 CNSLPORT 3270

 CONKPALV (3,1,10)

 CPUMODEL 3090

 CPUSERIAL012345

 DIAG8CMD ENABLE

 ECPSVM   YES

 LOADPARM 0A8299M1

 LPARNAME HERCULES

 MAINSIZE 1024

 MOUNTED_TAPE_REINIT DISALLOW

 NUMCPU   2

 OSTAILOR Z/OS

 PANRATE  80

 PGMPRDOS LICENSED

 SHCMDOPT NODIAG8

 SYSEPOCH 1900

 TIMERINT 50

 TZOFFSET +1400

 YROFFSET 0

 

 HERCPRIO 0

 TODPRIO  -20

 DEVPRIO  8

 CPUPRIO  0

 PANTITLE “z/OS 1.9 IPL A80″

 

# Display Terminals

 

0700.3   3270

 

# DASD Devices 

0A80   3390    D:\ADCDV1R6\ZOSV1R6\Z9RES1.CCKDsf=D:\ADCDV1R6\ZOSV1R6\Z9RES1_Shadow.CCKD

0A81   3390    D:\ADCDV1R6\ZOSV1R6\Z9RES2.CCKDsf=D:\ADCDV1R6\ZOSV1R6\Z9RES2_Shadow.CCKD

0A82   3390    D:\ADCDV1R6\ZOSV1R6\Z9SYS1.CCKDsf=D:\ADCDV1R6\ZOSV1R6\Z9SYS1_Shadow.CCKD

0A83   3390    D:\ADCDV1R6\ZOSV1R6\Z9RES3.CCKDsf=D:\ADCDV1R6\ZOSV1R6\Z9RES3_Shadow.CCKD

0A84   3390    D:\ADCDV1R6\ZOSV1R6\Z9USS1.CCKDsf=D:\ADCDV1R6\ZOSV1R6\Z9USS1_Shadow.CCKD

0A85   3390    D:\ADCDV1R6\ZOSV1R6\Z9PRD1.CCKDsf=D:\ADCDV1R6\ZOSV1R6\Z9PRD1_Shadow.CCKD

0A86   3390    D:\ADCDV1R6\ZOSV1R6\Z9DIS1.CCKDsf=D:\ADCDV1R6\ZOSV1R6\Z9DIS1_Shadow.CCKD

0A87   3390    D:\ADCDV1R6\ZOSV1R6\Z9DIS2.CCKDsf=D:\ADCDV1R6\ZOSV1R6\Z9DIS2_Shadow.CCKD

0A88   3390    D:\ADCDV1R6\ZOSV1R6\Z9DIS3.CCKDsf=D:\ADCDV1R6\ZOSV1R6\Z9DIS3_Shadow.CCKD

0A89   3390    D:\ADCDV1R6\ZOSV1R6\Z9DIS4.CCKDsf=D:\ADCDV1R6\ZOSV1R6\Z9DIS4_Shadow.CCKD

0A8A   3390    D:\ADCDV1R6\ZOSV1R6\Z9DIS5.CCKDsf=D:\ADCDV1R6\ZOSV1R6\Z9DIS5_Shadow.CCKD

0A8B   3390    D:\ADCDV1R6\ZOSV1R6\Z9DIS6.CCKDsf=D:\ADCDV1R6\ZOSV1R6\Z9DIS6_Shadow.CCKD

0A8C   3390    D:\ADCDV1R6\ZOSV1R6\SARES1.CCKDsf=D:\ADCDV1R6\ZOSV1R6\SARES1_Shadow.CCKD

0A8D   3390    D:\ADCDV1R6\ZOSV1R6\Z9CIC1.CCKDsf=D:\ADCDV1R6\ZOSV1R6\Z9CIC1_Shadow.CCKD

0A8E   3390    D:\ADCDV1R6\ZOSV1R6\Z9DB81.CCKDsf=D:\ADCDV1R6\ZOSV1R6\Z9DB81_Shadow.CCKD

0A8F   3390    D:\ADCDV1R6\ZOSV1R6\Z9DB82.CCKDsf=D:\ADCDV1R6\ZOSV1R6\Z9DB82_Shadow.CCKD

0A90   3390    D:\ADCDV1R6\ZOSV1R6\Z9DB91.CCKDsf=D:\ADCDV1R6\ZOSV1R6\Z9DB91_Shadow.CCKD

0A91   3390    D:\ADCDV1R6\ZOSV1R6\Z9DB92.CCKDsf=D:\ADCDV1R6\ZOSV1R6\Z9DB92_Shadow.CCKD

0A92   3390    D:\ADCDV1R6\ZOSV1R6\Z9IMS1.CCKDsf=D:\ADCDV1R6\ZOSV1R6\Z9IMS1_Shadow.CCKD

0A93   3390    D:\ADCDV1R6\ZOSV1R6\Z9WAS1.CCKDsf=D:\ADCDV1R6\ZOSV1R6\Z9WAS1_Shadow.CCKD

0A94   3390    D:\ADCDV1R6\ZOSV1R6\Z9WAS2.CCKDsf=D:\ADCDV1R6\ZOSV1R6\Z9WAS2_Shadow.CCKD

0A95   3390    D:\ADCDV1R6\ZOSV1R6\Z9WAS3.CCKDsf=D:\ADCDV1R6\ZOSV1R6\Z9WAS3_Shadow.CCKD

 

 

# CTC Adapters

 

#0E20.2 3088CTCI-W32 192.168.1.4 00-23-7D-4E-50-97

# CTC Adapters 

#0E20-0E21   CTCI    192.168.1.1 192.168.1.104

0E20.23088 CTCI-W32  192.168.1.1 E4-D5-3D-2F-AF-E8 #此处我填的是自己的物理地址

 

一切准备好后，在Hercules模拟器上点Command->IPL/Load

当其中一个会话出现如下信息，按右Ctrl键

第一次启动需要回答以下一些问题

或者尝试回答 r 00,y

    r 01,noreq

    r 02,y

反正都可以试一下，我只是初学者，只能瞎蒙，也不懂什么意思。

此外，如果遇到如下错误

输入下面的MVS命令

S JES2，PARM=FORMAT

 

当看到另一个会话出现一下画面，证明你已经成功地启动了Z/OS系统，赶紧继续你的COBOL之旅吧。下一篇博文将实现“Hello World！”

平时比较少写博文，希望各位多多指教。

同时我也参考了以下的文章

http://www.ibmmainframe.cn/2010/09/hercules-zos-1-9-setup-on-windows764bit/