CICS 常用命令列表
CICS RESP
……
其中ERR-CODE是由用户定义的一个变量。该变量通过RESP选项可得到所抛出异常的编号。将该异常编号与CICS系统中的DFHRESP相应异常编号进行比较,便可判断出该异常的类型。除以上代码中出现的异常外,通常还有以下几种异常类型:
IF ERR-CODE = DFHRESP(TERMERR) /*终端错误异常*/
MOVE 12 TO INLEN.
EXEC CICS RECEIVE INTO(INAREA)
LENGTH(INLEN)
RESP(ERR-CODE) /*此处捕获异常*/
END-EXEC.
IF ERR-CODE = DFHRESP(LENGERR)
MOVE ‘INPUT DATA TOO LONG’ TO MSG
EXEC CICS SEND FROM(MSG)
LENGTH(20)
……
IF ERR-CODE = DFHRESP(EOC) /*链结束(End of Chain)异常*/
……
IF ERR-CODE = DFHRESP(ERROR) /*错误异常*/
……
05 ERR-CODE PIC S9(8) COMP.
01 INAREA.
05 DATA-1 PIC X(5).
05 FILLER PIC XX.
05 DATA-2 PIC X(5).
……
*
PROCEDURE DIVISION.
……
END-EXEC
……
EXEC CICS RETURN END-EXEC.
GOBACK.
由以上代码可以看到,判断该异常的类型实际上是通过以下代码实现的:
COBOL+CICS文件操作
COBOL+CICS文件操作1.输入输出数据非CICS:ACCEPT数据来源:终端输入和系统接收。
一般系统接收数据为日期或者时间。
DA TE--YYMMDD.DAY---YYDDD.DAY-OF-WEEK--- PIC 9. 范围1-7.TIME---HHMMSSHH,最后HH表示hundredths from midnigth.如:DA TA DIVISION.WORKING-STORAGE SECTION.01 INPUT-DATE.05 INPUT-YEAR PIC 99.05 INPUT-MONTH PIC 99.05 INPUT-DAY PIC 99.*PROCEDURE DIVISION....ACCEPT TEST-DA TE.DISPLAY TEST-DATE. ---终端输入的数据ACCEPT TEST-DA TE FROM DA TE. --系统产生的数据DISPLAY TEST-DATE. --输出CICS下:如:DA TA DIVISION.WORKING-STORAGE SECTION.01 INFLDS.05 INLEN PIC 9(4) COMP.01 INPUT-NAME.05 INPUT-FIRST PIC X(10).05 INPUT-MIDDLE PIC X(10).05 INPUT-LAST PIC X(10).*PROCEDURE DIVISION....MOVE 15 TO INLEN.EXEC CICS RECEIVE INTO(INPUT-NAME)LENGTH(INLEN) --所接收的最大长度,小于为实际,大于为异常END-EXEC.EXEC CICS SEND FROM(INPUT-NAME)LENGTH(20) --为实际长度,并非变量。
输出位置为当前光标位置END-EXEC....GOBACK.2.文件操作普通文件非CICS:如:ENVIRONMENT DIVISION.INPUT-OUTPUT SECTION.FILE-CONTROLSELECT CUSTOMER-FILE ASSIGN TO S-SYSIN. --定义对应到COBOL文件名SELECT PRINT-FILE ASSIGN TO S-SYSOUT.*DATA DIVISION.FILE SECTION.FD CUSTOMER-FILE --定义FD记录RECORD MODE IS F.01 CUSTOMER-RECORD.05 CUST-NO PIC 9(5).05 CUST-NAME PIC X(10).FD PRINT-FILE.RECORD MODE IS F.LABEL RECORDS ARE OMITTEDRECORD CONTAINS 132 CHARACTERSDATA RECORD IS PRINT-LINE. --定义数据记录在程序中的名称01 PRINT-LINE PIC X(132).WORKING-STORAGE SECTION.01 EOF-FLAG PIC X V ALUE 'N'.01 HEADING-LINE.05 FILLER PIC X(5) V ALUE SPACES.05 FILLER PIC X(15) V ALUE 'CUSTOMER NO'.05 FILLER PIC X(7) V ALUE SPACE.05 FILLER PIC X(15) V ALUE 'CUSTOMER NAME'.05 FILLER PIC X(90).01 OUTPUT-FILE.05 FILLER PIC X(10) V ALUE SPACES.05 PRT-NO PIC X(5).05 FILLER PIC X(15) V ALUE SPACES.05 PRT-NAME PIC X(10).05 FILLER PIC X(92).*PROCEDURE DIVISION.OPEN INPUT CUSTOMER-FILE ---OPEN语句可以指出该文件时输入还是输出文件。
3.CICS编程基础 Part 2
35
添加数据库数据记录
36
添加多条数据库数据记录
WORKING-STORAGE SECTION.
1
EXEC SQL DECLARE DEPTA00 TABLE (EMPNIMBER CHAR(6) NOT NULL, FNAME VCHAR(12) NOT NULL, LNAME VCHAR(12) NOT NULL, HRDATE DATE ) … EXEC SQL DECLARE TEMPL TABLE (EMPNO CHAR(6) NOT NULL, …. PROCEDURE DIVISION.
19 19
数据库存取的程序组织
数据库存取程序 的组织结构如右 图所示:
图中需要注意: 由程序使用的表和视图必须先要在工作存储节中声明。 SQLCA用来与SQL语句执行的结果进行通信。 Data Division中的工作存储节和连接节中定义Host Variables,用来存放获取的 关系数据。 COBOL程序中的SQL语句都以EXEC SQL开头,以END-EXEC结束。
2
数据访问功能总揽
3
程序结构
4
文件相关命令
5
READ File命令
6
Read command
EXEC CICS READ FILE(name) INTO(data-area) RIDFLD(data-area) | [RBA|RRN] [LENGTH(data-area)] [SET(ptr-ref)[ [GENERIC][KEYLENGTH(data-value)] [GTEQ|EQUAL]|[UPDATE] END-EXEC
28
游标的定义及使用
29
数据库数据更新
上图是更新数据库记录的方法
CICS常用命令列表
CICS常用命令列表cicscp说明:CICS 控制程序,可用于创建、删除、启动、停止DCE,SFS服务器,CICS Region和PPC gatewayeneral cicscp usage:cicscp [-?|([<common_options>] [<command> <noun_phrase><specific_options>])]where common options are:-I - ignore errors-l logfile - log progress messages to file-v - produce more verbose outputSpecific commands are:version:versioncreate COBOL:create coboldestroy COBOL:destroy cobolcreate SNA:create sna -d <Control Point Name>-w <Local Network Name>-x <XID Node ID>-y <Link Station Type>[-q <Link Station Name>][-s <Link Station Address>][-b <Local Secondary Station Address>]destroy SNA:destroy sna [-f]start SNA:start sna [-f]stop SNA:stop sna [-f]create telnet server:create telnet_server <server> [-P <port>][-c <client codeset>][-e <emulation>][-h <host list>][-l <locale>][-m <model>][-n <netname>][-r <region>][-s <server codeset>][-t <transaction>]destroy telnet server:destroy telnet_server <server> [-f]create SFS server:create sfs_server <server> [-m <model>][attribute overrides for SSD stanza]destroy SFS server:destroy sfs_server <server> [-f]start SFS server:start sfs_server <server> [attribute overrides for SSD stanza] stop SFS server:stop sfs_server <server> [-f]status SFS server:status sfs_server <server>stop sfs_server allcreate PPC gateway server:create ppcgwy_server <server> [-m <model>][attribute overrides for GSD stanza]destroy PPC gateway server:destroy ppcgwy_server <server> [-f]start PPC gateway server:start ppcgwy_server <server> [attribute overrides for GSD stanza]stop PPC gateway server:stop ppcgwy_server <server> [-f]status PPC gateway server:status ppcgwy_server <server>status ppcgwy_server allcreate SNA link:create sna_link [<Link Station Name>]-y <Link Station Type>[-s <Link Station Address>][-b <Local Secondary Station Address>]destroy SNA link:destroy sna_link <Link Station Name> -y <Link Station Type> create region (SFS):create region <region> [-g <group-id>][-i <infile>][-l <c|m|o|r>][-d]create region (DB2):create region <region> [-g <group-id>][-i <infile>][-l <c|m|o|r>][-a <alias> -o <instance>[-u <user[,passwd]>] [-n|-s]]create region (ORACLE):create region <region> -o ORACLE[-g <group-id>][-i <infile>][-l <c|m|o|r>][-u <user[/passwd]>] [-n|-s]destroy region (SFS):destroy region <region> [-f] [-s]destroy region (DB2):destroy region <region> [-f] [-s [-u <user[,passwd]>]] destroy region (ORACLE):destroy region <region> [-f] [-s [-u <user[/passwd]>]]start region:start region <region> [-d <distributed servers>][attribute overrides for RD stanza]stop region:stop region <region> [(-c | -f)]status region:status region <region>status region alldestroy all:destroy all [-f]start all:start allstop all:stop allstatus all:status all使用举例:5.1版本以前:创建DCEcicscp –v create dce -R删除DCE:cicscp -v destroy dce创建Region:cicscp -v create region CICSRGN1启动SFS 服务器:cicscp -v start sfs_server /.:/cics/sfs/SFS_SERVcicsadd说明:添加CICS资源定义Usage: cicsadd {-?|-c className [-r regionName] [-P|-B] [-f fileName] [-m modelId] resourceName[[attributeName=attributeValue]...]}使用举例:以下命令在CICSRGN1中增加一个通讯定义。
CICS 系统管理(AIX)
CICS 系统管理第一章三层次Client/Server 介绍第一节三层结构三层结构的客户/服务器模型是一种先进的协同应用程序开发模型,这种方案将客户/服务器系统中各种各样的部件划分为三"层"服务,它们共同组成一个应用程序,这三层服务包括: 1)、客户端服务程序;2)、业务服务和其它"中间层"服务程序;3)、数据服务(数据库)。
在实际应用过程中,中间层部件通常可分为两个以上的层次。
因此,该应用模型也被称为多层次结构。
目前,企业级应用服务器主要分为以下两类:1.基于中间件的应用服务器基于中间件的应用服务器通过与现有系统的集成,可以为企业提供更强大的功能,包括事务处理、安全管理、容错、负载平衡等。
2.基于Web的应用服务器我们深入探讨一下这种新型对象Web的三层客户/服务器体系结构。
1)、客户端第一层是属于以传统的Web浏览器和Web为中心的新的桌面范畴。
2)、中间层第二层是一些服务器,这些服务器能为HTTP和CORBA客户端提供服务。
另外,第二层也必须提供服务器端的组件协调程序,这就是众所周知的对象TP监视器。
3)、后端第三层包含所有CORBA对象能访问的内容,包括过程的TP监视器、面向消息的中间件、DBMS、ODBMS、LotusNotes和电子函件等。
从应用架构上看,两次重大的迁移最为引人注目。
第一次是从主机终端方式向Client/Server计算方式的迁移,这次迁移的积极效果之一是,打破了计算方式高度集中的局面,使计算环境向客户靠近了一大步。
第二次则是从经典的Client/Server计算方式向Internet 架构下的集成计算方式的过渡与融合,这是一个目前正在进行的过程。
第二节.三层的必要性2.1 三层结构应用系统的优越性2.1.1 性能问题三层系统要解决的第一个问题是性能问题:我们先以一个例子来说明系统架构对性能的影响,如下表格(表1-1)以电信市话系统的规模为例,表示用户数在特定数量时,需要多少业务终端为其服务:表1-2-1如果采用二层结构的话,当应用相对简单、数据访问量不大的情况下可以承受。
CICS常用命令
系统信息保存在CSMT.out和console.nnn文件中,不正常时会有ERROR信息
查看CICS REGION所在文件系统空间
文件系统/var/cics_regions
查看CICS APPLICATION SERVER数量
Ps –ef|grep cicsas|grep –v grep |wc
IBM建议REGION POOL一般在5M至10M,
Task Share一般在2M至4M之间
Task Privated的大小保持缺省
中行的REGION POOL为20M
查看DUMP文件的大小
在/var/cics_regions/TCARD/dump/dir1
DUMP文件适合建单独的文件系统
在client端查看连接
Cicscli /L=<region server>
可查看与REGION SERVER的连接状态,正常为active
若CICS SERVER有严重的CORE等
可将DUMP文件和SYMRECS。NNN等文件发送给IBM解析
Cicscp –v stiop region <REGION NAME>
停止SFS SERVER
Cicscp –v stop sfs_server /.:/cics/sfs/<SFS SERVER NAME>
查看CICS和SFS状态
Cicslssrc –a|grep cics
正常为ACTIVE
查看CICS系统信息
CICS常用命令
说明
命令
备注
启动SFS St sfs_server /.:/cics/sfs/<SFS SERVER名称>
CICS+AIX基本配置操作
CICS AIX基本配置操作- [工作灵感]CICS AIX基本配置操作CICS region的主要操作在于创建region,删除region,以及对region的导入导出和修改region相关定义。
一般操作均有命令可以直接操作,同时在AIX中可以使用SMIT更加直观的进行相关的操作。
I.创建region创建CICS region涉及的东西不多,主要是创建subsystem,创建region的目录,并在目录下创建所需要的各个资源定义文件。
正常情况下创建程序会按照CICS 默认的配置创建region。
创建region可以使用命令行也可以使用smit工具。
建议使用命令直接快捷创建,然后在使用cics相关命令对region配置进行修改。
A.命令方法cicscp -v create region regionName正常返回:ERZ096002I/0003: cicscp command completed successfullycicsdefault -r regionName正常返回:ERZ046339I/0421: Successfully imported region 'regionName'以上两种方式创建好region后必须通过以下命令冷启动region:cicscp -v start region regionName StartType=coldB.smit方法输入smitty cics选择需要涉及到的操作,这里是Manage CICS Regions创建region选择Create (Import) a CICS Region一般只需要填写需要创建的region名称,讲DCE的使用设为“do not use DCE server”显示如下信息表明创建成功。
创建成功后需要冷启动相关region,smit冷启动的方式是:先选择操作CICS region先要选择需要操作的region,选择“Change Working CICS Region”。
CICS使用
CICS提供的主要交易
• • • • • • • 签到(Sign-on):CESN 退出(Sign-off):CESF LOGOFF 系统查询:CEMT 资源定义工具:CEDA 命令解释器:CECI 浏览临时存储队列:CEBR 命令语法检查:CECS 其他命令参考《CICS Supplied Transactions》
定义安装PROGRAM步骤: CEDA DEF PROG(TE06WRTQ) GROUP(FENG) F3 CEDA EX PROG(TE06WRTQ) GROUP(FENG) I CEMT SET PROGRAM(TE06WRTQ) NEW 定义安装TRANSACTION步骤: CEDA DEF TRANS(TE06) GROUP(FENG) PROG(TE06WRTQ) F3 pause CEDA EX TRANS(TE06) GROUP(FENG) I TE06 ----------transaction的名字(只允许四位) 察看结果: CEBR TSQ FIRSTQ
CICS程序的编制、安装
ISPF Edit program Source code Translate & Compile & Linkedit Program Load module
SDF-II Define Map
New Copy
CEMT SET PROG(pgm-id) NEW
对DB2访问CICS程序编译流程
CICS
What is CICS?
• CICS (Customer Information Control System)即客户 信息控制系统,是通用的数据库/数据通信系统,可 支持一个包括若干终端和终端子系统的网络,它提 供一个面向事务处理的联机应用环境。 • CICS推出的最初目的是一个交易监视器,用于控制 台管理员和程序员监视系统的活动情况。 • 如今CICS被认为是一个中间件,运行于操作系统之 上,其他应用系统之下。 • CICS帮助操作系统高效的处理复杂任务或交易,从 而让操作系统去处理非交易型的工作。
CICS概述及命令-文档资料
CICS概述
CICS/VS是在操作系统(OS)控制下的一个分区中作为 一个主程序运行,而若干联机应用程序是在CICS控 制下运行。
OS
VSE/POWER分区 DB CICS 分区 终端
应用 1
应用 2
应用 N
终端
其它分区
CICS概述
CICS提供以下服务: 一致性的应用编程接口(API) 透明访问操作系统的功能 系统管理的辅助工具(由很多小模块组成) 特点: (1)具有商务级事务管理器所要求的整合性、可恢复性、安全性和可用性 (2)提供跨平台的API,可移植性好 (3)具有跨系统通信ISC(InterSystem Communication)能力 产品: CICS/VSE CICS/MVS CICS/400 CICS/6000 CICS/OS2 CICS FOR NT
批处理
概念:在用户不直接干预的条件下,计算机系统对一定批量 的原始材料在规定的时间进行例行处理的过程。 从程序设计的意义上,批处理程序又有以下的特点: 1.所有必须的I/O区和工作区都应在程序中给出定义。 2.由程序读入有关部门的输入数据。 3.程序直接想操作系统发出I/O指令。 4.输入数据必须在处理开始前准备就绪(包括录入、校 验等过程),在处理是顺序读入。输入数据具有可控制批量、 可预计规模、顺序排列的物理特点,因而处理进程意识可跟 踪的。 5.出现故障时,处理可重新进行,或从故障点继续向后处理。
工作机制——“TRANSACTION标识TRANSACTIONTASK 应用程序”。
2、MULTITASKING——多重任务功能
CICS对同一区域中同时运行的许多TASK实施控制,采取的控制技术是任务开 关技术(TASK SWITCHING),根据TASK的优先权分配资源。
CICS命令及交易
DFH70521 S PF:1、 HELP 8、SFH 9、MSG
RIDFLD 2、HEX 10、SB
OPTION 3、END
MUST BE SPECIFTED 4、EIB 5、VAR 6、USER 11、SF
7、SBH
CICS/VS常用交易
2、调用命令级翻译程序
检查完语法之后屏幕显示如图4.3。屏幕显示有错误信息,因为缺少参 数RIDFLD。CECI事务作语法检查并可执行命令。就键入: CECI READ DATASET (‘FILEA’) RIDFLD(000001) 检查了语法之后屏幕显示如图
例: EXEC CICS WRITEQ TS QUEUE(WK-TS-NAME) FROM(PIKAREA) LENGTH(LENGTH OF PIKAREA) RESP(WK-RESP) END-EXEC
CICS/VS常用命令
8、 START TRANSID的介绍: EXEC CICS START TRANSID('TSTC') FROM(PIKTSTC) RESP(WK-RESP) PROTECT END-EXEC 注意:PROTECT参数是指:当本程序执行完毕后, 才启动被START的程序。 例: EXEC CICS START TRANSID('TSTC') FROM(PIKTSTC) RESP(WK-RESP) PROTECT END-EXEC IF WK-RESP NOT = DFHRESP(NORMAL)
CICS/VS常用命令
5、 GETMAIN(开辟内存空间) EXEC CICS GETMAIN SET(R7) LENGTH(RECLEN) INITIMG(C' ') END-EXEC 功能:申请内存空间,申请的空间长度为RECLEN。 INITIMG是对申请的内存进行初始化。 例: EXEC CICS GETMAIN SET(PIS015-PTR-APA) FLENGTH(WK-FLEN) RESP (WK-RESP) END-EXEC IF WK-RESP NOT = DFHRESP(NORMAL) SET PIS015-RTNCDE-READERR TO TRUE PERFORM 9990-HANDLE-ERROR-RTN END-IF
CICS常用命令列表
CICS常用命令列表cicscp说明:CICS 控制程序,可用于创建、删除、启动、停止DCE,SFS服务器,CICS Region和PPC gatewayeneral cicscp usage:cicscp [-?|([<common_options>] [<command> <noun_phrase><specific_options>])]where common options are:-I - ignore errors-l logfile - log progress messages to file-v - produce more verbose outputSpecific commands are:version:versioncreate COBOL:create coboldestroy COBOL:destroy cobolcreate SNA:create sna -d <Control Point Name>-w <Local Network Name>-x <XID Node ID>-y <Link Station Type>[-q <Link Station Name>][-s <Link Station Address>][-b <Local Secondary Station Address>]destroy SNA:destroy sna [-f]start SNA:start sna [-f]stop SNA:stop sna [-f]create telnet server:create telnet_server <server> [-P <port>][-c <client codeset>][-e <emulation>][-h <host list>][-l <locale>][-m <model>][-n <netname>][-r <region>][-s <server codeset>][-t <transaction>]destroy telnet server:destroy telnet_server <server> [-f]create SFS server:create sfs_server <server> [-m <model>][attribute overrides for SSD stanza]destroy SFS server:destroy sfs_server <server> [-f]start SFS server:start sfs_server <server> [attribute overrides for SSD stanza] stop SFS server:stop sfs_server <server> [-f]status SFS server:status sfs_server <server>stop sfs_server allcreate PPC gateway server:create ppcgwy_server <server> [-m <model>][attribute overrides for GSD stanza]destroy PPC gateway server:destroy ppcgwy_server <server> [-f]start PPC gateway server:start ppcgwy_server <server> [attribute overrides for GSD stanza]stop PPC gateway server:stop ppcgwy_server <server> [-f]status PPC gateway server:status ppcgwy_server <server>status ppcgwy_server allcreate SNA link:create sna_link [<Link Station Name>]-y <Link Station Type>[-s <Link Station Address>][-b <Local Secondary Station Address>]destroy SNA link:destroy sna_link <Link Station Name> -y <Link Station Type> create region (SFS):create region <region> [-g <group-id>][-i <infile>][-l <c|m|o|r>][-d]create region (DB2):create region <region> [-g <group-id>][-i <infile>][-l <c|m|o|r>][-a <alias> -o <instance>[-u <user[,passwd]>] [-n|-s]]create region (ORACLE):create region <region> -o ORACLE[-g <group-id>][-i <infile>][-l <c|m|o|r>][-u <user[/passwd]>] [-n|-s]destroy region (SFS):destroy region <region> [-f] [-s]destroy region (DB2):destroy region <region> [-f] [-s [-u <user[,passwd]>]] destroy region (ORACLE):destroy region <region> [-f] [-s [-u <user[/passwd]>]]start region:start region <region> [-d <distributed servers>][attribute overrides for RD stanza]stop region:stop region <region> [(-c | -f)]status region:status region <region>status region alldestroy all:destroy all [-f]start all:start allstop all:stop allstatus all:status all使用举例:5.1版本以前:创建DCEcicscp –v create dce -R删除DCE:cicscp -v destroy dce创建Region:cicscp -v create region CICSRGN1启动SFS 服务器:cicscp -v start sfs_server /.:/cics/sfs/SFS_SERVcicsadd说明:添加CICS资源定义Usage: cicsadd {-?|-c className [-r regionName] [-P|-B] [-f fileName] [-m modelId] resourceName[[attributeName=attributeValue]...]}使用举例:以下命令在CICSRGN1中增加一个通讯定义。
CICSO路由器配置常用命令
a)常用命令1)改变状态命令进入特权命令状态 enable退出特权命令状态disable进入设置对话状态setup进入全局设置状态config terminal退出全局设置状态end进入端口设置状态interface type slot/number进入子端口设状态interface type numeber.subinterface[point-to-point|multipoint] 进入线路设置状态 line type slot/number进入路由设置状态router protocol退出局部设置状态exit2.)显示命令查看版本及引导信息show version查看运行设置 show running-config查看开机设置show startup-config显示端口信息show interface type slot/number显示路由信息 show ip router3)拷贝命令将配置保存到 NVRAM:copy running-config startup-config。
4.)网络命令登录远程主机 telnet hostname|IP_address网络侦测ping hostname|IP_address路由跟踪 trace hostname|IP_address5)基本设置命令全局设置 config terminal设置访问用户及密码username username password password设置特权密码 enable secret password设置路由器名 hostname name设置静态路由ip route destination subnet-mask next-hop启动IP路由ip routing启动IPX路由ipx routing端口设置interface type slot/number设置IP地址ip address address subnet-mask设置IPX网络 ipx network network激活端口 no shutdown物理线路设置line type number启动登录进程 login [local|tacacs server]设置登录密码 password password键入”?”来获得系统的帮助。
CICS命令参考
CICS/TXSeries安装说明1. 有关CICS的系统软件安装1.1 C环境, iforC环境:先安装bos.adt.*设置指令:/usr/ibmcxx/bin/replaceCSETifor: (安装在/var/ifor下)(可能要修改/etc/inittab重启动)i4cfg –stopi4cfg进入,选择第二个选项:NodeLock Server,退出时选择保存i4cfg -start(启动)i4blt 选菜单: product/enroll->import:/usr/ibmcxx/*->cxx36_cn.lic (C++与CICS冲突时,将/etc/rc.ncs文件中“startsrc -s glbd”注释掉;这样,CICS 可用,C++不能用。
)chmod -R 777 /var/ifor1.2DB, SDK1.3 系统参数(建议适当扩大)[AIX]:●系统语言环境为en_US●检查网络配置:hostname, smitty tcpip, vi /etc/hosts●修改AIX的cics用户的限制数值(在/etc/security/limits文件)fsize = -1fsize_hard = -1core = -1cpu = -1data = -1rss = -1stack = -1nofiles = -1#注:可以使用命令chuser “nofiles=3000” cics[Solaris]:TXSeries需要的系统参数(修改/etc/system文件,需要重新启动):设置单进程的共享内存最大为50M (参考RegionPool和TaskSharedPool的设置)set shmsys:shminfo_shmmax=52428800设置单进程句柄硬限制为(软限制例:“ulimit -n 1024”)set rlim_fd_max = 8192set rlim_fd_cur = 4096CTG需要的系统参数:set msgsys:msginfo_msgmax = 65535Maximum size of System V message.set msgsys:msginfo_msgmnb = 65535Maximum number of bytes that can be on any one message queue.set msgsys:msginfo_msgssz = 32Specifies size of chunks system uses to manage space for message buffers. Obsolete since the Solaris 8 release.set msgsys:msginfo_msgseg = 16384Number of msginfo_msgssz segments the system uses as a pool for available message memory. Total memory available for messages is msginfo_msgseg * msginfo_msgssz. Obsolete since the Solaris 8 release.set semsys:seminfo_semmni = 4096Maximum number of semaphore identifiers.set msgsys:msginfo_msgtql = 10000The maximum number of queue entries that can be in the system at the same time. A low value can adversely affect system performance, or cause the client to freeze. IBM recommends that you set this value to the maximum (10000), or at least double the maximum number of concurrent requests. Stress load your system, and then use the ipcs -qa command to determine the setting.[HP]:use “sam”maxfiles=1024maxswapchunks=512max_thread_proc=1024 //即max_thread_proc=8 + (10 x MaxServers)。
主机日常使用简明教程
主机日常使用简明教程本文简单介绍主机日常使用中的基本命令,以及RBS项目组的一些使用规定。
本文分两部分,分别介绍VSE的使用和CICS的使用。
VSE的使用双击P-COM图标后显示如下画面:在上述画面键入A,显示如下画面:在上述画面输入USER-ID和PASSWORD,显示如下画面:说明:该画面为VSE主画面,每一选项的画面不再全部介绍,只介绍经常使用的选项。
在VSE主画面输入7,显示如下画面:说明:该画面为COMMAND MODE的画面,输入命令可以进行程序的编辑、编译、运行批量程序等大部份日常工作。
COMMAND MODE的基本命令介绍:一、I CCF库的命令:在COMMAND MODE的画面,可以在命令行输入命令进行各种操作,下面介绍几种常用的命令。
(其他的命令如何获得)1、/SW该命令用于切换操作的ICCF库。
输入/SW 176表示切换到第176号ICCF库进行操作。
RBS项目组对ICCF库的使用有严格的规定,具体内容见附件1《RBS项目组ICCF库结构安排》。
2、/LIB该命令用于显示ICCF库中的MEMBER列表。
输入/LIB 会显示该ICCF库中所有MEMBER的名称。
输入/LIB *A 会显示该ICCF库中A开头自有和公共MEMBER。
输入/LIB *A ALL 会显示该ICCF库中所有以A开头的MEMBER。
输入/LIB FULL 会显示自己在当前ICCF库中的所有MEMBER。
3、/PUR该命令用于删除ICCF库中的MEMBER。
输入/PUR FDOM3090回删除当前ICCF库中名为FDOM3090的MEMBER。
4、ED该命令用于进入编辑状态。
输入ED 会进入一个空的编辑画面。
输入ED FDOM3090 会显示FDOM3090的内容,并可以进行编辑。
5、LIBR该命令用于进入DOS库的操作画面。
6、LIBRC该命令用于将一个ICCF的MEMBER登入DOS库。
输入LIBRC BOC2.RBSDEV FDOM3090.C FDOM3090 REPLACE表示将当前ICCF库中名DOS库登入dos库中的名称fdom3090为FDOM3090的MEMBER登入名为BOC2.RBSDEV的DOS库,在DOS库中的名称为FDOM3090.C。
《CICS概述及命令》课件
本课程将带您深入了解CICS,一个用于事务处理的重要系统。您将了解CICS 的体系结构,任务管理程序,以及许多其他的核心组件和命令。
CICS概述
1
什么是CICS?
CICS是一种在线事务处理系统,用于在IBM mainframe计算机上运行大型业务应 用程序。
2
CICS的历史
CICS在1968年诞生于IBM公司,在70年代和80年代成为企业计算机系统中的重 要组成部分。
• 行通。信协议可以定义在 CICS和其他系统之间的 数据格式和传输机制。
CICS中的事务处理
1
事务的定义
事务表示一系列紧密相关的操作,这些操作必须全部成功或全部失败。
2
事务的特点
原子性、一致性、隔离性和持久性等。
3
事务处理的步骤
开始、更新、提交或回滚等。
CICS与数据库的交互
CICS与DB2
CICS可以通过EXEC SQL语句从DB2数据库访问和更新数据,以及定义和调用存储过程。
CICS中的文件管理命令
1
基本的文件管理命令
如OPEN、CLOSE和READ。
2
高级文件管理命令
如START、EXTRACT和REPRO。
3
文件控制块管理命令
如CCTL(DEF)和FCT(DEF)。
CICS中的应用程序接口命令
EX EC CICS
使用EXEC CICS命令,交互式应用程序可以执行事务处理、文件和数据管理、和通信操作。
外部子程序接口
可以使用CICS外部子程序接口,将应用程序的部分逻辑从CICS中移到另一个程序中。
适配器接口
适配器接口可以为CICS应用程序提供支持,以在诸如CORBA、Java和.NET之类的平台上运行。
CICS经典教程
CICS 程序
01 02 02 02 02 02 02 02 02 02 02 02 02 02 02 .
EDIT BDVLP.NEW1.SOURCE(TXOI01) - 01.01 Command ===> Scroll ===> CSR 000020 002000 WORKING-STORAGE SECTION. 000021 002100 01 TXTRCD. 000022 002200 10 FILLER PIC X(19) VALUE 000023 002300 'TXOI01: 程式已執行 '. 000024 002400 10 PGRM-CNT-TXT PIC ZZZZ9. 000025 002500 10 FILLER PIC X(4) VALUE ' 次 '. 000026 002600 10 DATE-TXT PIC X(9). 000027 002700 10 FILLER PIC X VALUE '-'. 000028 002800 10 TIME-TXT PIC X(8). 000029 002900 01 TX00COMM. 000030 003000 10 PGRM-CNT-COMM PIC 9(5). 000031 003100*000032 003200 COPY SUBE272 SUPPRESS. 01 DFHBMSCB. 000033 003300 COPY DFHAID SUPPRESS. 02 DFHBSC-SOH 000034 003400 COPY DFHBMSCB SUPPRESS. 02 DFHBSC-STX 02 DFHBSC-ETB 000035 003500*02 DFHBSC-ETX 000036 003600 LINKAGE SECTION. . 000037 003700 01 DFHCOMMAREA. 000038 003800 10 FILLER PIC X OCCURS 0 TO 32767 000039 003900 DEPENDING ON EIBCALEN.
CICS跑前准备
CICS跑前准备(ADV)在服务器中启动(S TART)和取消(C ANCEL)CICS服务的命令分别是:z S CICSAOR1z C CICSAOR1准备和运行CICS的环境分为两个地方:z在客户端输入登录命令TSO CN00XX进入后的线下(Batch)环境,z在客户端输入登录命令LOGON APPLID(CICSACB2) 进入后的在线(Online)环境。
线下环境可理解为后台,在线环境可理解为前台。
z在线下环境中,我们需要对CICS程序涉及到的MAPSET,COPYBOOK,COBOL,VSAM,DB2等文件做编写和编译的准备;z在在线环境中,我们需要对CICS程序涉及到的MAPSET,TRAN,PROGRAM,FILES,DB2ENTRY,DB2TRAN等做定义和安装的准备。
备注:CICS程序的运行是在在线环境中执行。
在线下环境中,定义以下PDS文件,方便归类。
(1) 界面MAP文件,可理解为外部表现层部分:z CNXXXX.CICS.MAP FB 80 ——放MAPSET文件(一个MAPSET是由一个和多个MAP组成的)z CNXXXX.CICS.MAPGEN FB 80 ——放对MAPSET文件进行编译的执行文件z CNXXXX.CICS.MAPCPY FB 80 ——放经过编译后的MAPSET生成文件z CNXXXX.CICS.PROC FB 80 ——放DFHMAPS,即MAPGEN里编译MAPSET 文件时要调用的编译过程文件(2) 数据文件,可理解为底层数据库部分:对CICS而言,会用VSAM文件或DB2数据库作为底层数据库部分。
z CNXXXX.CICS.JCL FB 80 ——放一般的JCL执行文件(指除编译文件以外的),如生成VSAM文件的执行文件z CNXXXX.CICS.COPY FB 80 ——放COBOL文件内有引用的外部子文件(可以查看COBOL内的COPY语句部分),这些文件是COBOL编码的格式,如SPUFI里的表经过DCLGEN操作后,编译并生成的COBOL格式的表结构文件创建VSAM文件时,注意数据文件长度的匹配:z CUSTMAS 118z INVCTL 7z INVOICE 275z PRODUCT 39(3) COBOL文件,可理解为联接外部和底层的中间层部分:z CNXXXX.CICS.COBOL FB 80 ——放含CICS的COBOL文件z P FB 80 ——放对含CICS的COBOL文件进行编译的编译文件z CNXXXX.CICS.LOADLIB FB 80 ——放经过编译后的含CICS的COBOL生成文件将CICS程序文件按上述要求归类并修改好其命名,尤其要注意COMP和MAPGEN等编译文件里的相关文件命名。
CICS命令及编程(3)
CICS 課程(三)CICS命令及編程講師:周勇Jarod.zhou@四方精創有限公司2006年03月20日CICS 高级语句介绍Transaction (事务)处理CICS 基础语句介绍CICS 相關知識CICS 程序编译、安装CICS 程序访问对象課程目錄貳陸用户在终端输入Trans ID:INQY,对应事务程序为PROG11.确定事务的ID是否在CICS区域定义,没有发出错误信息2.任务管理请求存储并创建表示任务的控制块(TCA= Task Control Area)3.如受安全保护,CICS验证用户的使用权限4.在程序定义表中找到对应的事务程序PROG1的定义信息5.如果PROG1不在内存,程序管理就申请内存将其从程序库装入内存6.CICS复制该程序的工作存储区到与该任务相关的另一存储区。
允许PROG1的单独程序副本被多任务共享7.EIP(EXEC Interface Program)接受程序请求返回异常条件和其他EIB(EXEC Interface Block)信息8.如果PROG1发出EXEC CICS READ 命令来读文件,则文件管理对VSAM发出读记录的请求9.PROG1利用BMS(Basic Map Surpport)来发出已格式化的数据到终端10.VSAM数据集的改变会被系统建立日志以便失败时恢复11.任务结束时,控制返回CICS。
所有与该任务相关的存储被释放,但程序保留在内存,直到无任何任务是用它和该空间要被使用为止1.开发语言•COBOL•Assemble•PL/1•C & C++程序处理逻辑用主语言编写,部分功能用CICS命令来完成2.命令格式EXEC CICS SEND FROM (MSG-AREA) LENGTH (5) END-EXEC.关键字功能选项参数选项参数分隔符EXEC SQL SELECT COLUMN_NAMES INTO:Program_variables FROM Table_name Where Search_condition END-EXEC.3.BMS(Basic Map Support) (BOCHK不使用,只做简单介绍)从终端用户界面发送和接收数据方法:•终端控制(未格式化数据)•BMS(格式化数据流)•图形用户界面MAP用于定义信息如何在终端上显示。
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
[attribute overrides for RD stanza]
stop region:
stop region <region> [(-c | -f)]
status region:
status region <region>
[-e <emulation>]
[-h <host list>]
[-l <locale>]
[-i <infile>]
[-l <c|m|o|r>]
[-d]
create region (DB2):
ListenerName="lsnr1"
cicsget
说明:察看CICS资源定义
Usage: cicsget {-?|-c className [-r regionName] [-f fileName] {-l|-s [resourceName]|[resourceName]}}
[-m <model>]
[-n <netname>]
[-r <region>]
-w <Local Network Name>
-x <XID Node ID>
-y <Link Station Type>
[-q <Link Station Name>]
destroy region (SFS):
destroy region <region> [-f] [-s]
destroy region (DB2):
destroy region <region> [-f] [-s [-u <user[,passwd]>]]
create ppcgwy_server <server> [-m <model>]
[attribute overrides for GSD stanza]
destroy PPC gateway server:
stop sfs_server <server> [-f]
status SFS server:
status sfs_server <server>
stop sfs_server all
create PPC gateway server:
create region <region> [-g <group-id>[-l <c|m|o|r>]
[-a <alias> -o <instance>
使用举例:
5.1版本以前:
创建DCE
cicscp –v create dce -R
删除DCE:
cicscp -v destroy dce
创建Region:
cicscp -v create region CICSRGN1
启动SFS 服务器:
cicscp -v start sfs_server /.:/cics/sfs/SFS_SERV
status region all
destroy all:
destroy all [-f]
start all:
start all
stop all:
stop all
status all:
status all
CICS 常用命令列表 收藏
cicscp
说明:CICS 控制程序,可用于创建、删除、启动、停止DCE,SFS服务器,CICS Region和PPC gateway
eneral cicscp usage:
cicscp [-?|([<common_options>] [<command> <noun_phrase> <specific_options>])]
[-s <Link Station Address>]
[-b <Local Secondary Station Address>]
destroy SNA:
destroy sna [-f]
start SNA:
create sna_link [<Link Station Name>]
-y <Link Station Type>
[-s <Link Station Address>]
[-b <Local Secondary Station Address>]
create SFS server:
create sfs_server <server> [-m <model>]
[attribute overrides for SSD stanza]
destroy SFS server:
where common options are:
-I - ignore errors
-l logfile - log progress messages to file
-v - produce more verbose output
destroy sfs_server <server> [-f]
start SFS server:
start sfs_server <server> [attribute overrides for SSD stanza]
stop SFS server:
cicsadd
说明:添加CICS资源定义
Usage: cicsadd {-?|-c className [-r regionName] [-P|-B] [-f fileName] [-m modelId] resourceName [[attributeName=attributeValue]...]}
使用举例:
以下命令在CICSRGN1中增加一个通讯定义。
cicsadd -r CICSRGN1 -B -c cd CD01 ConnectionType=cics_tcp \
RemoteTCPAddress="9.181.108.37" RemoteTCPPort=1436 \
destroy ppcgwy_server <server> [-f]
start PPC gateway server:
start ppcgwy_server <server> [attribute overrides for GSD stanza]
stop PPC gateway server:
Specific commands are:
version:
version
create COBOL:
create cobol
destroy COBOL:
destroy cobol
create SNA:
create sna -d <Control Point Name>
destroy region (ORACLE):
destroy region <region> [-f] [-s [-u <user[/passwd]>]]
start region:
start region <region> [-d <distributed servers>]
[-s <server codeset>]
[-t <transaction>]
destroy telnet server:
destroy telnet_server <server> [-f]
[-u <user[,passwd]>] [-n|-s]]
create region (ORACLE):
create region <region> -o ORACLE
[-g <group-id>]
stop ppcgwy_server <server> [-f]
status PPC gateway server:
status ppcgwy_server <server>
status ppcgwy_server all
create SNA link:
使用举例:
以下命令察看CICSRGN1中名为CICSTEST的程序定义
cicsget -c pd -r CICSRGN1 CICSTEST
cicsupdate
说明:更改CICS资源定义的某个属性
[-i <infile>]
[-l <c|m|o|r>]
[-u <user[/passwd]>] [-n|-s]
start sna [-f]
stop SNA:
stop sna [-f]
create telnet server:
create telnet_server <server> [-P <port>]
[-c <client codeset>]
destroy SNA link:
destroy sna_link <Link Station Name> -y <Link Station Type>