home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a031 / template.exe / AD_IMP.COD < prev    next >
Encoding:
Text File  |  1992-03-10  |  492 b   |  23 lines
  1. //
  2. // Module Name: AD_IMP.COD - Menu_Act = 16
  3. // Selectors  : Imprt_File, Imprt_Type
  4. // Description: to issue the dBASE IMPORT command
  5. // Syntax     : IMPORT FROM <expFN> [TYPE]
  6. //                  DBASEII / FW2 / PFS / RPD / WK1
  7. //
  8. lc_say='Importing records from file {Imprt_file}'
  9. DO info_box WITH lc_say
  10. SET TALK ON
  11. //
  12. IMPORT FROM {Imprt_File} TYPE \
  13. { case Imprt_type of}
  14. { 0:}PFS
  15. { 1:}DBASEII
  16. { 2:}RPD
  17. { 3:}FW2
  18. { 4:}WK1
  19. { endcase}
  20. SET TALK OFF
  21. //
  22. // EOP AD_IMP.COD
  23.