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