SDSF ST über REXX

Question

Ich habe eine interessante Idee. Ich möchte JCL in SDSF über REXX sehen.

Derzeit kann ich notwendigen Jobnamen sehen, mit:

Address SDSF "ISFEXEC ST" 

Vielleicht hat jemand eine Vorstellung davon, was mit meinem Skript hinzuzufügen Analogon von machen:

command s 

Und total erhalten die gleichen Ausgang

Answer 1

Using SDSF with the REXX programming language - Examples of REXX execs, gemäß dem Kommentar, Beispiel-Code, zB: -

Liste Aktion Zeichen

die ISFACTIONS spezielle Variable auf ON, die die Aktion Zeichen bewirkt, dass in zurückzusenden die ISFRESP-Variablen. Rufen Sie dann das ST-Panel auf und führen Sie die gültigen Aktionszeichen für dieses Panel auf.

/* 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') 

und

Zugang ein SDSF Panel

Besuchen Sie das ST-Panel, listen Sie dann die Spaltenvariablen.

/* 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') 

Ein IBM Red Book, ein PDF Downlaod, Implementing Rexx Support in SDSF auch von Nutzen sein kann.