This program runs a Report-IV report from Basic. It puts the report name in REPORT$[1] and calls OOR, the method behind CONNECT REPORT.

.HOFF
! Example of how use CONNECT REPORT from Basic
! This example uses the sampel data from the UT library.
!
00010 REM &REM&
00100 CALL "IDPUB4",]6$,]7$,]8$,]9$ ! Set Idol-IV System Variables
00110 CALL "8ZPSYS",]SYSV$ !
00120 DIM REPORT$[10] ! Dimension REPORT$ for call
00130 LET REPORT$[1] = "UTXRAR01" ! Menu Name
00140 CALL "OOR",REPORT$[ALL] ! Call CONNECT REPORT
00150 RUN "ID" ! Program to run after Report
00200 END

Notes

  • The example uses report UTXRAR01 from the UT sample library. The comment on line 00130 calls it a menu name, but REPORT$[1] holds the report name.
  • Line 00150 runs the program ID after the report finishes. Change it to the program your application should return to.

Search tbred.com