配置ADCD

ADCD是一个预先构建的软件包，其中包含z /OS以及许多z / OS产品和子系统，您可以从中创建映像。 ADCD大约每年更新两次，并作为ZD＆T的一部分提供。要从ADCD创建映像，您需要首先配置ADCD。

要使ZD＆T版本11.0.0或更高版本提供的ADCD可用于映像创建和部署，您需要通过首先完成以下步骤将ADCD文件复制到存储中。

提供FTP存储所需的设置。 在“storage settings”页面上指定的基本目录中，创建一个标记为adcd的目录（如果该目录不存在）。 在步骤2中创建的adcd目录中，通过使用任何标签为要在企业版中提供的每个ADCD创建目录，例如adcd/may2020。 将ADCDTOOLS.XML文件传输到步骤3中指定的目录。该文件描述了ADCD到产品的元数据。 在步骤3中指定的目录中创建卷目录，例如adcd/may2020/volumes。 将ADCD附带的所有卷文件转移到步骤5中指定的目录中。 从ADCD创建映像时，企业版将自动找到ZD＆T 11.0.0版或更高版本提供的任何ADCD。
注意：FTP存储的凭据是Enterprise Edition存储在其本地数据库中的唯一凭据，并且使用AES 128位加密进行了加密。

将ADCD文件成功传输到存储服务器后，您需要转到Web服务器以配置ADCD。 要创建ADCD源环境，请完成以下步骤：

单击主页上的“Source environments”，或单击右上角的“settings”按钮导航到“Source environments”。 单击"Add source environment"。 选择ADCD源环境类型。 确保完成页面上描述的步骤1-7，以发现ADCD程序包。 然后，单击“Load ADCD”。 从存储服务器成功加载ADCD软件包后，单击“Back to manage page”页面。

如果在adcd目录位置找到重复的ADCD条目，则必须确保该位置仅存在一个ADCD副本。

替代文字
替代文字
替代文字
替代文字
替代文字
替代文字
替代文字

配置Linux目标环境

了解有关配置或删除Linux目标环境的步骤。
要配置Linux目标环境，请完成以下步骤：

1.单击主页上的“Target environments”，或单击右上角的“设置”按钮导航到“Target environments”。
2.单击Target environments。
3.单击Target environments type的下拉菜单，然后选择“ Linux”。
4.输入可用于标识Linux环境的唯一名称。
5.选择要由ZD&T managed或Client managed的模拟器类型。 如果选择“ZD&T managed”，则ZD＆T企业版将在部署过程中自动配置高级设置。 如果选择“Client managed”，则在创建部署之前，必须确保满足以下先决条件。

ZD＆T模拟器已安装并配置为可与许可证服务器一起使用。 执行操作并运行ZD＆T模拟器的用户需要具有适当的权限和特权。
Linux网络已配置为正确路由到目标仿真的z /OS。 需要Linux端口2022路由到内部IP地址上的端口22，该地址是在目标环境设置中设置的值。 首先确保您有权访问软件存储库以在RHEL机器上运行YUM命令，或在Ubuntu机器上运行apt-get命令。 ZD＆T安装程序将安装所有必需的软件包。 但是，如果您不希望ZD＆T安装程序安装下面列出的必需软件包，则需要先安装这些软件包，然后再启动ZD＆T安装程序。 RHEL: yum -y install iptables yum -y install ftp yum -y install libstdc++.i686 yum -y install perl yum -y install zip yum -y install unzip yum -y install gzip yum -y install bc UBUNTU: apt-get -y install iptables dpkg --add-architecture i386 apt-get -y update apt-get -y install libc6:i386 libncurses5:i386 libstdc++6:i386 lib32z1 lib32stdc++6 apt-get -y install ftp apt-get -y install perl apt-get -y install zip apt-get -y install unzip apt-get -y install gzip apt-get -y install bc apt-get -y install libasound2 apt-get -f install 注意：默认情况下，在RHEL 7.4和7.5上'nc'命令不可用。 由于在开始部署到目标环境之前需要使用“ nc”命令来通过验证，因此丢失的“ nc”命令可能会导致连接失败。 要安装该命令，请运行以下命令。 yum -y install nc 执行操作并运行ZD＆T模拟器的用户需要具有适当的权限和特权。 #新建zpdt用户组 addgroup zpdt #新建用户添加到apdt组里，新建/bin/bash ibmsys1，更改密码 sudo useradd -m -g zpdt -s /bin/bash ibmsys1 sudo passwd ibmsys1 给ibmsys1权限 ibmsys1 ALL = (root) NOPASSWD: ALL Linux网络已配置为正确路由到目标模拟器的z /OS。 需要Linux端口2022路由到内部IP地址上的端口22，该地址是在目标环境设置中设置的值。
注：为了使其他系统与您的模拟z / OS通信，您需要配置模拟环境以确保可以访问该模拟环境。 唯一的要求是将端口号路由到模拟的z / OS上的端口22。 要路由的端口号是在ZD＆T Web服务器上配置源系统时将指定的端口号。 iptables --table nat --append POSTROUTING --out-interface eth1 -j MASQUERADE iptables --table filter --append FORWARD --in-interface tap0 -j ACCEPT iptables --table filter -A OUTPUT -m state --state ESTABLISHED,RELATED -j ACCEPT iptables -A PREROUTING --table nat -i eth1 -p tcp --dport 2022 -j DNAT --to 10.1.1.2:22 iptables -A FORWARD -p tcp -d 10.1.1.2 --dport 2022 -j ACCEPT 注： eth1是网络接口名称的示例。 要查找可用的网络接口，请运行命令 ifconfig，ip -o address show等。 2022是将路由到端口22的端口号。 10.1.1.2是网络接口tap0的IP地址，可以通过运行命令find_io找到它。

