在特定 LPAR 上使用 ASID 显示和取消多个 stc
DISPLAY and CANCEL multiple stcs with ASID on specific LPAR
我们有两个启动任务,运行 多个 OMVS 实例。事实证明,自动关机是有问题的。我们在一次性使用 IBM System Automation (SA v4.1) 和 Netview (v6.2.1)
我想出了一个 REXX exec 来实现我想要的:
/* IHSCAN
-------------------------------------------------------------------
Function: Shutdown IHSHOD13, multiple running instances
this is b/c this is OMVS/USS primarily.
Called by: SA SHUTDOWN
Calls: n/a
Logic: Using previous REXX template this PIPES the ASID to
a stem variable and then send a cancel command for
each.
-------------------------------------------------------------------
*/
task.0 = 0
'pipe mvs d a,IHSHOD13',
'| corr 30',
'| tos /CNZ4106I/',
'| sep',
'| loc /IHSHOD13/',
'| loc /A=/',
'| stem task.'
say 'IHSCAN: found ' task.0 ' IHSHOD13 tasks'
if task.0 = 0 then exit
do t = 1 to task.0
parse var task.t 'A=' asid .
'MVS C IHSHOD13,A='asid
say 'CANCELLED IHSHOD13: ' asid'.'
end
exit
我认为这是完美的,直到我意识到在我们的综合系统上这个解决方案将取消多个 lpar 上的所有 stc,而不是我的目标只是取消一个 lpar。
有什么方法可以改变我的 REXX 解决方案,以便仅在 SYSA 而不是 SYSA 和 SYSB 上使用 ASID 来执行多个 stc 的取消?
具体来说是 MVS D A,IHSHOD13
的替代品吗?
编辑:也许 REXX/SDSF 中有些东西是 CANCEL ASID=x IF SYSNAME=y
?
上面的 REXX Exec 实际上按预期工作,取消了单个 LPAR 的所有 ASID。
我不得不做一些广泛的测试来验证。
@piet.t 指出 D A
命令将仅显示当前 lpar 上的任务 运行 是正确的。
我们有两个启动任务,运行 多个 OMVS 实例。事实证明,自动关机是有问题的。我们在一次性使用 IBM System Automation (SA v4.1) 和 Netview (v6.2.1)
我想出了一个 REXX exec 来实现我想要的:
/* IHSCAN
-------------------------------------------------------------------
Function: Shutdown IHSHOD13, multiple running instances
this is b/c this is OMVS/USS primarily.
Called by: SA SHUTDOWN
Calls: n/a
Logic: Using previous REXX template this PIPES the ASID to
a stem variable and then send a cancel command for
each.
-------------------------------------------------------------------
*/
task.0 = 0
'pipe mvs d a,IHSHOD13',
'| corr 30',
'| tos /CNZ4106I/',
'| sep',
'| loc /IHSHOD13/',
'| loc /A=/',
'| stem task.'
say 'IHSCAN: found ' task.0 ' IHSHOD13 tasks'
if task.0 = 0 then exit
do t = 1 to task.0
parse var task.t 'A=' asid .
'MVS C IHSHOD13,A='asid
say 'CANCELLED IHSHOD13: ' asid'.'
end
exit
我认为这是完美的,直到我意识到在我们的综合系统上这个解决方案将取消多个 lpar 上的所有 stc,而不是我的目标只是取消一个 lpar。
有什么方法可以改变我的 REXX 解决方案,以便仅在 SYSA 而不是 SYSA 和 SYSB 上使用 ASID 来执行多个 stc 的取消?
具体来说是 MVS D A,IHSHOD13
的替代品吗?
编辑:也许 REXX/SDSF 中有些东西是 CANCEL ASID=x IF SYSNAME=y
?
上面的 REXX Exec 实际上按预期工作,取消了单个 LPAR 的所有 ASID。
我不得不做一些广泛的测试来验证。
@piet.t 指出 D A
命令将仅显示当前 lpar 上的任务 运行 是正确的。