/* rexx */                                                                      
/* Quick ISPF save of member stats.                 */                          
ARG DS G                                                                        
/* DS is the data set name to get the stats from.   */                          
/* G is the middle qualifer of the saved data set   */                          
/* The saved data set name will be userid.g.MEMBERS */                          
If G = '' then G = 'STATS'                                                      
If DS = '' then do                                                              
  Say 'You must supply at least a data set name to MEMLSTSV.'                   
      'Do not use quotes as the REXX EXEC supplies those.'                      
  Say 'For example, TSO %MEMLSTSV USERID.LIB.CNTL'                              
  Exit 12                                                                       
End                                                                             
Address ISPEXEC                                                                 
 "CONTROL ERRORS RETURN"                                                        
 "LMINIT DATAID(STATID)  DATASET('"DS"')"                                       
 If RC = 0 then do                                                              
   "LMOPEN DATAID("STATID")"                                                    
   "LMMLIST DATAID("STATID") OPTION(SAVE) STATS(YES) GROUP("G")"                
    If RC = 0 then,                                                             
      Say 'Stats written to userid.' || G || '.MEMBERS'                         
    Else say 'Error - RC=' || RC                                                
 End                                                                            
 Else say 'Error - RC=' || RC                                                   
 "LMFREE DATAID("STATID")"