1

我编写了这段代码，它将 SDSF 中的信息写入文件（如选项 S）。所以，我的问题是，我可以不写所有信息（来自 SDSF 的 JESMSGLG、JESJCL、JESYSMSG.._？我只需要 DVGLOG DDNAME 

parse upper arg prefix owner hiqual                        
rc=isfcalls("on")                                          
isfprefix = prefix                                         
isfowner  = owner                                          
ADDRESS SDSF "ISFEXEC ST"                                  

do ix=1 to JNAME.0                                         
    do until isfnextlinetoken=''                           
        ADDRESS SDSF "ISFBROWSE ST TOKEN('"token.ix"')"    
        say token.ix                                       
        isfstartlinetoken = isfnextlinetoken               
    end                                                    

DSN = userid()||'.'||JNAME.IX||'.'||JOBID.IX               

ADDRESS TSO                                                
 "ALLOC DA('"DSN"') F(DATA3)                              
  LIKE('userid.TEMP2') NEW"                                
  "EXECIO * DISKW DATA3 (STEM isfline."                    
  "EXECIO 0 DISKR DATA3 (FINIS"                            
  "FREE FI(DATA3)"                                         
drop isfline.                                              
end                                                        

rc=isfcalls("off")                                         
exit
4

1 回答 1

2

这是一些可能有帮助的代码。它适用于 z/OS V1（我认为您使用的是 V2），因此它不使用 ISFBROWSE。它使用 ISFCOL var 来限制返回的列。

exec 将列出 JES2 队列上所有作业的所有作业名和所有者（SDSF 变量 JNAME 和 OWNERID）。

/* REXX */                                                    
rc=isfcalls('ON')                                             
     /* Access the ST panel */                                
Address SDSF "ISFEXEC ST"                                     
ISFCOLS = 'JNAME OWNERID'                                     
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')                                            
exit

我没有修改它来测试它对 DDNAME 的检索 - 为此，我认为您必须发出 ? 针对每条输出的命令。我不确定你所说的 DVGLOG 是什么意思，但这不是我在我的 SDSF 版本中可以找到的字段。

于 2016-06-10T11:37:26.427 回答