home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a031 / template.exe / AD_EXP.COD < prev    next >
Encoding:
Text File  |  1992-03-10  |  819 b   |  30 lines
  1. //
  2. // Module Name: AD_EXP.COD - Menu_Act = 17
  3. // Selectors  : Exprt_file, Exprt_Type, Scope, For_Expr, While_Exp
  4. // Description: to issue the dBASE EXPORT command
  5. // Syntax     : EXPORT [<scope>] TO <expFN> [FOR <expL>] [WHILE <expL>]
  6. //                 [TYPE] DBASEII / FW2 / RPD / PFS
  7. //                 [ FIELD <field name list> ]
  8. //
  9. lc_say='Exporting records to file {Exprt_file}'
  10. DO info_box WITH lc_say
  11. //
  12. SET TALK ON
  13. EXPORT TO {Exprt_file}\
  14. { if Field_List} FIELDS {Field_List}{endif}\
  15. { if !Scope && !For_Expr && !While_Exp then} &gc_scope. {endif}\
  16. { if Scope} {upper(Scope)} {endif}\
  17. { if For_Expr} FOR {For_Expr}{endif}\
  18. { if While_Exp} WHILE {While_Exp}{endif}\
  19.  TYPE \
  20. { case Exprt_type of}
  21. { 0:}PFS
  22. { 1:}dBASEII
  23. { 2:}FW2
  24. { 3:}RPD
  25. { endcase}
  26. SET TALK OFF
  27. //
  28. // EOP AD_EXP.COD
  29.  
  30.