home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a031 / template.exe / AD_REPL.COD < prev    next >
Encoding:
Text File  |  1992-03-10  |  1.3 KB  |  39 lines
  1. //
  2. // Module Name: AD_REPL.COD - Menu_Act = 9
  3. // Selectors  : Scope, For_Expr, While_Exp, Repl_fld*, Repl_with*, Repl_Addtv*
  4. // Description: Substitute values into database record
  5. // Syntax     : REPLACE <field name> WITH <exp> [ADDITIVE]
  6. //                 [,<field2> WITH <exp>...]
  7. //                 [<scope>] [FOR <expL>] [WHILE <expL>]
  8. //
  9. lc_say='Replacing records in file {Sort_File}'
  10. DO info_box WITH lc_say
  11. //
  12. SET TALK ON
  13. *--  Desc: REPLACE records in {Sort_File}
  14. REPLACE \
  15. {if Repl_fld1} {Repl_fld1} {if Repl_with1} WITH {Repl_with1}{endif}\
  16. {if Repl_Addtv1} ADDITIVE {endif}\
  17. {endif}
  18. {if Repl_fld2}, {Repl_fld2} {if Repl_with2} WITH {Repl_with2}{endif}\
  19. {if Repl_Addtv2} ADDITIVE {endif}\
  20. {endif}
  21. {if Repl_fld3}, {Repl_fld3} {if Repl_with3} WITH {Repl_with3}{endif}\
  22. {if Repl_Addtv3} ADDITIVE {endif}\
  23. {endif}
  24. {if Repl_fld4}, {Repl_fld4} {if Repl_with4} WITH {Repl_with4}{endif}\
  25. {if Repl_Addtv4} ADDITIVE {endif}\
  26. {endif}
  27. {if Repl_fld5}, {Repl_fld5} {if Repl_with5} WITH {Repl_with5}{endif}\
  28. {if Repl_Addtv5} ADDITIVE {endif}\
  29. {endif}
  30. {if !Scope && !For_Expr && !While_Exp then} &gc_scope. {endif}\
  31. {if Scope} {upper(Scope)} {endif}\
  32. {if While_Exp} WHILE {While_Exp}{endif}\
  33. {if For_Expr} FOR {For_Expr}{endif}\
  34.  
  35. SET TALK OFF
  36. //
  37. // EOP AD_REPL.COD
  38.  
  39.