Navigation

    DDBB

    • Register
    • Login
    • Categories
    • Recent
    • Tags
    • Popular
    • Users
    • Groups
    1. Home
    2. Popular
    Log in to post
    • All categories
    • PROGRAMMING LANGUAGES
    • JOB & TRANSACTION PROCESSING
    • DATA MANAGEMENT SYSTEMS
    • IBM UTILITIES & TOOLS
    • IBMZ Emulator
    • Python
    • Linux
    • JAVA
    • All Topics
    • New Topics
    • Watched Topics
    • Unreplied Topics
    • All Time
    • Day
    • Week
    • Month
    • A

      配置源环境
      IBMZ Emulator • • admin

      4
      0
      Votes
      4
      Posts
      218
      Views

      A

      配置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副本。

    • A

      ZD&T安装基于软件的许可证服务器
      IBMZ Emulator • • admin

      3
      0
      Votes
      3
      Posts
      344
      Views

      A

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

    • A

      配置目标环境
      IBMZ Emulator • • admin

      3
      0
      Votes
      3
      Posts
      180
      Views

      A

      配置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资源库。
    • A

      SMP/E初学入门--介绍和使用实例
      IBM UTILITIES & TOOLS • • admin

      2
      0
      Votes
      2
      Posts
      295
      Views

      A

      -----------------------------------------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

      ​

    • A

      UBUNTU上安装ZD&T手顺
      IBMZ Emulator • • admin

      2
      0
      Votes
      2
      Posts
      177
      Views

      No one has replied

    • A

      新手入门之vsam online操作
      DATA MANAGEMENT SYSTEMS • • admin

      2
      0
      Votes
      2
      Posts
      170
      Views

      A

      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
    • A

      新手入门之简单的cics程序
      PROGRAMMING LANGUAGES • • admin

      1
      0
      Votes
      1
      Posts
      123
      Views

      No one has replied

    • A

      JAVA安装,环境变量和HelloWorld和IdeaIU & GIT安装
      JAVA • • admin

      1
      0
      Votes
      1
      Posts
      130
      Views

      No one has replied

    • A

      ZD&T Enterprise Edition概述
      IBMZ Emulator • • admin

      1
      0
      Votes
      1
      Posts
      129
      Views

      No one has replied

    • A

      新手入门之如何创建和使用VSAM(IDCAMS)
      DATA MANAGEMENT SYSTEMS • • admin

      1
      0
      Votes
      1
      Posts
      158
      Views

      No one has replied

    • A

      新手入门之COBOL子程序
      PROGRAMMING LANGUAGES • • admin

      1
      0
      Votes
      1
      Posts
      126
      Views

      No one has replied

    • A

      IntelliJ IDEA 常用快捷键 之 Windows 版
      JAVA • • admin

      1
      0
      Votes
      1
      Posts
      136
      Views

      No one has replied

    • A

      防火墙端口列表
      IBMZ Emulator • • admin

      1
      0
      Votes
      1
      Posts
      121
      Views

      No one has replied

    • A

      IMS DL/I Return Code List and Explanations
      DATA MANAGEMENT SYSTEMS • • admin

      1
      0
      Votes
      1
      Posts
      174
      Views

      No one has replied

    • A

      新手入门之如何读文件的COBOL程序
      PROGRAMMING LANGUAGES • • admin

      1
      0
      Votes
      1
      Posts
      154
      Views

      No one has replied

    • A

      IdeaIU配置热部署
      JAVA • • admin

      1
      0
      Votes
      1
      Posts
      146
      Views

      No one has replied

    • A

      Docker容器支持
      IBMZ Emulator • • admin

      1
      0
      Votes
      1
      Posts
      135
      Views

      No one has replied

    • A

      Mainframe Useful Commands
      DATA MANAGEMENT SYSTEMS • • admin

      1
      0
      Votes
      1
      Posts
      466
      Views

      No one has replied

    • A

      新手入门之如何使用COBOL对VSAM进行读写(batch)
      PROGRAMMING LANGUAGES • • admin

      1
      0
      Votes
      1
      Posts
      147
      Views

      No one has replied

    • A

      Navicat 15远程连接mysql-新建数据库和表
      JAVA • • admin

      1
      0
      Votes
      1
      Posts
      150
      Views

      No one has replied