CMAS 日志记录

CMAS 可以生成 CICS® 日志记录以跟踪 CICSplex 中的各种活动。 这些日志记录可提供审计跟踪，以帮助完成影响 CICSplex 的数据恢复或事件重构。

可以在以下时候编写日志记录：
  • 添加、除去或更新数据存储库中的定义。
  • 针对 MAS 发出操作。
  • 生成了实时分析事件。

日志记录存储在 32 KB 缓冲区中，并在缓冲区变满或启动 CICS 区域的正常关闭时清空到相应的日志流。

要在 CICS 区域仍处于活动状态时强制将缓冲区清空到日志流，可以使用 EXEC CICS 接口或 CECI 事务在 WRITE JOURNALNAME 命令上指定 WAIT 选项。

要请求一个或多个记录类型，请在 CMAS 的启动 JCL 中指定相应的 CICSPlex ® SM 系统参数:
JRNLDEFCH(YES)
用于数据存储库定义更改
JRNLOPACT(YES)
用于操作
JRNLRTAEV(YES)
用于实时分析事件

有关这些参数的更多信息，请参阅 CICSPlex SM 系统参数。

如果您不希望使用使缺省日志流名 EYUJRNL，那么应在 CSD 中定义一个具有所需日志流名称的 JOURNALMODEL 资源。
  • 要在 CMAS 初始化期间使用 JOURNALMODEL 资源定义，则应在 CSD 组列表中包括 JOURNALMODEL 资源定义。 使用系统初始化参数 GRPLIST，使这个组列表包含在 CMAS 启动作业中。
  • 要将 JOURNALMODEL 资源添加到 CSD ，请编辑并运行样本成员 CICSTS56中包含的 JCL。CPSM.SEYUSAMP (EYUJRNE$) 以运行 CSD 更新批处理实用程序 DFHCSDUP，或使用 CICS CEDA 事务。
  • 您还必须通过设置 GRPLIST 参数以引用新的组列表来更新用于启动 CMAS 的 CICS 系统初始化参数。

CMAS 生成的日志记录包含名为 EYUBCPJR 的 DSECT 所映射的数据。 每条记录都由标准前缀和可变数据区组成。 数据区的内容特定于正在写入的日志记录类型。

图 1 显示了 EYUBCPJR 的格式。
*---------------------------------------------------------------------*
*                EYUBCPJR DSECT Prefix                                *
*---------------------------------------------------------------------*
EYUBCPJR        DSECT
EYUBCPJR        DS   0D
 
CPJR_PREFIX     DS   0D                  Prefix of record
CPJR_CMASNAME   DS   CL8                 CMAS Name which produced record
CPJR_CONTEXT    DS   CL8                 Plex Name
CPJR_SCOPE      DS   CL8                 Scope Name
CPJR_USER       DS   CL8                 User Name
CPJR_STCK       DS   D                   Store clock
CPJR_VERSION    DS   H                   Current record version
CPJR_VER_ZERO   EQU  0000                Version 0
CPJR_VER_ONE    EQU  0001                Version 1
CPJR_VER_CURR   EQU  CPJR_VER_ONE        Current Version
CPJR_TYPE       DS   H                   Record type
CPJR_TYPE_DEFCH EQU  0001                Definition Add/Change/Delete
CPJR_TYPE_RTAEV EQU  0002                Rta Event
CPJR_TYPE_OPACT EQU  0003                Operation action
CPJR_LENGTH     DS   F                   Length of entire record plus  x
                                         prefix area
                DS   FL8                 Available for use
CPJR_LEN        EQU  *-CPJR_PREFIX       Length of Prefix area
CPJR_DATA_AREA  DS   0H                  Data area
 
*---------------------------------------------------------------------*
*                Data record for RTA Events                           *
*---------------------------------------------------------------------*
 
CPJR_RTA_DATA      DS   0H
CPJR_RTA_TYPE      DS   X                    Record type
CPJR_RTATYPE_CRT   EQU  0001                 Event Created
CPJR_RTATYPE_REM   EQU  0002                 Event Removed
CPJR_RTATYPE_UPD   EQU  0003                 Event Updated
CPJR_RTATYPE_RES   EQU  0004                 Event Resolved
CPJR_RTA_GTYPE     DS   X                    Generated by type
CPJR_RTAGTYPE_SAM  EQU  0001                 Event produced by Sam
CPJR_RTAGTYPE_APM  EQU  0002                 Event produced by Apm
CPJR_RTAGTYPE_MRM  EQU  0003                 Event produced by Mrm
CPJR_RTA_EVENT     DS   CL8                  Event Name
CPJR_RTA_MSGSTRT   DS   CL30                 External Entry Message
CPJR_RTA_MSGEND    DS   CL30                 External Exit Message
CPJR_RTA_EVENTXT   DS   CL30                 Event Text
CPJR_RTA_SEVERITY  DS   CL3                  Severity Level
CPJR_RTA_DATA_L    EQU *-CPJR_RTA_DATA       Length of the record
图 1。 EYUBCPJR DSECT
*---------------------------------------------------------------------*
*                Data record for Definition changes                   *
*---------------------------------------------------------------------*
 
CPJR_DEF_DATA	           DS   0H
CPJR_DEF_TYPE	           DS   X               Record type
CPJR_DEFTYPE_ADD           EQU  0001            Definition Added
CPJR_DEFTYPE_DEL           EQU  0002            Definition Deleted
CPJR_DEFTYPE_UPD           EQU  0003            Definition Update
                           DS   X               Reserved
CPJR_DEF_MAJORNM           DS   CL8             Major Name
CPJR_DEF_MAJORID           DS   CL8             ADMIN Restype
CPJR_DEF_MAJORVR           DS   XL4             Major Version
CPJR_DEF_MAJORVR_NONE           EQU  -1              Major Version None
CPJR_DEF_MINORNM           DS   CL8             Minor Name
CPJR_DEF_MINORID           DS   CL8             ADMIN Restype
CPJR_DEF_MINORVR           DS   XL4             Minor Version
CPJR_DEF_MINORVR_NONE           EQU  -1              Minor Version None
CPJR_DEF_SYSID             DS   CL8             System Id where change       x
                            			               was originated
CPJR_DEF_DATA_L            EQU *-CPJR_DEF_DATA  Length of the record

*---------------------------------------------------------------------*
*                Data record for Operation commands                   *
*---------------------------------------------------------------------*
 
CPJR_OPS_DATA      DS   0H
CPJR_OPS_LENGTH    DS   H                   Length of fixed and variable x
                                              portion of data area
CPJR_OPS_NUMFLDS   DS   H                   Number of fields
CPJR_ACTION        DS   CL12                Name of action

CPJR_RESNAME       DS   CL8                 Resource Name
CPJR_OPS_STRTENT   DS   0C                  Start of data entries
CPJR_OPS_DATA_L    EQU *-CPJR_OPS_DATA      Length of the record
*
CPJR_OPS_ENTRY     DS   0C
CPJR_OPS_FIELD     DS   CL12                Field Name
CPJR_OPS_DATALEN   DS   X                   Length of the Data
CPJR_OPS_ENTLEN    DS   X                   Length of entire entry
CPJR_OPS_FLDDATA   DS   0C                  Start of the Data
CPJR_OPS_ENT_L     EQU  *-CPJR_OPS_ENTRY    Fixed portion length

有关编写程序以访问和格式化 CICS 日志记录的信息，请参阅 CICS 日志管理器。