/* testing dasducb                                */                    
                                                                        
ADDRESS TSO 'RX SYS2.EXEC(DASDUCB)';  /* retrieve dasd information */   
                                                                        
'EXECIO * DISKR STEMTMP (STEM cuu.'                                     
                                                                        
DO ix=1 BY 1 TO cuu.0                                                   
  PARSE VAR cuu.ix WITH cuu_addr'~'cuu_volser'~'cuu_type'~'cuu_class'~';
  SAY 'CUU:   ' cuu_addr ,                                              
      'Volume:' cuu_volser ,                                            
      'Type:  ' cuu_type ,                                              
      'Class: ' cuu_class;                                              
END;                                                                    
                                                                        
ADDRESS TSO 'RX SYS2.EXEC(DSTEMTMP)'                                    
                                                                        
EXIT;