SDSF ST通过REXX

Question

我有一个有趣的想法。我想通过JCL在SDSF中看到REXX。

目前，我可以使用以下方式查看必要的职位名称：

Address SDSF "ISFEXEC ST"

也许任何人都知道要添加到我的脚本中的内容以模拟：

command s

完全得到相同的输出

Answer 1

根据评论，

Using SDSF with the REXX programming language - Examples of 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 Red Book， PDF Downlaod ，Implementing Rexx Support in SDSF也可能有用。