搭建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