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