home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a031 / template.exe / AD_DELE.COD < prev    next >
Encoding:
Text File  |  1992-03-10  |  523 b   |  21 lines
  1. //
  2. // Module Name: AD_DELE.COD - Menu_Act = 10
  3. // Selectors  : Scope, For_Expr, While_Exp
  4. // Description: to issue dBASE DELETE command.
  5. // Syntax     : DELETE [<scope>] [FOR <expL>] [WHILE <expL>]
  6. //
  7. lc_say='Marking Records for deletion...'
  8. DO info_box WITH lc_say
  9. SET TALK ON
  10. //
  11. DELETE\
  12. {if !Scope && !For_Expr && !While_Exp then} &gc_scope. {endif}\
  13. {if Scope} {upper(Scope)} {endif}\
  14. {if For_Expr} FOR {For_Expr}{endif}\
  15. {if While_Exp} WHILE {While_Exp}{endif}\
  16.  
  17. SET TALK OFF
  18. //
  19. // EOP AD_DELE.COD
  20.  
  21.