6.输入合格的主机名和Linux环境的SSH端口号。
通过以下方式之一添加Linux目标环境：

清除Adjust advanced settings选项，然后单击Add a target environment以将目标环境保存到Enterprise Edition资源库。 启用Adjust advanced settings选项。 然后，完成以下可选步骤： 修改要同时提取和传输的卷数。 选择您是否具有对Linux目标环境的root访问权限。（ibmsys1已经设置好root权限） 选择是否要在部署期间安装所需的Linux软件包。 （已经配置好就选择clear） 选择是否要在部署期间配置Linux用户设置。（已经配置好选择clear） 指定模拟的z / OS IP地址。 选择是否要通过更改默认的TCP和UDP端口转发和重定向规则来将Linux操作系统路由规则修改为模拟的z / OS。 （注1：对于从Linux重定向到z / OS的端口，请输入路由到z / OS的其他端口的端口。 例如2022> 22。 另外，TCP端口规则需要规则2022> 22。 ）（注2：如果选择clear，确保手动配置好） 单击Add a target environment，将目标环境保存到Enterprise Edition资源库。

-----------------------------------------PTF 安装实例----------------------------------------------

1.在CSI中查询你要安装的PTF是否存在

---------------------- SMP/E PRIMARY OPTION MENU ---------------- SMP/E 35.11 ===> 3 More: + 0 SETTINGS - Configure settings for the SMP/E dialogs 1 ADMINISTRATION - Administer the SMPCSI contents 2 SYSMOD MANAGEMENT - Receive SYSMODs and HOLDDATA and install SYSMODs 3 QUERY - Display SMPCSI information 4 COMMAND GENERATION - Generate SMP/E commands 5 RECEIVE - Receive SYSMODs, HOLDDATA and support information 6 MIGRATION ASSISTANT- Generate Planning and Migration Reports 7 ORDER MANAGEMENT - Manage ORDER entries in the global zone D DESCRIBE - An overview of the dialogs T TUTORIAL - Details on using the dialogs W WHAT IS NEW - What is New in SMP/E Specify the name of the CSI that contains the global zone: SMPCSI DATA SET ===> 'ZOS1A.GLOBAL.CSI' F1=HELP F2=SPLIT F3=END F4=RETURN F5=RFIND F6=RCHANGE F7=UP F8=DOWN F9=SWAP F10=LEFT F11=RIGHT F12=RETRIEVE . . . . . . . . . . . . . . . . . . . . . . . . . . . ---------------------- SMP/E PRIMARY OPTION MENU ---------------- SMP/E 35.11 QUERY SELECTION MENU 1 CSI QUERY - Display SMPCSI entries 2 CROSS-ZONE QUERY - Display status of an entry in all zones 3 SOURCEID QUERY - Display SOURCEIDs for specified zone D DESCRIBE - Overview of using QUERY T TUTORIAL - Information on using QUERY To return to the SMP/E primary option menu, enter END . ===> 2 F1=HELP F2=SPLIT F3=END F4=RETURN F5=RFIND F6=RCHANGE F7=UP F8=DOWN F9=SWAP F10=LEFT F11=RIGHT F12=RETRIEVE . . . . . . . . . . . . . . . . . . . . . . . . . . . CROSS-ZONE QUERY Specify the entry type and name to be queried: ENTRY TYPE ===> SYSMOD Entry type to be queried. To display a selection list of all valid entry types, leave ENTRY TYPE and ENTRY NAME blank ENTRY NAME ===> UK51888 Entry name to be queried. To return to the Query selection menu enter the END command ===> F1=HELP F2=SPLIT F3=END F4=RETURN F5=RFIND F6=RCHANGE F7=UP F8=DOWN F9=SWAP F10=LEFT F11=RIGHT F12=RETRIEVE . . . . . . . . . . . . . . . . . . . . . . . . . . . CSI CROSS-ZONE QUERY - ENTRY SELECTION Row 1 to 3 of 3 Entry Type: SYSMOD Entry Name: UK51888 To return to the previous panel, enter END . To select an entry from a zone, enter S next to the zone. * - Entry not found in zone. ** - Zone could not be allocated or is not initialized. -------------------- Status ----------------------------------- ZONE TYPE FMID STATUS DATE TIME REWORK -------- -------- -------- -------- -------- -------- -------- -------- DZOS1A0 * GLOBAL PTF REC 10.153 16:07:10 TZOS1A0 PTF HIP61A0 APP 10.153 16:44:29 ******************************* Bottom of data ******************************** ===> SCROLL ===> PAGE F1=HELP F2=SPLIT F3=END F4=RETURN F5=RFIND F6=RCHANGE F7=UP F8=DOWN F9=SWAP F10=LEFT F11=RIGHT F12=RETRIEVE . . . . . . . . . . . . . . . . . . . . . . . . . . .

