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