/* REXX */                                                                      
PARSE UPPER ARG tr_vsam .                                                       
                                                                                
zrc = LISTDSI("'"tr_vsam"'")                                                    
SAY zrc                                                                         
SAY sysreason                                                                   
SAY sysmsglvl1                                                                  
SAY sysmsglvl2                                                                  
                                                                                
SAY sysdsname                                                                   
SAY sysdsorg                                                                    
SAY sysrecfm                                                                    
SAY syslrecl                                                                    
SAY sysblksize                                                                  
SAY syskeylen                                                                   
SAY syscreate                                                                   
SAY sysrefdate                                                                  
SAY sysexdate                                                                   
                                                                                
EXIT zrc