home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a031 / template.exe / AD_NDX.COD < prev    next >
Encoding:
Text File  |  1992-03-10  |  775 b   |  33 lines
  1. //
  2. // Module Name: AD_NDX.COD - Menu_Act = 13
  3. // Selectors  : NDX_KEY, NDX_File, NDX_Unique, NDX_Descnd, NDX_Tag, NDX_TagIn
  4. // Description: Create a new index file.
  5. // Syntax     : INDEX ON <expKEY> TO <expFN>
  6. //                 / [[TAG <expTN>] [OF <expFN>]]
  7. //                 [UNIQUE] [DISTINCT] [DESCENDING]
  8. //
  9. lc_say = 'Indexing '+dbf()+' on {NDX_KEY}'
  10. DO info_box WITH lc_say
  11. {if !Set_Safety then //safety on}
  12. lc_safety = SET("SAFETY")
  13. SET SAFETY OFF
  14. {endif}
  15. SET TALK ON
  16. //
  17. INDEX ON {NDX_KEY} \
  18. {if NDX_Tag}
  19. TAG {NDX_Tag} OF {NDX_TagIn} \
  20. {else}
  21. TO {NDX_File} \
  22. {endif}
  23. {if NDX_Unique}UNIQUE{endif} \
  24. {if NDX_Descnd}DESCENDING{endif}
  25.  
  26. //
  27. SET TALK OFF
  28. {if !Set_Safety then //safety on}
  29. SET SAFETY &lc_safety.
  30. {endif}
  31. //
  32. // EOP AD_NDX.COD
  33.