home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a046 / 5.img / TEMPLATE / SSBREPL.INC < prev    next >
Encoding:
Text File  |  1992-04-01  |  835 b   |  38 lines
  1. <<* SSBREPL.INC *>>
  2. <<* (C) 1991 SHEN YANG WHITE HORSE SOFTWART COMPANY  *>>
  3. <<#
  4.  
  5. procedure GenReplaceFlds
  6. string  line
  7. integer count,countMAX
  8. begin
  9.   count := 0
  10.   countMAX := 7
  11.   forall fields
  12.     if count > 0
  13.       genln( line )
  14.     endif
  15.     count := count + 1
  16.     if count mod countMAX = 1
  17.       genln( 'REPLACE;' )
  18.     endif
  19.     if (fldals $ 'A')
  20.        line := space(3) + ljust( fldnam,10 ) + ' WITH ' + fixareafldnam
  21.     else
  22.        line := space(3) + fldals + '->' + ljust( fldnam,10 ) + ' WITH ' + fixareafldnam
  23.     endif
  24.     if count mod countMAX <> 0
  25.       line := line + ',;'
  26.     endif
  27.   endfor
  28.   <<*---flush line buffer---*>>
  29.   if count mod countMAX <> 0
  30.     genln( substr( line,1,len(line)-2 ) )
  31.   else
  32.     genln( line )
  33.   endif
  34. end <<*GenReplaceFlds*>>
  35.  
  36. <<* EOF: SSBREPL.INC *>>
  37. #>>
  38.