在特定 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 上的任务 运行 是正确的。