     /*         MESSAGE BASE SUBJECT THREAD REPORT          */
     /*            Usage: GAPREPRT THREAD.RPT M             */

START
VIRTUAL
  msg_file      STRING  32      "D:\GAP\MAIN\MSGS.DAT"  /* Message base */
  str_number    STRING  12      LNG_STR(number)
  left_date     DATE     4      date
  read_date     DATE     4      (STRIP(to) <> "ALL" AND date_read = 0)
                                 ? 1 : date_read
  referto       STRING  12      (refer = 0) ? "None" : LNG_STR(refer)
  vf1           INT2     2      (type <> 82 AND type <> 83) ? 1 : 0
  vf2           INT2     2      (type = 82) ? 2 : 0
  vf3           INT2     2      vf1 + vf2
  security      STRING 10      : vf3
                                 0 "Password"
                                 1 "None"
                                 2 "Private"
SEARCH 
  FILE msg_file USING_KEY number_index    /* # after index = forum # */
SELECT
   type <> 82 AND referto <> "None"
SORT USING_KEY
  NO_MOD       subject
  INTEGER      number
CONTROL
  1     subject
ACCUMULATOR                       /* keep a running total  */
                                  /* of the threads in     */
  thread_total  FRQ     subject   /* each group            */
DISPLAY
  DEVICE        OUTFILE            /* send report to a file */
  PAGE_LENGTH   0                  /* no page formatting    */
IMAGE
REPORT_HDR                        /* Change Forum Name below */
+
+ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
+³      WRITERS FORUM MESSAGE THREAD REPORT - as of  @xxxxxxx    ³
                                                     SYS_DATE
+ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
+
CONTROL_HDR(1)

+ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
+³ Subject Heading : @xxxxxxxxxxxxxxxxxxxxx ³
                             subject
+ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
+Number From                 To                   Date
BODY
+@xxxxxx@xxxxxxxxxxxxxxxxxxxx@xxxxxxxxxxxxxxxxxxxx@xxxxxxxx
 number  from                  to                  left_date

CONTROL_FTR(1)
+
+  Total: @999
         thread_total
+          ÄÄÄ
EXIT
