home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a040 / 2.ddi / SHRWARE4.ARC / MSASAYS.INC < prev    next >
Encoding:
Text File  |  1988-06-03  |  817 b   |  41 lines
  1. <<* MSASAYS.INC *>>
  2. <<#
  3.  
  4. procedure WriteSayFlds
  5. begin
  6.   forecolor := 32000   <<*Force SET COLOR TO*>>
  7.   backcolor := 32000
  8.   forall fields
  9.     GenColorAtr
  10.     genln( rtrim( getFIELD( false ) ) )  <<*Force fldnam*>>
  11.   endfor
  12. end  <<*WriteSayFlds*>>
  13.  
  14.  
  15. procedure GenSaysBody
  16. begin
  17.   select fields on (fldtyp $ 'CDLN')
  18.   if fldtotal > 0
  19.     if ismultipage
  20.       genln( 'DO CASE' )
  21.       forall pages
  22.         if fldtotal > 0
  23.           genln( 'CASE pageno=',pagcount )
  24.           pushmargin( 1 )
  25.           WriteSayFlds
  26.           popmargin
  27.         endif
  28.       endfor
  29.       genln( 'ENDCASE' )
  30.     else  <<* Single page format *>>
  31.       select page 1
  32.       WriteSayFlds
  33.     endif
  34.     genln( 'CLEAR GETS' )
  35.   endif
  36.   select all fields
  37. end <<*GenSaysBody*>>
  38.  
  39. <<* EOF: MSASAYS.INC *>>
  40. #>>
  41.