管理数据存储库中的记录的示例

这些示例说明如何在数据存储库中创建，除去，列示和转储定义记录，以及如何将 CICS® 系统添加到 CICS 系统组。

示例 1-创建记录

要创建工作负载规范，可以使用 工作负载管理 (WLM) 规范 (EYUSTARTWLMSPEC.CREATE) WUI 视图或批处理存储库更新工具。

图 1 说明了如何在准备批处理存储库更新作业时指定信息:

图 1。使用批处理存储库更新工具来创建 WLM 规范

    /* after setting context, create workload specification */
    CONTEXT EYUPLX01;
    CREATE WLMSPEC NAME(EYUWMS01) DESC(Sample description)
                   AFFINITY(USERID)
                   AFFLIFE(SIGNON)
                   MATCH(USERID)
                   AORSCOPE(EYUCSG01)
                   EVENTNAME(PAGERATE)
                   ABENDCRIT(0)
                   ABENDTHRESH(0)
                   ALGTYPE(QUEUE);

示例 2-除去记录

这些示例说明如何从数据存储库中除去记录。

要除去名为 EYUWMS01的工作负载规范，可以指定:

  CONTEXT EYUPLX01;
  REMOVE WLMSPEC NAME(EYUWMS01);

要除去名为 EYUPROG1的 BAS PROGDEF ，您可以指定:

  CONTEXT EYUPLX01;
  REMOVE PROGDEF NAME(EYUPROG1)
                 DEFVER(1);

示例 3-创建链接记录

此示例说明如何在数据存储库中创建链接记录。

要在工作负载规范与 CICS 系统组之间创建名为 WLMSPC01 的链接，可以指定:

  CREATE LNKSWSCG SPEC(WLMSPC01)
                  GROUP(EYUCSG01)
                  FORCE;

示例 4-列出记录

此示例说明如何列示数据存储库中的所选记录。

要列出名称以 EYU 开头的所有工作负载规范记录，请指定:

  CONTEXT EYUPLX01;
  LIST WLMSPEC NAME(EYU*);

图 2 显示了从数据存储库中列出的记录的输出格式。请注意， DUMP 控制语句生成的输出非常相似; 主要区别在于，词 CREATE 在资源表名称之前。如果使用 OUTPUT 命令，那么 DUMP 命令将生成报告 (如图 2所示) 和数据集 (其中包含适合于重新输入到 CICSPlex ® SM 批处理存储库更新工具的 CREATE 命令); 请参阅示例 6-将记录转储为输入以创建新记录。

图 2。列示数据存储库定义时生成的样本输出

      CICSPlex SM - Repository Process Report
 
  Input DSN:    CPSM.BATCH.SAMPLE                        Input Member: TEST
 
  CONTEXT EYUPLX01;
  LIST WLMSPEC NAME(EYU*);
  EYUXU0218I  CVMBBC Batch LIST request complete - Status(OK)
  Last Change:   9/06/93 21:18:25.85895
         WLMSPEC NAME(EYUWMS02)
                 DESC(Sample definition 1)
                 AFFINITY(USERID)
                 AFFLIFE(SIGNON)
                 MATCH(USERID)
                 AORSCOPE(EYUCSG01)
                 EVENTNAME(PAGERATE)
                 ABENDCRIT(0)
                 ABENDTHRESH(0)
                 ALGTYPE(GOAL)
                 ;
 
  Last Change:   8/14/93 15:27:05.34023
         WLMSPEC NAME(EYUWMS03)
                 DESC(Sample definition 2)
                 AFFINITY(GLOBAL)
                 AFFLIFE(PERMANENT)
                 MATCH(N/A)
                 AORSCOPE(EYUCSG01)
                 EVENTNAME( )
                 ABENDCRIT(0)
                 ABENDTHRESH(0)
                 ALGTYPE(N/A)
                 ;

注: 在图 2的 EYUWMS03 记录中， EVENTNAME 是没有值的关键字的示例 ;MATCH 和 ALGTYPE 是值为 N/A 的关键字的示例。

示例 5-将记录转储为备份

此示例说明如何备份数据存储库中的所选记录。

要备份数据存储库中的所有工作负载管理记录，请指定:

  CONTEXT EYUPLX01;
  DUMP WLMSPEC  NAME(*);
  DUMP WLMGROUP NAME(*);
  DUMP WLMDEF   NAME(*);
  DUMP TRANGRP  NAME(*);
  DUMP DTRINGRP TRANGRP(*);
  DUMP WLMINGRP GROUP(*);
  DUMP WLMINSPC NAME(*);

示例 6-将记录转储为输入以创建新记录

OUTPUT 命令导致将所有 CREATE 记录写入数据集 EYUIR01.MYOUT1。