因为我的系统是刚刚打过PTF的，所以
可以看到UK48822已经在系统里面APPLY，但是还没有ACCEPT，这时我们可以使用RESTORE命令来还原。

//A0001RES JOB IBM,CLASS=A,MSGCLASS=H,MSGLEVEL=(1,1), // NOTIFY=&SYSUID,USER=IBMUSER //STEP1 EXEC PGM=GIMSMP,REGION=0M //SMPCSI DD DISP=SHR,DSN=ZOS1A.GLOBAL.CSI //SMPLOG DD SYSOUT=* //SMPWRK6 DD UNIT=SYSDA,SPACE=(CYL,(20,10,1000)) //SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(20,10)) //SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(10,5)) //SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(10,5)) //*MPPTFIN DD UNIT=SYSDA,DISP=SHR, //* DSN=TEST.PTF.APLTEST //SMPRPT DD SYSOUT=* //SMPCNTL DD * SET BOUNDARY(TZOS1A0). RESTORE SELECT( UK51888 ) GROUP <---GROUP是查看是否有相关联的PTF . /*

查看状态

CSI CROSS-ZONE QUERY - ENTRY SELECTION Row 1 to 3 of 3 Entry Type: SYSMOD Entry Name: UK51888 To return to the previous panel, enter END . To select an entry from a zone, enter S next to the zone. * - Entry not found in zone. ** - Zone could not be allocated or is not initialized. -------------------- Status ----------------------------------- ZONE TYPE FMID STATUS DATE TIME REWORK -------- -------- -------- -------- -------- -------- -------- -------- DZOS1A0 * GLOBAL PTF REC 10.153 16:07:11 TZOS1A0 * ******************************* Bottom of data ******************************** ===> SCROLL ===> PAGE F1=HELP F2=SPLIT F3=END F4=RETURN F5=RFIND F6=RCHANGE F7=UP F8=DOWN F9=SWAP F10=LEFT F11=RIGHT F12=RETRIEVE

使用REJECT把RECEIVE的状态干掉

//A0002REJ JOB CLASS=A,MSGCLASS=H,MSGLEVEL=(1,1), // NOTIFY=&SYSUID,USER=IBMUSER //STEP1 EXEC PGM=GIMSMP,REGION=0M //SMPCSI DD DISP=SHR,DSN=ZOS1A.GLOBAL.CSI //SMPLOG DD SYSOUT=* //SMPRPT DD SYSOUT=* //SMPWRK1 DD UNIT=SYSDA,SPACE=(CYL,(30,20,200)),DISP=(,DELETE), // DCB=BLKSIZE=6160 //SMPWRK2 DD UNIT=SYSDA,SPACE=(CYL,(30,20,110)),DISP=(,DELETE), // DCB=BLKSIZE=6160 //SMPWRK3 DD UNIT=SYSDA,SPACE=(CYL,(50,30,150)),DISP=(,DELETE), // DCB=BLKSIZE=3120 //SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(10,5)),DISP=(,DELETE) //SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(10,5)),DISP=(,DELETE) //SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(10,5)),DISP=(,DELETE) //SMPCNTL DD * SET BDY(GLOBAL). REJECT SELECT( UK51888 ) . /*

查看状态

