SDSF ST经REXX

Question

我有个有趣的主意。我想通过JCL在SDSF通过REXX看一看。

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

Address SDSF "ISFEXEC ST"

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

command s

​

并且完全得到相同的输出

​

​

Answer 1

根据注释，在REXX编程语言中使用SDSF -- 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支持也可能是有用的。