home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a046 / 5.img / TEMPLATE / SSBPRIN.GEN < prev    next >
Encoding:
Text File  |  1992-04-01  |  1.2 KB  |  49 lines
  1. <<* SSBPRIN.GEN *>>
  2. <<* (C) 1991 SHEN YANG WHITE HORSE SOFTWART COMPANY  *>>
  3.  
  4. <<title 'Output table File Generator'>>
  5. <<#
  6. <<*---Declare global variables---*>>
  7. string  fspec,fpath,fname,fext
  8. string  prgname,datafile
  9. string  fldprefix,fileprefix
  10.  
  11. <<*---GENHUE vars---*>>
  12. integer lasthue,forecolor,backcolor
  13.  
  14. #>>
  15. <<*---General modules---*>>
  16. <<*include 'GENPRG.INC'*>>   <<*Contains GetPrgName,etc.*>>
  17. <<*include 'GENFLD.INC'*>>   <<*Contains GenLabel,GenField,etc.*>>
  18. <<#include 'GENFILE.INC'#>>  <<*Contains GenHeader,GenFooter,etc.*>>
  19. <<*---Specific modules---*>>
  20. <<#include 'GENPRINT.INC'#>>
  21. <<#
  22.  
  23. procedure InitGlobals
  24. begin
  25.   select all
  26.   select database 1
  27.   filespec( dbfnam,fpath,datafile,fext )  <<*Init 'datafile'*>>
  28.   fldprefix := 'm'
  29. end <<*InitGlobals*>>
  30.  
  31. begin <<*MAIN*>>
  32.   if Table
  33.       prgname :=Table
  34.       InitGlobals
  35.       filespec( prgname,fpath,fname,fext )
  36.       fileprefix := substr( fname,1,7 )
  37.       fspec := fileprefix + '5.PRG'
  38.       if OpenFile(fspec,'Print Table File')
  39.         ssbprintfmt
  40.         GenFooter(fspec)
  41.       endif
  42.   else
  43.     wait 'No Date File is available '
  44.   endif
  45. end <<*MAIN*>>
  46.  
  47. <<*EOF: FORMAT.GEN*>>
  48. #>>
  49.