CSI CROSS-ZONE QUERY - ENTRY SELECTION Row 1 to 3 of 3 Entry Type: SYSMOD Entry Name: UK51888 To return to the previous panel, enter END . To select an entry from a zone, enter S next to the zone. * - Entry not found in zone. ** - Zone could not be allocated or is not initialized. -------------------- Status ----------------------------------- ZONE TYPE FMID STATUS DATE TIME REWORK -------- -------- -------- -------- -------- -------- -------- -------- DZOS1A0 * GLOBAL * TZOS1A0 * ******************************* Bottom of data ******************************** ===> SCROLL ===> PAGE F1=HELP F2=SPLIT F3=END F4=RETURN F5=RFIND F6=RCHANGE F7=UP F8=DOWN F9=SWAP F10=LEFT F11=RIGHT F12=RETRIEVE . . . . . . . . . . . . . . . . . . . . . . . . . . .

时相当于重新为系统打UK51888这个补丁:

先下载UK51888，网站http://w3-950.ibm.com/wwqa/wwqa.nsf/wwqalogon?OpenForm&corp

确认UK51888在系统里面是否存在，上面已经确认过了。

把你download下来的bin文件床传到系统中。

unpack，使用JCL，不知道什么原因，这次下载下来的BIN需要unpack两次。

//A0003UPK JOB MSGCLASS=H,MSGLEVEL=(1,1),NOTIFY=&SYSUID //STEP1 EXEC PGM=TRSMAIN,PARM='UNPACK' //SYSPRINT DD SYSOUT=A //INFILE DD DSN=TEST.UK43912.SMP.BIN,DISP=SHR,UNIT=SYSDA //OUTFILE DD DISP=(NEW,CATLG),DSN=TEST.UK43912.SMP.BIN.UPK, // VOL=SER=COMUSR,UNIT=3390,SPACE=(CYL,(1,1)) //STEP2 EXEC PGM=TRSMAIN,PARM='UNPACK' //SYSPRINT DD SYSOUT=A //INFILE DD DSN=TEST.UK43912.SMP.BIN.UPK,DISP=SHR,UNIT=SYSDA //OUTFILE DD DISP=(NEW,CATLG),DSN=TEST.UK43912.SMP, // VOL=SER=COMUSR,UNIT=3390,SPACE=(CYL,(1,1))

UNPACK后的文件

... ++ PTF (UK51888) /* //UK51888 JOB 5655-51888,HAL00,MSGLEVEL=(1,1),CLASS=A */ . ++ VER (Z038) FMID(HIP61A0) PRE (UK50683,UK50072,UK47990,UK44784) SUP (UK50080,UK38262,AK94784,AK87221,AK68879) . ++ IF FMID(HIP61B0) THEN REQ (UK51889) ...

​

使用RECEIVE命令会GLOBAL ZONE里显示出REC这个状态

//A0004RCV JOB CLASS=A,MSGCLASS=H, // MSGLEVEL=(1,1),NOTIFY=&SYSUID,USER=IBMUSER //STEP1 EXEC PGM=GIMSMP,REGION=0M //SMPCSI DD DISP=SHR,DSN=ZOS1A.GLOBAL.CSI //SMPLOG DD SYSOUT=* //SMPWRK6 DD UNIT=SYSDA,SPACE=(CYL,(20,10,1000)) //SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(20,10)) //SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(10,5)) //SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(10,5)) //SYSUT4 DD UNIT=SYSDA,SPACE=(CYL,(10,5)) //SMPPTFIN DD UNIT=SYSDA,VOL=SER=COMUSR,DISP=SHR, // DSN=TEST.UK43912.SMP //SMPRPT DD SYSOUT=* //SMPCNTL DD * SET BDY(GLOBAL). RECEIVE SELECT( UK51888 ) SYSMODS LIST . CSI CROSS-ZONE QUERY - ENTRY SELECTION Row 1 to 3 of 3 Entry Type: SYSMOD Entry Name: UK51888 To return to the previous panel, enter END . To select an entry from a zone, enter S next to the zone. * - Entry not found in zone. ** - Zone could not be allocated or is not initialized. -------------------- Status ----------------------------------- ZONE TYPE FMID STATUS DATE TIME REWORK -------- -------- -------- -------- -------- -------- -------- -------- DZOS1A0 * GLOBAL PTF REC 10.174 16:45:45 TZOS1A0 * ******************************* Bottom of data ******************************** ===> SCROLL ===> PAGE F1=HELP F2=SPLIT F3=END F4=RETURN F5=RFIND F6=RCHANGE F7=UP F8=DOWN F9=SWAP F10=LEFT F11=RIGHT F12=RETRIEVE . . . . . . . . . . . . . . . . . . . . . . . . . . .

