Print a report to a file in another directory

This script sends a Report-IV report to a text file in a directory other than directory 0. It sets the work-file directory number, the file name and write mode in REPORT$, then runs CONNECT REPORT.

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

How to use it

You must change line 00085 of the program OOU3 first. Otherwise the report always prints to disk 0. Change TEXT P1$,P1,P2,ERR=FERR to TEXT P1$,P2,0,ERR=FERR.
#IDSV.DISK-NBR-WRKFILES sets the directory number (1 in the example).
If the file already exists, the report prints to it in the same location.