TXSeries for Multiplatforms 在Windows XP 上的初步配置

   TXSeries for Multiplatforms 在Windows XP 上安装完成后, 可以参照Installation Guide.pdf进行初步配置.

1. 创建sfs_server.  

cics_install_dir/bin/cicscp -v create sfs_server /.:/cics/sfs/HOSTNAME  

cics_install_dir是TXSeries的安装目录,hostname为计算机名字,最好是大写不超过8 个字符.

2. 启动sfs_server.  

cics_install_dir/bin/cicscp -v start sfs_server /.:/cics/sfs/HOSTNAME  

如果cics_install_dir装在E:,可以在E:/var下找到相关目录.

3. 验证sfs_server.  

CICS_install_dir/bin/sfsadmin list lvols -server /.:/cics/sfs/HOSTNAME   会显示Volumes.

4. 创建和启动region.   确保是以Administrator登陆,如果不是,将当前用户加入到Administrators和cicsgroup组.   确保sfs_server在运行中.  

cics_install_dir/bin/cicscp -v create region CICS02  

cics_install_dir/bin/cicscp -v start  region CICS02  

这里将region名字命名为CICS02,是为了和E:/IBM/cics/bin/cicslcli.ini中的命名向吻合,   而不用修改该文件.   这里要求region名字大写且不超过8个字符.没有"_",空格以及"stanza"字样.

5. 验证region创建成功.   在E:/var/cics_regions/CICS02目录下,存在如下文件或目录:   bin    data    database   dumps    environment    log    maps    region_restart    region.properties   并且日志文件也将放在该目录下,被命名为console.000000 console.000001之类的.

6. 验证region队列文件.  

cics_install_dir/bin/sfsadmin list files -server /.:/cics/sfs/HOSTNAME  

会有类似输出:  

Files:       

CICS02cicsnlqfile       

CICS02cicsnrectsqfil       

CICS02cicsplqfile       

CICS02cicsrectsqfile       

CICS02cicstdqlgfile       

CICS02cicstdqnofile       

CICS02cicstdqphfile       

dfhcfil

7. 配置Listener Process.  

cicsadd -c ld -r CICS02 -P CICS02 Protocol=NamedPipe NamedPipeName=CICSAA

8. 打开cics_install_dir/bin/下的cicslcli.ini,找到NamedPipeName = CICSAA的那一项,   将Server = XXXXX改为Server = CICS02,保存文件.   这里我们的region已经叫CICS02,此步骤可以忽略.

9. Start > Programs > IBM > TXSeries for Multiplatforms > Stop All Local Terminals

10. 运行IVP验证CICS是否安装成功,这里选择IBM COBOL来进行验证.   

停止region   

cics_install_dir/bin/cicscp -v stop region CICS02

11. 查看sfs server的volume.   

cics_install_dir/bin/sfsadmin list lvols -server /.:/cics/sfs/sfs_server_name

12. 运行

cics_install_dir/bin/cicsivp -r region_name -s /.:/cics/sfs/sfs_server_name -v data_volume -l IBMCOB    

这里region_name为CICS02    sfs_server_name为步骤1创建的sfs_server名字    data_volume为步骤11输出的Volume名字.

13. 进入到目录cics_install_dir/samples/ivp下,运行   

nmake IBMCOB   

这里用从微软下载的nmake15.exe,解压后是nmake.exe有点问题. 为此,安装了古董级软件IBM VisualAge® COBOL,在IBM VisualAge® COBOL Install Root Dir/BIN目录下,    有nmake.exe. 安装IBM VisualAge® COBOL时,IBM VisualAge® COBOL Install Root Dir/BIN会    自动被放入windows path 环境变量中.也可以安装Rational Developer for System z, 安装后,bin目录下同样有nmake.exe,不过这个软件太大,下载麻烦,但是开发cobol比较方便.

 

14. 拷贝*.ibmcob到/var/cics_regions/region_name/bin目录; 拷贝*.map到    /var/cics_regions/region_name/maps/prime目录.

15. 运行如下命令:   

cicsupdate -c pd -r CICS02 DFHCGA PathName="DFHCGA.map"                                                           cicsupdate -c pd -r CICS02 DFHCGC PathName="DFHCGC.map"                                                           cicsupdate -c pd -r CICS02 DFHCGL PathName="DFHCGL.map"                                                           cicsupdate -c pd -r CICS02 DFHCBRW PathName="dfhcbrw"                                                            

cicsupdate -c pd -r CICS02 DFHCMNU PathName="dfhcmnu"                                                            

cicsupdate -c pd -r CICS02 DFHCMNU PathName="dfhcmnu"                                                            

 cicsupdate -c pd -r CICS02 DFHCGB PathName="DFHCGB.map"                                                           cicsupdate -c pd -r CICS02 DFHCGK PathName="DFHCGK.map"                                                           cicsupdate -c pd -r CICS02 DFHCALL PathName="dfhcall"                                                       

cicsupdate -c pd -r CICS02 DFHCCOM PathName="dfhccom"                                                            

cicsupdate -c pd -r CICS02 DFHCREN PathName="dfhcren" 

16. 查看验证/var/cics_regions/region_name/database/PD/PD.stanza内容.

17. 启动region.   

     cicscp -v start region CICS02 StartType=cold

18. Start > Programs > IBM >TXSeries for Multiplatforms > Start Local Terminal,   

选择CICS02本地客户.    输入MENU,回车(映射为Ctrl键);   

在ENTER TRANSACTION段输入ADDS;   

在NUMBER段输入222222;   

回车(CTRL),进入到FILE ADD屏幕;   

在FILE ADD屏幕,输入      NAME: JOE       ADDRESS: 123       MAIN PHONE: 5555555       DATE: 121501       AMOUNT: $1000.00       COMMENT: COMMENT    回车,出现INSTRUCTIONS COBOL屏幕,并且RECORD ADDED可见;   

在ENTER TRANSACTION段输入BRWS,在NUMBER输入222222,回车;   

FILE BROWSE屏幕出现,显示刚才添加的记录内容.   

注意:    如果在启动Local Terminal的CICS02本地客户后,输入MENU,回车后报错,可在    /var/cics_regions/CICS02中查看日志,如日志名称为console.000002,用编辑器 打开,比如发现如下错误:       

代码页“IBM-1381”和代码页“IBM-850”之间的数据转换例程不可用，错误号为 2   

无法初始化与远程系统的通信以便运行事务“CRTE”。   

事务“CRTE”在终端“????”上异常终止：“A28D”。   

已回退事务“CRTE”的逻辑工作单元；

分布式事务服务（TRAN）原因为“ENC-tra-1025”       

====================================================================

在/var/cics_regions/CICS02/database/CD/CD.stanza和 /var/cics_regions/CICS02/database/CD/CD.CICS02/CD.auto    将其中的IBM-850改为IBM-1381.    此项错误可以参考: 

http://confusedday.blogbus.com/logs/15733959.html