MAINLINE                                                                      
     LET #IDSV.DISK-NBR-WRKFILES=1     ! Print to directory number 1          
     DIM REPORT$[10]                   ! Dimension report array               
     LET REPORT$[1]="UTXRAR01",        ! Use report UTXRAR01                  
         REPORT$[6]="/rep.txt",        ! Print to file rep.txt                
         REPORT$[7]="W"                ! Use WRITE mode                       
     CONNECT REPORT                    ! Run report                           
                                                                              
*  A modification must made to OOU3 at line 85 for the report to the          
*  #IDSV.DISK-NBR-WRKFILES.  Otherwise, the report will always print disk 0.  
*  If file exists, the report will print to the same location.                
*                                                                             
*                                                                             
*  Program: OOU3                                                              
*  Line: 00085                                                                
*  Change:                                                                    
*       TEXT P1$,P1,P2,ERR=FERR                                               
*  To:                                                                        
*       TEXT P1$,P2,0,ERR=FERR