home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a040 / 2.ddi / SHRWARE4.ARC / MSAREPL.INC < prev    next >
Encoding:
Text File  |  1988-06-03  |  638 b   |  33 lines
  1. <<* MSAREPL.INC *>>
  2. <<#
  3.  
  4. procedure GenReplaceFlds
  5. string  line
  6. integer count,countMAX
  7. begin
  8.   count := 0
  9.   countMAX := 7
  10.   forall fields
  11.     if count > 0
  12.       genln( line )
  13.     endif
  14.     count := count + 1
  15.     if count mod countMAX = 1
  16.       genln( 'REPLACE;' )
  17.     endif
  18.     line := space(3) + ljust( fldnam,10 ) + ' WITH ' + fixfldnam
  19.     if count mod countMAX <> 0
  20.       line := line + ',;'
  21.     endif
  22.   endfor
  23.   <<*---flush line buffer---*>>
  24.   if count mod countMAX <> 0
  25.     genln( substr( line,1,len(line)-2 ) )
  26.   else
  27.     genln( line )
  28.   endif
  29. end <<*GenReplaceFlds*>>
  30.  
  31. <<* EOF: MSAREPL.INC *>>
  32. #>>
  33.