Here is a simple example (a test rexx I started with),
I think You can change the "?" to desired actionchar,
(but do check the manual: 
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ISF4CS80/12.5?DT=20080605143940
 ):

/* REXX */ Trace N                                                
  x = Isfcalls('ON')                                              
  isfprefix  = 'S000TBE7'                                         
  isfcols = 'JNAME JOBID OWNERID JCLASS POS STATUS' ,             
    'SYSNAME WORKLOAD CPU TRANACT SRVCLS SRVCLASS ACTSYS' ,       
    'SYSAFF TOKEN PRTDEST'                                        
  Address SDSF 'ISFEXEC ST (ALTERNATE PREFIX SDSF_ST_)'           
  isfcols2 = ,                                                    
    'DDNAME STEPN PROCS DSID OCLASS RECCNT BYTECNT DSNAME'        
                                                                  
  Do  i = 1 To isfrows                                            
      Address SDSF "ISFACT ST TOKEN('"sdsf_ST_token.i"')" ,       
        'PARM(NP ?) (PREFIX SDSF_ST_Q_)'                          
                                                                  
      Say rc                                                      
      Say isfmsg                                                  
                                                                  
      Do  j = 1 To isfmsg2.0                                      
          Say isfmsg2.j                                           
          End                                                     
                                                                  
      DO  J = 1 TO SDSF_ST_Q_DDNAME.0                             
          SAY SDSF_ST_Q_DDNAME.J                                  
          End                                                     
                                                                  
                                                                  
      End                                                         
                                                                  
  x = Isfcalls('OFF')                                             
  Exit 0                                                          




Regards,
Thomas Berg 
__________________________________________
Thomas Berg   Specialist   IT-U   SWEDBANK
 
 

> -----Ursprungligt meddelande-----
> Från: IBM Mainframe Discussion List 
> [mailto:ibm-m...@bama.ua.edu] För Dr. Stephen Fedtke
> Skickat: den 27 december 2008 12:12
> Till: IBM-MAIN@bama.ua.edu
> Ämne: SDSF and REXX support
> 
> hi,
> 
> does anybody know on how to change spool file attribute, such 
> as the msgclass, inside a "SDSF & REXX" environment? I.e. on 
> how to change corresponding table columns, causing system 
> commands being issued by SDSF.
> maybe, it is impossible.
> 
> best
> stephen
> 
> 
> ---
> Dr. Stephen Fedtke
> Enterprise-IT-Security.com
> 
> Seestrasse 3a
> CH-6300  Zug
> Switzerland
> Tel. ++41-(0)41-710-4005
> www.enterprise-it-security.com
> Meet your "MAX Z Compliance Protector" at Share, Austin, 
> March 1-6, 2009.
> 
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access 
> instructions, send email to lists...@bama.ua.edu with the 
> message: GET IBM-MAIN INFO Search the archives at 
> http://bama.ua.edu/archives/ibm-main.html
> 

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Reply via email to