home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST174.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  2.0 KB  |  53 lines
  1. ********************
  2.  
  3. PROCEDURE Init_rpt
  4.  
  5.    PARAMETERS ok_file, ok_way, _inplace
  6.  
  7.    IF PCOUNT() = 2
  8.       _inplace = .F.
  9.    ENDIF
  10.  
  11.    STORE "" TO sst_f_str, sst_ndx, sst_t_file, sst_t_ndx, ssthead1, ssthead2, ssthead3, ssthead4, ssthead5, ssthead6
  12.    STORE "" TO sstfoot1, sstfoot2, sstfoot3, sstcon1, sstcon2, sstcon3, sstcon4, sstcon5, sstcon6, sstcon7, sstcon8
  13.    STORE "" TO sstcon9, sstcon10, sstcon11, sstcon12, sst_filter,sstfile
  14.  
  15.    STORE SPACE(132) TO ssthead1, ssthead2, ssthead3, ssthead4, ssthead5, ssthead6
  16.    STORE SPACE(132) TO sstfoot1, sstfoot2, sstfoot3
  17.    STORE SPACE(152) TO sstcon1, sstcon2, sstcon3, sstcon4, sstcon5, sstcon6, sstcon7, sstcon8, sstcon9, sstcon10, sstcon11, sstcon12
  18.    STORE SPACE(100) TO sst_filter
  19.    STORE SPACE(15) TO sstfile
  20.    IF ok_way = 3                                        && output to file...
  21.       sstfile = LTRIM(TRIM(SUBSTR(ok_file, 1, AT(".", ok_file)-1)))
  22.    ENDIF
  23.    STORE 6 TO ssthcnt
  24.    STORE 3 TO sstfcnt
  25.    STORE 12 TO sstccnt
  26.    STORE 1 TO rpt1, rpt21
  27.    STORE 0 TO sst_spec
  28.    STORE DTOC(DATE()) TO sstdate
  29.    STORE TIME() TO ssttime
  30.    STORE "0" TO sstpage
  31.    DECLARE in_files[10]
  32.    AFILL(in_files, "")
  33.    RESTORE FROM (ok_file + ".sst") ADDITIVE
  34.    FOR x = 1 TO 10
  35.        SELECT (x)
  36.        IF !EMPTY(ALIAS())
  37.           in_files[x] = ALIAS()
  38.        ENDIF
  39.    NEXT
  40.    Pushscreen()
  41.    Gen_report(ok_way, _inplace)
  42.    Popscreen()
  43.  
  44.    STORE "" TO sst_f_str, sst_ndx, sst_t_file, sst_t_ndx, ssthead1, ssthead2, ssthead3, ssthead4, ssthead5, ssthead6
  45.    STORE "" TO sstfoot1, sstfoot2, sstfoot3, sstcon1, sstcon2, sstcon3, sstcon4, sstcon5, sstcon6, sstcon7, sstcon8
  46.    STORE "" TO sstcon9, sstcon10, sstcon11, sstcon12, sst_filter,sstfile
  47.  
  48.    RELEASE sst_f_str, sst_ndx, sst_t_file, sst_t_ndx, ssthead1, ssthead2, ssthead3, ssthead4, ssthead5, ssthead6
  49.    RELEASE sstfoot1, sstfoot2, sstfoot3, sstcon1, sstcon2, sstcon3, sstcon4, sstcon5, sstcon6, sstcon7, sstcon8
  50.    RELEASE sstcon9, sstcon10, sstcon11, sstcon12, sst_filter,sstfile
  51.  
  52. * End of File
  53.