用APPLY命令会TARGET ZONE里显示出APP这个状态

//A0005APP JOB USER=IBMUSER,CLASS=A,MSGCLASS=H, // MSGLEVEL=(1,1),NOTIFY=&SYSUID //STEP1 EXEC PGM=GIMSMP,REGION=0M //SMPCSI DD DISP=SHR,DSN=ZOS1A.GLOBAL.CSI //SMPLOG DD SYSOUT=* //SMPRPT DD SYSOUT=* //SMPWRK1 DD UNIT=SYSDA,SPACE=(CYL,(30,20,200)),DISP=(,DELETE), // DCB=BLKSIZE=6160 //SMPWRK2 DD UNIT=SYSDA,SPACE=(CYL,(30,20,110)),DISP=(,DELETE), // DCB=BLKSIZE=6160 //SMPWRK3 DD UNIT=SYSDA,SPACE=(CYL,(50,30,150)),DISP=(,DELETE), // DCB=BLKSIZE=3120 //SMPWRK4 DD UNIT=SYSDA,SPACE=(CYL,(30,20,110)),DISP=(,DELETE), // DCB=BLKSIZE=3120 //SMPWRK6 DD UNIT=SYSDA,SPACE=(CYL,(30,20,10)),DISP=(,DELETE), // DCB=BLKSIZE=6160 //SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(10,5)),DISP=(,DELETE) //SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(10,5)),DISP=(,DELETE) //SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(10,5)),DISP=(,DELETE) //SYSUT4 DD UNIT=SYSDA,SPACE=(TRK,(10,5)),DISP=(,DELETE) //SMPCNTL DD * SET BDY(TZOS1A0). APPLY SELECT( UK51888 ) BYPASS(HOLDSYSTEM(DOC,ENH,DYNACT,IPL,ACTION)) CHECK <--check没问题后，把CHECK去掉在SUB JCL . /* // CSI CROSS-ZONE QUERY - ENTRY SELECTION Row 1 to 3 of 3 Entry Type: SYSMOD Entry Name: UK51888 To return to the previous panel, enter END . To select an entry from a zone, enter S next to the zone. * - Entry not found in zone. ** - Zone could not be allocated or is not initialized. -------------------- Status ----------------------------------- ZONE TYPE FMID STATUS DATE TIME REWORK -------- -------- -------- -------- -------- -------- -------- -------- DZOS1A0 * GLOBAL PTF REC 10.174 16:45:45 TZOS1A0 PTF HIP61A0 APP 10.174 16:53:04 ******************************* Bottom of data ******************************** ===> SCROLL ===> PAGE F1=HELP F2=SPLIT F3=END F4=RETURN F5=RFIND F6=RCHANGE F7=UP F8=DOWN F9=SWAP F10=LEFT F11=RIGHT F12=RETRIEVE . . . . . . . . . . . . . . . . . . . . . . . . . . .

时这个PTF已经完成了，重新系统看看测试下是否有异常，在系统运行一段时候后，可以使用ACCEPT做一个新的备份点。
使用ACCEPT命令会DISTRIBUTION ZONE里显示出ACC这个状态

//A0006ACC JOB USER=IBMUSER,CLASS=A,MSGCLASS=H, // MSGLEVEL=(1,1),NOTIFY=&SYSUID //STEP1 EXEC PGM=GIMSMP,REGION=0M //SMPCSI DD DISP=SHR,DSN=ZOS1A.GLOBAL.CSI //SMPLOG DD SYSOUT=* //SMPRPT DD SYSOUT=* //SMPWRK1 DD UNIT=SYSDA,SPACE=(CYL,(30,20,200)),DISP=(,DELETE), // DCB=BLKSIZE=6160 //SMPWRK2 DD UNIT=SYSDA,SPACE=(CYL,(30,20,110)),DISP=(,DELETE), // DCB=BLKSIZE=6160 //SMPWRK3 DD UNIT=SYSDA,SPACE=(CYL,(50,30,150)),DISP=(,DELETE), // DCB=BLKSIZE=3120 //SMPWRK4 DD UNIT=SYSDA,SPACE=(CYL,(30,20,110)),DISP=(,DELETE), // DCB=BLKSIZE=3120 //SMPWRK6 DD UNIT=SYSDA,SPACE=(CYL,(30,20,10)),DISP=(,DELETE), // DCB=BLKSIZE=6160 //SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(10,5)),DISP=(,DELETE) //SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(10,5)),DISP=(,DELETE) //SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(10,5)),DISP=(,DELETE) //SYSUT4 DD UNIT=SYSDA,SPACE=(TRK,(10,5)),DISP=(,DELETE) //SMPCNTL DD * SET BDY(DZOS1A0). ACCEPT SELECT( UK51888 ) BYPASS(HOLDSYSTEM(DOC,ENH,DYNACT,IPL,ACTION)) CHECK <--check没问题后，把CHECK去掉在SUB JCL . /* CSI CROSS-ZONE QUERY - ENTRY SELECTION Row 1 to 3 of 3 Entry Type: SYSMOD Entry Name: UK51888 To return to the previous panel, enter END . To select an entry from a zone, enter S next to the zone. * - Entry not found in zone. ** - Zone could not be allocated or is not initialized. -------------------- Status ----------------------------------- ZONE TYPE FMID STATUS DATE TIME REWORK -------- -------- -------- -------- -------- -------- -------- -------- DZOS1A0 PTF HIP61A0 ACC 10.174 17:00:16 GLOBAL * TZOS1A0 PTF HIP61A0 APP 10.174 16:53:04 ******************************* Bottom of data ******************************** ===> SCROLL ===> PAGE F1=HELP F2=SPLIT F3=END F4=RETURN F5=RFIND F6=RCHANGE F7=UP F8=DOWN F9=SWAP F10=LEFT F11=RIGHT F12=RETRIEVE . . . . . . . . . . . . . . . . . . . . . . . . . . .

