home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a040 / 2.ddi / SHRWARE4.ARC / GENFMT.INC < prev    next >
Encoding:
Text File  |  1988-02-10  |  1.2 KB  |  67 lines
  1. <<* GENFMT.INC *>>
  2. <<#
  3.  
  4. procedure WriteLabels
  5. integer lasthue
  6. begin
  7.   lasthue := 32000
  8.   forall fields
  9.     if (fldhue <> lasthue)
  10.       genln( 'SET COLOR TO ',AtrCode( fldhue ) )
  11.       lasthue := fldhue
  12.     endif
  13.     genLABEL
  14.   endfor
  15. end <<*WriteLabels*>>
  16.  
  17.  
  18. procedure WriteFields
  19. begin
  20.   forecolor := 32000   <<*Force SET COLOR TO*>>
  21.   backcolor := 32000
  22.   forall fldtyp $ 'CDLNM'
  23.     GenColorAtr
  24.     genFIELD
  25.   endfor
  26. end <<*WriteFields*>>
  27.  
  28.  
  29. procedure GenPlusFormat
  30. begin
  31.   forall pages
  32.     WriteLabels
  33.     genln( '*' )
  34.     WriteFields
  35.     if pagcount <> pagtotal
  36.       genln( 'READ' )
  37.     endif
  38.   endfor
  39. end <<*GenPlusFormat*>>
  40.  
  41.  
  42. procedure GenOneFormat
  43. begin
  44.   genln( 'SET COLOR TO ',ScreenColor )
  45.   genln( 'CLEAR' )
  46.   genln( 'SET COLOR TO ',StatusColor )
  47.   genln( '@  0, 0 SAY "Record: " + SUBSTR( STR(RECNO()+1000000,7),2 )' )
  48.   WriteLabels
  49.   genln( '*' )
  50.   WriteFields
  51. end <<*GenOneFormat*>>
  52.  
  53.  
  54. procedure GenFormat( fspec : string )
  55. string filename
  56. begin
  57.   filespec( fspec,fpath,fname,fext )
  58.   fspec := fpath + fname + '.FMT'
  59.   if OpenFile( fspec,'Format file for ' + datafile + '.DBF' )
  60.     GenPlusFormat
  61.     GenFooter( fspec )
  62.   endif
  63. end <<*GenFormat*>>
  64.  
  65. <<* EOF: GENFMT.INC *>>
  66. #>>
  67.