Gateway for Windows

The host program requires a simple communication. Each page uses a single CALL to the program RPSCOM.

Terminate each line on the page with:

CRLF (CHR(13)+CHR(10))

Terminate each page with:

FF (CHR(12))
page-of-data" + CHR(12)

Prefix the CRLF at the end of each line with a CHR(11) to indicate a heading line.

CHR(11) + CRLF

The TS ReportServer displays a dialog status box as each page is received and processed.
Append the following instruction to the final page of the report:

"page-of-data-for-last-page" + "[.END.]"

The TS ReportServer immediately displays the report. It allows complete user manipulation and processing of the report, including forward and backward scrolling, printing to a file, and saving to a file.

Example

The following example illustrates the simplicity of the host programming required to invoke TS ReportServer.

      00010 REM &REM&

      00020 BEGIN;
                  DIM M$[5];
            !Gateway call string
                  LINEEND$=CHR(13)+CHR(10),                       !End of
      line indicator
                  HEADLINEEND$=CHR(11)+LINEEND$,            !End of heading
      indicator
                  LAST$="[.END.]"                                       !Last
      page indicator
      00100 M$[1]="I4",
      M$[2]="RPS",
      M$[3]="SYSTEM",
      M$[5]="[.LOAD.]";
      CALL "RPSCOM",M$[ALL];
      IF M$[0]<>"."
            GOTO 9000
      ELSE
            M$[1]="P",                                !Define Report Message:
            M$[5]="**"+                               !(1,2)="**"
                  "UTSAMPLE"+                         !(3,8)=Report name

            !(11,40)=Report Description
                  "Gateway for Windows Test Report "+
                  "080"+                                    !(51,3)=Report
      width
                   "060";                                   !(54,3)=Number of
      lines/page
            CALL "RPSCOM",M$[ALL]

      00200 REM PAGE1

      00210 P$="",
            P$=P$+" HEADING LINE 1 "+HEADLINEEND$,
            P$=P$+" HEADING LINE 2 "+HEADLINEEND$,
            P$=P$+"DETAIL LINE 1 "+LINEEND$,
            P$=P$+"DETAIL LINE 2 "+LINEEND$,
            P$=P$+"DETAIL LINE N "+LINEEND$,
            P$=P$+CHR(12);
            GOSUB 1000

      00220 REM PAGE2 THRU PAGEn

      00230 P$="",
            P$=P$+" HEADING LINE 1 "+HEADLINEEND$,
            P$=P$+" HEADING LINE 2 "+HEADLINEEND$,
            P$=P$+"DETAIL LINE 1 "+LINEEND$,
            P$=P$+"DETAIL LINE 2 "+LINEEND$,
            P$=P$+"DETAIL LINE N "+LINEEND$,
            P$=P$+CHR(12);
            GOSUB 1000

      00240 REM LAST PAGE

      00250 P$="",
      P$=P$+" HEADING LINE 1 "+HEADLINEEND$,
            P$=P$+" HEADING LINE 2 "+HEADLINEEND$,
            P$=P$+"DETAIL LINE 1 "+LINEEND$,
            P$=P$+"DETAIL LINE 2 "+LINEEND$,
            P$=P$+"DETAIL LINE N "+LINEEND$,
            P$=P$+LAST$;
            GOSUB 1000;
            GOTO 9000

      01000 M$[5]=P$;
            CALL "RPSCOM",M$[ALL];
            RETURN

09000 RUN "**"

From the TS ReportServer, version 8.9.1. Open this page in the PDF