​

可以使用LIST列出PTF的状态

//A0007LST JOB CLASS=A,MSGCLASS=H,MSGLEVEL=(1,1), // NOTIFY=&SYSUID,USER=IBMUSER //STEP1 EXEC PGM=GIMSMP,REGION=0M //SMPCSI DD DISP=SHR,DSN=ZOS1A.GLOBAL.CSI //SMPRPT DD SYSOUT=* //SMPLOG DD SYSOUT=* //SMPCNTL DD * SET BDY(TZOS1A0). LIST SYSMOD(UK51888) . /*

可以在LOG中看到

UK51888 TYPE = PTF STATUS = REC APP FMID = HIP61A0 DATE/TIME REC = 10.174 16:45:45 INS = 10.174 16:53:04 SOURCEID = HIPER PUT0912 RSU1001 SMCCOR

​

VSAM文件纪录的浏览:

对VSAM文件可以从头开始，依次查询各条纪录，这要用到4条CICS命令：STARTBR, READNEXT, READPREV, ENDBR, 依次为开始浏览，读下
条纪录，读前条纪录和结束浏览命令。
这些命令使用的选项含义与READ命令大致相同，但增加了一条REQID，这个选项用来使程序能对一个文件同时发动多个查询，各个查询可
以有不同的当前位置。在STARTBR时，返回打开的浏览的REQID，在后面的命令中使用REQID指明进行那个浏览的操作。程序通过检查命令
的返回码来判断文件结束等情况。

