home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a031 / template.exe / DD_SORT.COD < prev    next >
Encoding:
Text File  |  1992-03-10  |  1.4 KB  |  42 lines
  1. //
  2. // Module Name: DD_SORT.COD - currently (selector name): Menu_Act = 15
  3. // Selectors used : Sort_File, SortField*, Sort_Ord*, Sort_Case*
  4. //            : Scope, For_Expr, While_Exp
  5. // Syntax     : SORT TO <new file> ON <field> [Ascending] [/C] [/D]
  6. //                   [,<field2> [/A] [/C] [/D]...]
  7. //                   [<scope>] [FOR <condition>] [WHILE <condition>] 
  8. //
  9. Physically Sort DBF File
  10. {endofpage();}
  11. Command Options:
  12. {if Sort_File} TO File {Sort_File}{endif}
  13. {if SortField1 then}\
  14.  ON Field {SortField1}{if not Sort_Ord1} Ascending{else} Descending{endif}\
  15. { if not Sort_Case1} Ignore Case {endif}
  16. {endif}
  17. {endofpage();}
  18. {if SortField2 then}\
  19.  ON Field {SortField2}{if not Sort_Ord2} Ascending{else} Descending{endif}\
  20. { if not Sort_Case2} Ignore Case{endif}
  21. {endif}
  22. {endofpage();}
  23. {if SortField3 then}\
  24.  ON Field {SortField3}{if not Sort_Ord3} Ascending{else} Descending{endif}\
  25. { if not Sort_Case3} Ignore Case{endif}
  26. {endif}
  27. {endofpage();}
  28. {if SortField4 then}\
  29.  ON Field {SortField4}{if not Sort_Ord4} Ascending{else} Descending{endif}\
  30. { if not Sort_Case4} Ignore Case{endif}
  31. {endif}
  32. {endofpage();}
  33. {if SortField5 then}
  34.  ON Field {SortField5}{if not Sort_Ord5} Ascending{else} Descending{endif}\
  35. { if not Sort_Case5} Ignore Case{endif}
  36. {endif}
  37. {endofpage();}
  38. {if Scope} SCOPE {upper(Scope)}{endif}\
  39. {if For_Expr} FOR {For_Expr}{endif}\
  40. {if While_Exp} WHILE {While_Exp}{endif}
  41. // EOP DD_SORT.COD
  42.