搭建IBM z/OS 1.9（ADCD 1.9）

去http://www.verycd.com/groups/software/280391.topic下载z/OS1.9的模拟器ADCD 1.9，按照里面配置文件和说明进行配置。然后参考http://www.efglobe.com/modules.php?name=Forums&file=viewtopic&t=1847&sid=fc50450787a2e265a962c3d8d2317ba3进行更改，这里的更改包括：

1 在sys1.iplparm(load99)中添加一行 SYSPARM 00

2 将volume serial为Z9USS1下的所有dataset编目

我还作了如下更改，仅供参考：

1 oedit /ADCD/etc/resolve.conf ，更改结果如下：

TCPIPJobName TCPIP
DomainOrigin dfw.ibm.com
domain dfw.ibm.com
Datasetprefix TCPIP
HostName p390
NSINTERADDR 9.181.85.251
Messagecase mixed
ALWAYSWTO YES

2 建立/ADCD/etc/hosts文件，内容如下：

9.181.85.251 p390.dfw.ibm.com p390

3 使ADCD.Z19.TCPPARMS(TCPDATA)和resolve.conf 内容一致。

在配置好tcpip后，在ISPF Command Shell中使用

MAKESITE HLQ=TCPIP

hometest

命令测试系统。

下面附一个编译cobol的jcl：

//HFSDEMO JOB ,
// TIME=(1),MSGLEVEL=(1,1),MSGCLASS=H,CLASS=A,REGION=50M,
// NOTIFY=&SYSUID,USER=&SYSUID
//COMPILE EXEC IGYWC,
// PARM.COBOL=’LIST,MAP,RENT,FLAG(I,I),XREF,ADATA’
//STEPLIB DD DSN=ADCD.Z19.PROCLIB,DISP=SHR
//SYSPRINT DD PATH=’/u/ibmuser/cobol/demo.lst’,
// PATHOPTS=(OWRONLY,OCREAT,OTRUNC),
// PATHMODE=SIRWXU,
// FILEDATA=TEXT
//SYSLIN DD PATH=’/u/ibmuser/cobol/demo.o’,
// PATHOPTS=(OWRONLY,OCREAT,OTRUNC),
// PATHMODE=SIRWXU
//SYSADATA DD PATH=’/u/ibmuser/cobol/demo.adt’,
// PATHOPTS=(OWRONLY,OCREAT,OTRUNC),
// PATHMODE=SIRWXU
//COBOL.SYSIN DD PATH=’/u/ibmuser/cobol/num.cbl’,
// PATHOPTS=ORDONLY,
// FILEDATA=TEXT,
// RECFM=F