/* rexx */                                                                      
/*-------------------------------------------------------------------*/         
/*                                                                   */         
/*                        REXX Exec : DSNINFO                        */         
/*                                                                   */         
/*  Description : Returns dataset information                        */         
/*                                                                   */         
/*  Created on : 05 AUG 2010                                         */         
/*  Created by : Kevin Ferguson                                      */         
/*             : Userid(MIT001)                                      */         
/*             : using ABBYDALE.PROD.EMACS(DSNINFO)                  */         
/*                                                                   */         
/*  Called by :                                                      */         
/*                                                                   */         
/*  Calls : LISTDSI                                                  */         
/*                                                                   */         
/*  Change Activity :                                                */         
/*                                                                   */         
/*                ©Copyright of Abbydale Systems LLC.                */         
/*                                                                   */         
/*-------------------------------------------------------------------*/         
ADDRESS ISREDIT "MACRO PROCESS"                                                 
ADDRESS ISREDIT "(DSNAME) = DATASET"                                            
dsname = strip(dsname,b,"'")                                                    
kf = outtrap('on')                                                              
DSN_STATUS = LISTDSI(''''dsname'''' directory smsinfo)                          
kf = outtrap('off')                                                             
say 'Dataset information for 'dsname                                            
say ' '                                                                         
say 'Number of extents.... =' sysextents                                        
say 'Volume Serial........ =' sysvolume                                         
say 'Unit................. =' sysunit                                           
say 'SMS Stoage class..... =' sysstorclass                                      
say 'DSORG................ =' sysdsorg                                          
say 'Record Format........ =' sysrecfm                                          
say 'Record Length........ =' syslrecl                                          
say 'Blocksize ........... =' sysblksize                                        
say 'Keylength ........... =' syskeylen                                         
say 'Allocation units..... =' sysunits                                          
say 'Allocation Size...... =' sysalloc                                          
say 'Primary Allocation... =' sysprimary                                        
say 'Secondary Allocation. =' sysseconds                                        
say 'Track per Cylinder... =' systrkscyl                                        
say 'Blocks per Track..... =' sysblkstrk                                        
say 'Space used........... =' sysused                                           
test = substr(sysdsorg,1,2)                                                     
if test = "PO" then do                                                          
   say 'Directory Blocks..... =' sysadirblk                                     
   say 'Used Directory Blocks =' sysudirblk                                     
end                                                                             
exit                                                                            
/*-------------------------------------------------------------------*/         
/*                          End of DSNINFO                           */         
/*-------------------------------------------------------------------*/