要以正确顺序将所有版本的 CICS 资源定义直接转储到要重新提交为用于创建新记录的输入的数据集，请指定以下内容:

  OUTPUT DATASET DSNAME(EYUIR01.MYOUT1) INQUOTES(NO);
  CONTEXT EYUPLX01;
  DUMP CSYSDEF  NAME(*);
  DUMP CSYSGRP  GROUP(*);
  DUMP RESGROUP RESGROUP(*);
  DUMP RESDESC  RESDESC(*);
  DUMP RASGNDEF RESASSGN(*);
  DUMP RASINDSC RESDESC(*)
                RESASSGN(*);
  DUMP RESINDSC RESDESC(*)
                RESGROUP(*);
  DUMP CONNDEF  NAME(*);
  DUMP SESSDEF  NAME(*);
  DUMP xxxxDEF  NAME(*);
         .
         .
         .
  DUMP CONINGRP CONNGROUP(*)
                CONNNAME(*);
  DUMP SESINGRP SESSGROUP(*)
                SESSNAME(*);
  DUMP xxxINGRP xxxxGROUP(*)
                xxxxNAME(*);
         .
         .
         .
  DUMP SYSLINK  FROMCSYS(*)
                TOCSYS(*);

其中：

xxxxDEF 是 CICS 资源定义类型。示例为 CONNDEF ， FILEDEF 和 MAPDEF ， xxxx 字符串表示 3 或 4 字符串，对于 xxxxDEF， xxxxNAME和 xxxxGROUP相同。
xxxxNAME 是 CICS 资源定义的名称，作为 xxxINGRP 资源表中的属性提供。
xxxxGROUP 是资源定义所属的资源组的名称，作为 xxxINGRP 资源表中的属性提供。
xxxINGRP 是 CICSPlex SM Business Application Services 定义，用于描述资源组中 CICS 资源定义的成员资格。示例包括 CONINGRP ， FILINGRP 和 MAPINGRP。

注: xxxxDEF 和 xxxINGRP 资源表还包含版本属性，这些属性使您能够处理特定版本的记录。可以指定：

xxxxDEF 记录的 DEFVER (n)
xxxxVER(n) 适用于 xxxINGRP 记录

示例 7-将 CICS 系统添加到 CICS 系统组

此示例说明如何将 CICS 系统添加到系统组。

要将 CICS 系统添加到与监视器规范关联的 CICS 系统组，并在 CICS 系统与监视器规范之间创建链接，可以指定:

  CONTEXT EYUPLX01;
  CREATE CSGLCGCS GROUP(EYUCSG01) CICSNAME(EYUMAS1A);
  CREATE LNKSMSCS SPEC(MONSPC01) SYSTEM(EYUMAS1A);

当用于创建 CICS 系统到 CICS 系统组链接记录 (CSGLCGCS) 的系统组已与规范相关联时，批处理存储库更新工具不会创建规范到CICS 系统链接记录 (LNKSxSCS)。要使 CICS 系统与规范相关联，必须显式创建 LNKSxSCS 记录。

例 8 - 创建记录以向 CICS 资源组添加定义

本示例展示了如何使用 PGMINGRP 记录将 PROGDEF 添加到 RESGROUP 中，但也可适用于其他资源类型。

CONTEXT EYUPLX01;
CREATE PGMINGRP PROGGROUP(EYUPGRP1) PROGNAME(EYUPROG1) PROGVER(1);

其中：

PROGNAME 是 CICS 资源定义的名称，作为 xxxINGRP 资源表中的属性提供。
PROGGROUP 是资源定义所属的资源组的名称，作为 xxxINGRP 资源表中的属性提供。
PGMINGRP 是 CICSPlex SM Business Application Services 定义，用于描述资源组中 CICS 资源定义的成员资格。示例包括 CONINGRP ， FILINGRP 和 MAPINGRP。

例 9 - 从 CICS 资源组中删除定义

本示例展示了如何使用 PGMINGRP 记录从 RESGROUP 中移除 PROGDEF，但也可适用于其他资源类型。

CONTEXT EYUPLX01;
REMOVE PGMINGRP PROGGROUP(EYUPGRP1) PROGNAME(EYUPROG1) PROGVER(1);

其中：

PROGNAME 是 CICS 资源定义的名称，作为 xxxINGRP 资源表中的属性提供。
PROGGROUP 是资源定义所属的资源组的名称，作为 xxxINGRP 资源表中的属性提供。
PGMINGRP 是 CICSPlex SM Business Application Services 定义，用于描述资源组中 CICS 资源定义的成员资格。示例包括 CONINGRP ， FILINGRP 和 MAPINGRP。