mainframe - SDSF ST 通过 REXX

Question

我有一个有趣的想法。我想JCL在SDSFvia中查看REXX。

目前我可以看到必要的工作名称，使用：

Address SDSF "ISFEXEC ST"

也许有人知道要在我的脚本中添加什么来模拟：

command s

并且完全得到相同的输出

Answer 1

将 SDSF 与 REXX 编程语言一起使用 -根据评论，REXX execs 的示例具有示例代码，例如：-

列出动作角色

将 ISFACTIONS 特殊变量设置为 ON，这会导致在 ISFRESP 变量中返回操作字符。然后访问 ST 面板，并列出该面板的有效动作字符。

/* REXX */                                         
rc=isfcalls('ON')                                  
    /* Set isfactions special variable to */      
    /* the equivalent of SET ACTION ON    */      
isfactions="ON"                                    
    /* Invoke the ST panel */                     
Address SDSF "ISFEXEC ST"                          
if rc<>0 then                                      
  Exit rc                                          
    /* List each of the valid action characters */
    /* for the panel.                           */
Say "Actions valid on the panel are:"              
do ix=1 to isfresp.0                               
  Say " " isfresp.ix                               
end                                                
rc=isfcalls('OFF') 

和

访问 SDSF 面板

访问 ST 面板，然后列出列变量。

/* REXX */                                     
rc=isfcalls('ON')                              
     /* Access the ST panel */                 
Address SDSF "ISFEXEC ST"                      
if rc<>0 then                                  
  Exit rc                                      
     /* Get fixed field name from first word */
     /* of isfcols special variable          */
fixedField = word(isfcols,1)                      
Say "Number of rows returned:" isfrows            
       /* Process all rows */                       
do ix=1 to isfrows                                
  Say "Now processing job:" value(fixedField"."ix)
          /* List all columns for row */               
  do jx=1 to words(isfcols)           
    col = word(isfcols,jx)                                  
    Say "  Column" col"."ix "has the value:" value(col"."ix)
  end                                                       
end                                                         
rc=isfcalls('OFF') 

IBM 红皮书、PDF 下载、在 SDSF中实现 Rexx 支持也可能有用。