【CICS定义】CICS 是一系列为IBM和非 IBM 平台上的应用提供联机事务处理和事务管理的产品，其功能是为商业应用提供一个事务处理环境。CICS其全称是 Customer Information Control System，即客户信息控制系统。
CICS 建立在操作系统、ISO的分布式计算环境 （DCE，Distributed Computing Environment ） 和 Encina 服务上，它帮助客户建立三层次结构的联机事务处理应用。CICS 为应用程序开发、通信、恢复、显示、数据管理、安全性和内部通信等提供很多项服务。
CICS 可以与 DCE 紧密结合，以满足分布式环境对于安全性，名字服务等的特殊需求。
CICS 的结构设计也是面向事务处理的，CICS 构建的是一个三层次结构的应用系统，CICS 有效地区分应用系统中的表述逻辑层、业务逻辑层和数据逻辑层，从而使应用系统结构清晰，维护简单易行。
目前，在IBM的全系列计算机系统中均有相应的 CICS 产品，如OS/390、MVS/ESA、VSE/ESA、OS/400、OS/2，并扩展到其它厂商的系统中，如HP、DEC、SUN等等。
【CICS常用命令列表】cicscp
说明：CICS 控制程序，可用于创建、删除、启动、停止DCE，SFS服务器，CICS Region和PPC gateway
eneral 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 output
Specific commands are:
version:
version
create COBOL:
create cobol
destroy COBOL:
destroy cobol
create 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 all
create 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 all
create 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 all
destroy all:
destroy all [-f]
start all:
start all
stop all:
stop all
status all:
status all
使用举例：
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
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
ListenerName="lsnr1"
cicsget
说明：察看CICS资源定义
Usage: cicsget {-?|-c className [-r regionName] [-f fileName] {-l|-s [resourceName]|[resourceName]}}
使用举例：
以下命令察看CICSRGN1中名为CICSTEST的程序定义
cicsget -c pd -r CICSRGN1 CICSTEST
cicsupdate
说明：更改CICS资源定义的某个属性
Usage: cicsupdate {-?|-c className [-r regionName] [-P|-R|-B] [-f fileName] [resourceName] [[attributeName=attributeValue]...]}
使用举例：
以下命令更改CICSRGN1 CPMI交易的属性Permanent为no，RSLCheck为none
cicsupdate -r CICSRGN1 -B -c td CPMI Permanent=no RSLCheck=none
cicsinstall
说明：把一组资源定义安装到CICS Region的运行库中。
Usage: cicsinstall {-?|[-v] [-r regionName] {-a | -g groupName [groupName...] }}
使用举例：
把GROUP1中的所有资源定义安装到CICSRGN1的运行库中：
cicsinstall -r CICSRGN1 -g GROUP1
cicsdelete
说明：删除CICS Region某个资源定义
Usage: cicsdelete {-?|-c className [-r regionName] [-P|-R|-B] [-f fileName] resourceName [resourceName...]}
使用举例：
删除CICSRGN1中名字为CICSTEST的PD定义：
cicsdelete -c pd -r CICSRGN1 -B CICSTEST
删除CICSRGN中名字为ABCD的TD定义：
cicsdelete -c td -r CICSRGN1 -B ABCD
cicsexport
说明：导出Region资源定义
Usage: cicsexport {-?| [-r regionName] [-o outFile] [-t temporaryWorkspace] [-l className...]}
使用举例：
以下命令导出Region CICSRGN1的定义到CICSRGN1.dmp文件：
cicsexport -r CICSRGN1 -o CICSRGN1.dmp
cicsimport
说明：导入Region的资源定义
Usage: cicsimport {-?| -r regionName [-g groupName] [-i inFile] [-l m|o] [-v] [-F] [-o] [-B]}
使用举例：
以下命令导入一个名为CICSRGN1的Region，-S参数表示不使用DCE服务器
cicsimport -r CICSRGN1-i CICSRGN1.dmp-S
cicsmigrate
说明：创建用于移植CICS资源定义的移植脚本
Usage: cicsmigrate {-?|[ -r regionName | -s | -c | -p | -m ] -g fileName -o logFileName}
使用举例：
以下命令为Region CICSRGN1创建移植脚本，输出文件为CICSRGN1.sh
cicsmigrate -g CICSRGN1.sh -o log1 -r CICSRGN1
在K Shell下运行CICSRGN1.sh脚本
ksh CICSRGN1.sh
cicslssrc
说明：在Open平台察看cics 子系统的状态
使用举例：
cicslssrc -a
cicsnotify
说明：释放异常停止的Region所持有的资源
使用举例：
cicsnotify cics. CICSRGN1
cicsdfmt
说明：用于格式化CICS Dump文件
使用举例：
cicsdfmt -r CICSRGN1 A147DUMP.0001>A147.txt
cicstfmt
说明：用于格式化CICS Trace文件
使用举例：
cd /var/cics_regions/ CICSRGN1/dumps/dir1
cicstfmt *trc
cicssfmt
说明：格式化统计信息文件
使用举例：
cd /var/cics_regions/ CICSRGN1/data
格式化统计信息报告
cicssfmt statsfile>stat.1
格式化详细统计信息报告
cicssfmt -i statsfile>stat.1
cicsterm
说明：启动CICS 3270仿真终端，用于连接CICS Region
使用举例：
/usr/lpp/cics/bin/cicsterm
cicstail
说明：
动态查看console文件和CSMT.out文件
使用举例：
cicstail –r CICSRGN1
cicssdt
说明：
导入导出sfs卷中的文件
Usage: cicssdt [-s Server] [-i inputFileName] [-o outputFileName] [-e] [-r] [-c commandName ...]
使用举例：
cicssdt –s /.:/cics/sfs/SFS_SERV
sfsadmin
说明：
sfs管理工具
sfsadmin help {<command word>...}
Example: sfsadmin help import file
Available commands:
sfsadmin acquire lvol -- Acquire a logical volume into the server.
sfsadmin add index -- Add a secondary index to a file.
sfsadmin add lvol -- Add a logical volume to the server.
sfsadmin copy file -- Copy a file.
sfsadmin create clusteredfile -- Create a btree clustered file.
sfsadmin create relativefile -- Create a relative file.
sfsadmin create sequentialfile -- Create an entry sequenced (sequential) file.
sfsadmin deactivate index -- Deactivate a secondary index.
sfsadmin delete index -- Delete a secondary index.
sfsadmin destroy file -- Destroy a file.
sfsadmin empty file -- Delete all the records in a file.
sfsadmin enable server -- Enable the server.
sfsadmin expand file -- Enlarge the primary storage area for a file.
sfsadmin expand index -- Enlarge the storage area for a secondary index.
sfsadmin export file -- Export a file to a specified device.
sfsadmin help -- Display help message for given command
sfsadmin import file -- Import a file from a specified device.
sfsadmin list files -- List all files at the server.
sfsadmin list lvols -- List all logical volumes of a server.
sfsadmin list ofds -- List all ofds at the server.
sfsadmin query export -- Query an export set on a specified device.
sfsadmin query file -- Obtain information about a file.
sfsadmin query filelock -- Obtain information about locks on a file.
sfsadmin query index -- Obtain information about a secondary index.
sfsadmin query lvol -- Obtain information about a logical volume.
sfsadmin query ofd -- Obtain information about an ofd.
sfsadmin query server -- Obtain information about a server.
sfsadmin query tranlock -- Obtain information about transaction locks.
sfsadmin rebuild index -- Rebuild a secondary index.
sfsadmin release lvol -- Release a logical volume from the server.
sfsadmin rename file -- Rename a file.
sfsadmin rename index -- Rename an index.
sfsadmin reorganize file -- Reorganize a file.
sfsadmin set recordlimit -- Set max number of records on a file.
sfsadmin terminate ofd -- Terminate an ofd.
使用举例：
sfsadmin –s /.:/cics/sfs/SFS_SERV list files
ppcadmin
说明：
ppcadmin管理工具
ppcadmin help
ppcadmin help {<command word>...}
Example: ppcadmin help create luentry
Available commands:
ppcadmin cancel resync -- Cancel the specified resynchronization
ppcadmin create luentry -- Create an executive LU entry
ppcadmin create remoteluentry -- Create a remote LU entry
ppcadmin delete luentry -- Delete an executive LU entry
ppcadmin delete remoteluentry -- Delete a remote LU entry
ppcadmin destroy conv -- Unbind the session carrying the specified Conversation
ppcadmin enable server -- Complete server initialization
ppcadmin export configuration -- Export the configuration from a running PPC Gateway server to a file
ppcadmin force xln -- Force an XLN for the specified LU-LU pair
ppcadmin help -- Display help message for given command
ppcadmin list convs -- List all active SNA Conversations
ppcadmin list luentries -- List all registered executive LU entries
ppcadmin list luws -- List all active LUWs
ppcadmin list remoteluentries -- List all registered remote LU entries
ppcadmin list resyncs -- List all pending resynchronizations
ppcadmin list transactions -- List all active transactions
ppcadmin list xlns -- List XLN status for all known LU-LU pairs
ppcadmin modify luentry -- Modify an executive LU entry
ppcadmin query conv -- Query an active SNA Conversation
ppcadmin query gtid -- Query an active global transaction
ppcadmin query luentry -- Query an executive LU entry
ppcadmin query luw -- Query an active LUW
ppcadmin query remoteluentry -- Query a remote LU entry
ppcadmin query resync -- Query the specified resynchronization
ppcadmin query stats -- Query the specified Conversation and show its statistics
ppcadmin query transaction -- Query an active transaction
ppcadmin query xln -- Query XLN status for the specified LU-LU pair
ppcadmin stop server -- Terminate the specified Gateway Server
使用举例：
ppcadmin –s /.:/cics/ppc/gateway/GWY list luws
以下命令在6.1版本以后出现：
cicserr
说明：查看cics的错误代码的解释
Usage: cicserr [message number | help]
message number
It should be a complete message code(like ERZxxxxxx | ERZxxxx | Axxx | Uxxxx).
help
It prints usage(this) message
使用举例：
cicserr A147
cicserr ERZ046091I
【CICS 常用通讯错误解释】通讯错误的格式
CICS通讯错误通常在CSMT.out中报出，格式如下：
ERZ027030E/3011 Communications error primaryCode/secondaryCode on connection to system 'sysId' occurred during remote command command
这条错误信息中，primaryCode是主错误码，其中15a是模块代号。secondaryCode是二级错误码。通过primaryCode和secondaryCode可以了解到出现错误的原因。以下为文档中通信错误的详细说明：
15a00007/a0000100
解释
Connection failed
如果使用LINK, Response Code是Terminal Error
原因：
在主调方达到TD Timeout后，远端region交易仍然在执行中，没有返回
15a00007/84b6031
解释
Transaction Not Available
如果使用LINK, Response Code是Terminal Error
原因
例如对方交易设置了TD的TClass，且改类交易ClassMaxTasks和ClassMaxTaskLim到达上限，直接被远端region拒绝，主调方报出该错误。
15a00007/8640000
解释
这个错误码不一定都对应A27K
Remote Tansaction Abend
如果本地使用LINK，本地交易Abend
原因
远端交易Abend
#define COMDL_SUB_ALLOC_PIP_ILLEGAL EIBERRCD_PIP_ILLEGAL
#define COMDL_SUB_ALLOC_PIP_MALFORMED EIBERRCD_PIP_INVALID
#define COMDL_SUB_CONN_FAILURE EIBERRCD_CONN_FAIL
#define COMDL_SUB_CONV_TYPE_MISMATCH EIBERRCD_MISMATCH
#define COMDL_SUB_DEALLOC_ABEND EIBERRCD_ABEND
#define COMDL_SUB_DEALLOC_ABEND_SVC EIBERRCD_ABEND_SVC
#define COMDL_SUB_DEALLOC_ABEND_TIMER EIBERRCD_ABEND_TIMER
#define COMDL_SUB_SECURITY_INVALID EIBERRCD_SECURITY_INVALID
#define COMDL_SUB_SYNC_NOT_SUPPORTED EIBERRCD_SYNC_NOT_SUPPORTED
#define COMDL_SUB_TPN_NOT_AVAIL EIBERRCD_TPN_FAIL
#define COMDL_SUB_TPN_NOT_AVAIL_RETRY EIBERRCD_TPN_NOT_AVAIL
#define COMDL_SUB_TPN_UNKNOWN EIBERRCD_UNKNOWN_TPN
/* Values which can be held by EIBERRCD */
#define EIBERRCD_SYNC (0x08240000)
#define EIBERRCD_ABEND (0x08640000)
#define EIBERRCD_ABEND_SVC (0x08640001)
#define EIBERRCD_ABEND_TIMER (0x08640002)
#define EIBERRCD_ERROR (0x08890000)
#define EIBERRCD_MISMATCH (0x10086034)
#define EIBERRCD_PIP_ILLEGAL (0x10086031)
#define EIBERRCD_PIP_INVALID (0x10086032)
#define EIBERRCD_SECURITY_INVALID (0x080f6051)
#define EIBERRCD_SYNC_NOT_SUPPORTED (0x10086041)
#define EIBERRCD_UNKNOWN_TPN (0x10086021)
#define EIBERRCD_CONN_FAIL (0xA0000100)
#define EIBERRCD_CONN_FAIL_RETRY (0xA0000100)
#define EIBERRCD_TPN_NOT_AVAIL (0x084b6031)
#define EIBERRCD_TPN_FAIL (0x084c0000)
EIBERRCD
This EIB field when EIBERR is set, contains the error code that has been received. The following values can be returned in the first two bytes of EIBERRCD:
• X'0824' SYNCPOINT ROLLBACK was requested.
• X'0864' ISSUE ABEND was received.
• X'0889' ISSUE ERROR was received.
• X'A000' The conversation was lost.