STARTBR FILE('SBVSAM2') RIDFLD(&KEY) STATUS: ABOUT TO EXECUTE COMMAND NAME= EXEC CICS STARTBR FILE( 'SBVSAM2 ' ) < SYSID() > RIDFLD( 'CITI' ) < KEYLENGTH() < GENERIC > > < REQID( +00000 ) > < RBA | RRN | DEBREC | DEBKEY > < GTEQ | EQUAL > PF 1 HELP 2 HEX 3 END 4 EIB 5 VAR 6 USER 7 SBH 8 SFH 9 MSG 10 SB 11 SF READNEXT FILE('SBVSAM2') RIDFLD(&KEY) STATUS: ABOUT TO EXECUTE COMMAND NAME= EXEC CICS READNEXT FILE( 'SBVSAM2 ' ) < SYSID() > ( SET() | INTO() ) < LENGTH() > RIDFLD( 'CITI' ) < KEYLENGTH() > < REQID( +00000 ) > < RBA | RRN > < UNCOMMITTED | CONSISTENT | REPEATABLE | UPDATE TOKEN() > < NOSUSPEND > PF 1 HELP 2 HEX 3 END 4 EIB 5 VAR 6 USER 7 SBH 8 SFH 9 MSG 10 SB 11 SF READNEXT FILE('SBVSAM2') RIDFLD(&KEY) STATUS: COMMAND EXECUTION COMPLETE NAME= EXEC CICS READNEXT FILE( 'SBVSAM2 ' ) < SYSID() > ( SET() | INTO( 'ISSC BALAACCMF39778173' ) ) < LENGTH( +00023 ) > RIDFLD( 'ISSC' ) < KEYLENGTH() > < REQID( +00000 ) > < RBA | RRN > < UNCOMMITTED | CONSISTENT | REPEATABLE | UPDATE TOKEN() > < NOSUSPEND > RESPONSE: NORMAL EIBRESP=+0000000000 EIBRESP2=+0000000000 READNEXT FILE('SBVSAM2') RIDFLD(&KEY) STATUS: COMMAND EXECUTION COMPLETE NAME= EXEC CICS READNEXT FILE( 'SBVSAM2 ' ) < SYSID() > ( SET() | INTO( '' ) ) < LENGTH( +00000 ) > RIDFLD( 'ISSC' ) < KEYLENGTH() > < REQID( +00000 ) > < RBA | RRN > < UNCOMMITTED | CONSISTENT | REPEATABLE | UPDATE TOKEN() > < NOSUSPEND > RESPONSE: ENDFILE EIBRESP=+0000000020 EIBRESP2=+0000000090 PF 1 HELP 2 HEX 3 END 4 EIB 5 VAR 6 USER 7 SBH 8 SFH 9 MSG 10 SB 11 SF READPREV FILE('SBVSAM2') RIDFLD(&KEY) STATUS: ABOUT TO EXECUTE COMMAND NAME= EXEC CICS READPREV FILE( 'SBVSAM2 ' ) < SYSID() > ( SET() | INTO() ) < LENGTH() > RIDFLD( 'ISSC' ) < KEYLENGTH() > < REQID( +00000 ) > < RBA | RRN > < UNCOMMITTED | CONSISTENT | REPEATABLE | UPDATE TOKEN() > < NOSUSPEND > PF 1 HELP 2 HEX 3 END 4 EIB 5 VAR 6 USER 7 SBH 8 SFH 9 MSG 10 SB 11 SF READPREV FILE('SBVSAM2') RIDFLD(&KEY) STATUS: COMMAND EXECUTION COMPLETE NAME= EXEC CICS READPREV FILE( 'SBVSAM2 ' ) < SYSID() > ( SET() | INTO( 'ISSC BALAACCMF39778173' ) ) < LENGTH( +00023 ) > RIDFLD( 'ISSC' ) < KEYLENGTH() > < REQID( +00000 ) > < RBA | RRN > < UNCOMMITTED | CONSISTENT | REPEATABLE | UPDATE TOKEN() > < NOSUSPEND > RESPONSE: NORMAL EIBRESP=+0000000000 EIBRESP2=+0000000000 PF 1 HELP 2 HEX 3 END 4 EIB 5 VAR 6 USER 7 SBH 8 SFH 9 MSG 10 SB 11 SF VSAM文件纪录更新:

CICS使用REWRITE命令来更改数据，REWRITE命令一定要跟在一个READ UPDATE命令之后，而且KSDS的KEY是不能改变的。REWRITE命令
的选项前面都介绍过了，它的异常情况也与READ大致相同，但多了以下几项：
LENGERR：写入纪录的长度没有指定或太长
NOSPACE： 文件空间不足，可能的原因是文件中变长纪录长度增加了
INVREQ： 多由以下原因造成：在REWITE一个记录前，没有运行过READ UPDATE命令
ILLOGIC： 其他VSAM文件操作错误。这种情况下可以通过检测EIBRCODE字段来判断错误种类：在EIBRCODE中，第二个字节为VSAM
错误码。具体代码可以到VSAM代码手册中查询。

READ FILE('SBVSAM2') RIDFLD('ISSC') UPDATE STATUS: ABOUT TO EXECUTE COMMAND NAME= EXEC CICS READ FILE( 'SBVSAM2 ' ) < SYSID() > ( SET() | INTO() ) < LENGTH() > RIDFLD( 'ISSC' ) < KEYLENGTH() < GENERIC > > < RBA | RRN | DEBREC | DEBKEY > < GTEQ | EQUAL > < UNCOMMITTED | CONSISTENT | REPEATABLE | UPDATE < TOKEN() > > < NOSUSPEND > PF 1 HELP 2 HEX 3 END 4 EIB 5 VAR 6 USER 7 SBH 8 SFH 9 MSG 10 SB 11 SF REWRITE FILE('SBVSAM2') FROM('ISSC BALAACCMF39778173') STATUS: ABOUT TO EXECUTE COMMAND NAME= EXEC CICS REWRITE FILE( 'SBVSAM2 ' ) < SYSID() > FROM( 'ISSC BALAACCMF39778173' ) < LENGTH( +00023 ) > < TOKEN() > < NOSUSPEND > PF 1 HELP 2 HEX 3 END 4 EIB 5 VAR 6 USER 7 SBH 8 SFH 9 MSG 10 SB 11 SF REWRITE FILE('SBVSAM2') FROM('ISSC BALAACCMF39778173') STATUS: COMMAND EXECUTION COMPLETE NAME= EXEC CICS REWRITE FILE( 'SBVSAM2 ' ) < SYSID() > FROM( 'ISSC BALAACCMF39778173' ) < LENGTH( +00023 ) > < TOKEN() > < NOSUSPEND > RESPONSE: NORMAL EIBRESP=+0000000000 EIBRESP2=+0000000000 PF 1 HELP 2 HEX 3 END 4 EIB 5 VAR 6 USER 7 SBH 8 SFH 9 MSG 10 SB 11 SF ENDBR FILE('SBVSAM2') STATUS: COMMAND EXECUTION COMPLETE NAME= EXEC CICS ENDBR FILE( 'SBVSAM2 ' ) < SYSID() > < REQID( +00000 ) > RESPONSE: NORMAL EIBRESP=+0000000000 EIBRESP2=+0000000000 PF 1 HELP 2 HEX 3 END 4 EIB 5 VAR 6 USER 7 SBH 8 SFH 9 MSG 10 SB 11 SF 添加VSAM文件纪录：

