TapeStat...                                                                                                                         
                                                                                                                                    
Purpose: explore using several AIF routines to get device                                                                           
information, particularly for tape drives.                                                                                          
                                                                                                                                    
Usage:                                                                                                                              
  tapestat devicenumber  [ALL | ALLALL]                                                                                             
                                                                                                                                    
Where devicenumber is the device number (LDEV) of the tape drive.                                                                   
                                                                                                                                    
Examples:                                                                                                                           
                                                                                                                                    
   run tapestat.pub.allegro;info="7"       ... quick info about LDEV 7                                                              
                                                                                                                                    
   run tapestat.pub.allegro;info="7 ALL"   ... more info about LDEV 7                                                               
                                                                                                                                    
Returns in CI variable TAPESTAT_RESULT:                                                                                             
    0 - Tape is unowned, online, at BOT and writeable                                                                               
    1 - Tape is unowned, online, at BOT andwrite protected                                                                          
    2 - An error occurred.  Probably an invalid device number                                                                       
    3 - Device is not a tape drive                                                                                                  
    4 - Device is owned by another process                                                                                          
    5 - Device is owned by the system                                                                                               
    6 - Device is not online                                                                                                        
    7 - No tape in device                                                                                                           
                                                                                                                                    
TapeStat must reside in a group.account with PM capability.                                                                         
                                                                                                                                    
TapeStat was originally written by Terry Tipton of ROC Software,                                                                    
and has been modified by Stan Sieler of Allegro Consultants.                                                                        

TapeStat 20150313