hercules zos cics 定义 Console

在网上面常见的 hercules zos 教程
关机的时候，步骤都是要先手动 c cicsa 然后再 s shutall
这个独立的 c cicsa 其实可以包括在 s shutall

但如果直接包括到 s shutall 会发现指令并没有生效
如果在 console 直接输入 e.g. F CICSA,CEMT I TAS
无论在 console 或者 TSO 使用 IBMUSER 也会报 DFHAC2015
这就是 s shutall 无效的原因

如果要在 console 或 tso 直接操作 cics 指令
需要在 CICS CEDA 定义相对应的 CONSName

F CICSA,CEMT I TAS
+DFHAC2015 01/02/2023 13:36:13 CICS Console IBMUSER has not been defined to CICS. Input is ignored.
F CICSA,CEMT I TAS
+DFHAC2015 01/02/2023 13:36:32 CICS Console L700 has not been defined to CICS. Input is ignored.

这里以定义 L700, IBMUSER, INTERNAL 为例子

参考 TY(DFH$L77) G(DFH$VTAM)
参考 TY(DFHCONS) G(DFHTYPE)
参考 TE(L77C) G(DFH$VTAM)

CEDA

ADD G(MTM$VTM1) LIST(XYZLIST)

COPY TE(L77C) G(DFH$VTAM) AS(L700) TO(MTM$VTM1)
ALTER TE(L700) G(MTM$VTM1)
=>	修改 AUTINSTModel to Yes
=>	修改 TYpeterm to DFHCONS
=>	修改 CONSName to L700

VIEW TE(L700) G(MTM$VTM1)

INSTALL TE(L700) G(MTM$VTM1)

COPY TE(L700) G(MTM$VTM1) AS(L800) TO(MTM$VTM1)
ALTER TE(L800) G(MTM$VTM1)
=>	修改 CONSName to IBMUSER

VIEW TE(L800) G(MTM$VTM1)
INSTALL TE(L800) G(MTM$VTM1)

COPY TE(L700) G(MTM$VTM1) AS(L801) TO(MTM$VTM1)
ALTER TE(L801) G(MTM$VTM1)
=>	修改 CONSName to INTERNAL

VIEW TE(L801) G(MTM$VTM1)
INSTALL TE(L801) G(MTM$VTM1)

VIEW TE(*) G(MTM$VTM1)

然后，在 console 和 tso 就可以直接操作 cics 指令
平时关机也不用额外 c cicsa
在 ADCD.Z110.PARMLIB(SHUTALL) 补上就可以

VIEW       ADCD.Z110.PARMLIB(SHUTALL) - 01.06                      Columns 00001 00080 
Command ===>                                                          Scroll ===> CSR  
****** ********************************* Top of Data **********************************
000001 COMMANDPREFIX=NONE   /* THIS IS THE DEFAULT VALUE */                            
000002 /*--------------------------------------------------------------------*/        
000003 /* WARN TSO USERS TO LOGOFF                                           */        
000004 /*--------------------------------------------------------------------*/        
000005 F TSO,USERMAX=0        /* DON'T ALLOW ANYONE ELSE TO LOGON RIGHT NOW! */        
000006 SEND 'PLEASE LOGOFF - THE SYSTEM WILL BE IPLED IN 2 MINUTES!!',ALL,NOW          
000007 PAUSE 5                                                                         
000008 /*--------------------------------------------------------------------*/        
000009 /* ISSUE STOP COMMANDS FOR ALL TASKS THAT WILL TAKE THEM.  FOR THOSE  */        
000010 /* THAT WON'T TAKE THEM, SIMPLY ISSUE CANCEL COMMANDS.                */        
000011 /*--------------------------------------------------------------------*/        
000012 /*--------------------------------------------------------------------*/        
000013 /* ISSUE MODIFY COMMANDS FOR THOSE TASKS THAT USE THEM INSTEAD OF STOP*/        
000014 /*--------------------------------------------------------------------*/        
000015 /*--------------------------------------------------------------------*/        
000016 /* TRY TO WAIT LONG ENOUGH FOR ALL TO COME COMPLETELY DOWN            */        
000017 /*--------------------------------------------------------------------*/        
000018 F CICSA,CEMT P SHUT IMM                                                         
000019 PAUSE 5                                                                         
000020 C INETD4