CICS使用WRITE命令来向VSAM文件写入纪录。命令选项含义与前面的介绍相同。当我们需要按键值的升序排列插入多个纪录时，须使用
MASSINSERT选项，每个WRITE命令都要包含这个选项，要终止MASSINSERT，可通过UNLOCK命令来实现。

WRITE FILE('SBVSAM2') FROM( 'ISSC BALADBDMF39778173' ) RIDFLD('ISSC') STATUS: ABOUT TO EXECUTE COMMAND NAME= EXEC CICS WRITE FILE( 'SBVSAM2 ' ) < SYSID() > FROM( 'ISSC BALADBDMF39778173' ) < LENGTH( +00023 ) > RIDFLD( 'ISSC' ) < KEYLENGTH() > < RBA | RRN > < MASSINSERT > < NOSUSPEND > PF 1 HELP 2 HEX 3 END 4 EIB 5 VAR 6 USER 7 SBH 8 SFH 9 MSG 10 SB 11 SF WRITE FILE('SBVSAM2') FROM( 'ISSC BALADBDMF39778173' ) RIDFLD('ISSC') STATUS: COMMAND EXECUTION COMPLETE NAME= EXEC CICS WRITE FILE( 'SBVSAM2 ' ) < SYSID() > FROM( 'ISSC BALADBDMF39778173' ) < LENGTH( +00023 ) > RIDFLD( 'ISSC' ) < KEYLENGTH() > < RBA | RRN > < MASSINSERT > < NOSUSPEND > RESPONSE: NORMAL EIBRESP=+0000000000 EIBRESP2=+0000000000 PF 1 HELP 2 HEX 3 END 4 EIB 5 VAR 6 USER 7 SBH 8 SFH 9 MSG 10 SB 11 SF 删除VSAM文件纪录:

CICS使用DELETE命令来删除VSAM文件的纪录。只有KSDS和RRDS结构的VSAM文件中的纪录能被删除，这与数据的存放格式有关。ESDS文件
的纪录按进入的顺序排放，只能在文件尾增加纪录，不能删除，而且更新时不能改变长度。如果该记录在请求删除前正在被更新，那么
参数RIDFLD可以不指定，默认为当前记录。如果使用GENERIC参数，必须给定KELENGTH参数，指出KEY长度，同时NUMREC指出要删除的记
录长度，这样就可以一次删除若干条记录。

DELETE FILE('SBVSAM2') RIDFLD('ISSC') STATUS: ABOUT TO EXECUTE COMMAND NAME= EXEC CICS DELETE FILE( 'SBVSAM2 ' ) < SYSID() > < TOKEN() | RIDFLD( 'ISSC' ) < KEYLENGTH() < GENERIC < NUMREC() > > > > < RBA | RRN > < NOSUSPEND > PF 1 HELP 2 HEX 3 END 4 EIB 5 VAR 6 USER 7 SBH 8 SFH 9 MSG 10 SB 11 SF DELETE FILE('SBVSAM2') RIDFLD('ISSC') STATUS: COMMAND EXECUTION COMPLETE NAME= EXEC CICS DELETE FILE( 'SBVSAM2 ' ) < SYSID() > < TOKEN() | RIDFLD( 'ISSC' ) < KEYLENGTH() < GENERIC < NUMREC() > > > > < RBA | RRN > < NOSUSPEND > RESPONSE: NORMAL EIBRESP=+0000000000 EIBRESP2=+0000000000 PF 1 HELP 2 HEX 3 END 4 EIB 5 VAR 6 USER 7 SBH 8 SFH 9 MSG 10 SB 11 SF