home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a031 / template.exe / AD_COPY.COD < prev    next >
Encoding:
Text File  |  1992-03-10  |  1.4 KB  |  48 lines
  1. //
  2. // Module Name: AD_COPY.COD - Menu_Act = 8
  3. // Selectors  : Copy_Recrd, Copy_type, Scope, Field_list, For_Expr, While_Exp
  4. // Description: to issue the dBASE COPY command
  5. // Syntax     : COPY TO <expFN>/ARRAY <array name>
  6. //                   [<scope>] [FIELDS <field name list>] 
  7. //                   [FOR <expL>] [WHILE <expL>] 
  8. //                   [ [TYPE] DBASEII / DIF / FW2 / RPD / SDF / SYLK / WKS
  9. //                        [DELIMITED [WITH BLANK/<delimiter>]] ]
  10. //
  11. lc_say='Copying records to {Copy_Recrd}'
  12. DO info_box WITH lc_say
  13. {if !Set_Safety then //safety on}
  14. lc_safety = SET("SAFETY")
  15. SET SAFETY OFF
  16. {endif}
  17. SET TALK ON
  18. *--  Desc: Copy records to {if Copy_type == 5}ARRAY {endif}{Copy_Recrd}
  19. COPY\
  20. {if Copy_Recrd} TO {if Copy_type == 5}ARRAY {endif}{Copy_Recrd}{endif}\
  21. {if !Scope && !For_Expr && !While_Exp then} &gc_scope. {endif}\
  22. {if Scope} {upper(Scope)} {endif}\
  23. {if Field_list} FIELDS {lower(Field_list)}{endif}\
  24. {if For_Expr} FOR {For_Expr}{endif}\
  25. {if While_Exp} WHILE {While_Exp}{endif}\
  26. {if Copy_type && Copy_type != 5 then} TYPE {endif}\
  27. { case Copy_type of}
  28. { 0: // insert carriage return for DBF}
  29.  
  30. { 1:}dBASEII
  31. { 2:}FW2
  32. { 3:}RPD
  33. { 4:}DELIMITED {if Appl_Delim}WITH {Appl_Delim}{endif}
  34. { 5: // insert carriage return for ARRAY}
  35.  
  36. { 6:}SDF
  37. { 7:}DIF
  38. { 8:}SYLK
  39. { 9:}WKS
  40. { endcase}
  41. SET TALK OFF
  42. {if !Set_Safety then //safety on}
  43. SET SAFETY &lc_safety.
  44. {endif}
  45. //
  46. // EOP AD_COPY.COD
  47.  
  48.