Download presentation
Presentation is loading. Please wait.
1
CICS和DB2应用结合 引入CICS API和CICS MAP的嵌入式COBOL程序完整示例
在下面的例子中,引入CICS API和CICS MAP,系统参数不通过JCL程序提供,而是通过在CICS MAP的界面中输入。 通过SELECT语句将样例表中的数据选出并简单运算后显示于CICS MAP。 1.1 COBOL源程序 COBOL源程序如下:
10
1.2 CICS MAP的COPY BOOK CICS MAP对应的COPY BOOK,可由SDFII工具自动生成:
16
1.3 CICS MAP源程序 CICS MAP源程序如下,可由SDFII自动生成:
22
1.4 DB2预编译、CICS翻译、编译、链接、执行COBOL源程序的JCL
处理含CICS API语句和DB2 SQL语句的嵌入式COBOL应用程序比处理仅含DB2 SQL语句的嵌入式COBOL应用程序多出了DB2预编译之后的CICS翻译步骤,并且去掉执行COBOL程序的步骤,而在CICS REGION中执行。 DB2预编译、CICS翻译、编译、链接COBOL源程序的JCL如下:
28
CICS部分的操作 1.5.1 VSAM简介 IBM在20世纪70年代就引入了虚拟顺序访问方法(Virtual Sequential Access Method,简称VSAM)使得对顺序、随机和键值记录的访问变得更容易。VSAM数据集有四种不同的类型:键值排序数据集(KSDS)、条目排序数据集(ESDS)、相对记录数据集(RRDS)以及线性数据集(LDS)。有许多产品使用VSAM数据集,例如CICS, 文件管理程序(File Manager),DITTO,等等。许多编程语言也提供支持VSAM数据集的机制,例如COBOL,PL/I,汇编语言,以及Java。
29
在VSAM数据集中,一条逻辑记录指用于存储数据的一个单元信息。例如,一条记录可能包含客户ID,名字,地址以及账户号。在逻辑记录中的一个重要域就是键值,它的内容可用于搜索指定逻辑记录。组成一个VSAM数据集的一组相关组件称为一个群集(cluster)。对于KSDS数据集,一个群集由一个数据部分和一个索引部分组成。群集的概念简化了VSAM的处理过程,把索引和数据部分作为一个具有编目名称的单独实体。 VSAM文件几种组织形式简介如下:
30
1)键顺序文件KSDS:这种文件与索引文件相似,由索引部分和数据部分组成。索引部分包含树型结构的多级索引。数据部分内的记录按键值顺序排列。因此,这种文件及可以按键值进行顺序存取,也可利用索引,根据键值进行直接存取。 2)输入顺序文件ESDS:文件内的记录按输入顺序排列。因此,可以按照排列顺序进行存取,也可以指定记录的相对字节地址,对特定记录进行存取。 3)相对记录文件RRDS:文件空间被划分为等长的SLOT,每个SLOT只存放一个记录,从第一个SLOT开始分别赋予连续的顺序号,这样的号码叫相对记录号。只要给出相对记录号,就可实现对特定记录的直接存取。 4)线性文件LDS:只有数据组件,由应用去成组/分解逻辑记录。LDS的CI大小总是4096字节,无控制信息。应用去成组/分解逻辑记录。用DIV MACRO访问。
31
VSAM数据集可以使用称为IDCAMS的实用性程序来定义,IDCAMS包含在DFSMSdfp中。下面是一个创建VSAM文件的JCL示例,在这个例子中,创建了一个具有10个字节键值和28个字节固定数据长度的VSAM数据集。当成功分配该数据集后,将会有ST001.VSAM.CLUSTER(此为群集)、ST001.VSAM.CLUSTER.INDEX(此为索引部分)、ST001.VSAM.CLUSTER.DATA(此为数据部分)。
33
1.5.2 新建CICS REGION 第一步:创建通用CICS数据集:
41
第二步:创建CSD(CICS System Definition)数据集:
46
第三步:将一些预定义的CSD导入CICS REGION:
48
ST001.CICSSAMP.JCL(EQACCSD)部分内容如下:
50
第四步:确认主节点激活,如果没有激活,先激活之:
激活主节点:
53
确认主节点激活:
56
1.5.3启动并登录CICS REGION 首先创建CICS启动JCL:
60
然后提交CICS启动JCL启动CICS REGION:
63
如果要停止这个CICS REGION,只要将这个活动的作业P掉即可:
66
CICS REGION正常启动后,可以登录CICS REGION:
69
如果采用系统缺省的CICS REGION,那么启动CICS REGION的命令如下:
71
如果要停止系统缺省的CICS REGION,命令如下:
73
登录系统缺省的CICS REGION的界面如下:
75
注:下文我们将使用系统缺省的CICS REGION,而不是新建的CICA。
76
1.5.4 在现有LIST中增加资源组 在现有的LIST XYZLIST中增加资源组TEST
79
1.5.5 在组中定义程序 在组中定义程序(PROGRAM)
82
1.5.6 在组中定义映像集 在组中定义映像集(MAPSET)
85
1.5.7 在组中定义交易 在组中定义交易(TRANSACTION)
88
1.5.8 安装组 安装组,包括安装程序、映像集和交易。
91
1.5.9 在组中定义DB2连接 在组中定义DB2连接(DB2CONN)
94
在组中定义DB2条目 在组中定义DB2条目(DB2ENTRY)
97
停止CICS与DB2的连接设施,以便采用新定义的DB2连接和条目
99
显示组中定义的资源 显示组中定义的资源
101
安装新定义的资源DB2连接和DB2条目 安装新定义的资源DB2连接和DB2条目
103
重新启动CICS与DB2的连接设施,采用新定义的DB2连接和条目
106
运行示例交易 输入交易号码运行交易和程序
109
输入查询条件并从数据库表中得到结果
112
实例结束,退出CICS REGION
Similar presentations