home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a031 / samples.exe / ADDCODES.UPD (.txt) < prev    next >
Encoding:
dBase Update  |  1992-03-10  |  4.9 KB  |  80 lines
  1. * dBASE IV .UPD file 8
  2. CLOSE DATABASES
  3. SET EXACT ON
  4. SELECT 1
  5. USE EMPLOYEE.DBF
  6. SELECT 2
  7. USE CODES.DBF
  8. SET FILTER TO 
  9. GO TOP
  10. SELECT 2
  11. USE CODES.DBF
  12. SELECT 1
  13. IF network()
  14. COUNT TO QBE___CNTR
  15. GO TOP
  16. ENDIF
  17. DO WHILE .NOT. EOF()
  18. IF network()
  19. IF QBE___CNTR < 1
  20. ENDIF
  21. QBE___CNTR = QBE___CNTR - 1
  22. ENDIF
  23. SELECT 2
  24. APPEND BLANK
  25. REPLACE CITY WITH EMPLOYEE->CITY,CODE WITH ;
  26. VAL(SUBST(Employee->Phone,2,3))
  27. SELECT 1
  28. ENDDO
  29. SELECT 1
  30. SET FILTER TO
  31. SET FIELDS TO
  32. SET SKIP TO
  33. SET RELATION TO
  34. SELECT 1
  35. SELECT 2
  36. EMPLOYEE.DBF
  37. CODES.DBF
  38. :Employee.dbf*$i
  39. :LASTNAME*$i
  40. :FIRSTNAME*$i
  41. :INITIAL*$i
  42. :DEPARTMENT*$i
  43. :EMP_ID*$i
  44. :PHONE*$i
  45. :SPECIALTY*$i
  46. :COMMENTS*$i
  47. :AWARDS*$i
  48. :DATE_HIRED*$i
  49. :DEGREE*$i
  50. :EXEMPT*$i
  51. :FULL_TIME*$i
  52. :LABORGRADE*$i
  53. :RATE*$i
  54. :SALARY*$i
  55. :TITLE*$i
  56. :YRS_EXPER*$i
  57. :ADDRESS1*$i
  58. :ADDRESS2*$i
  59. :CITY*$i
  60. :STATE*$i
  61. :ZIP*$i
  62. :department+lastname+firstname+initial*$i
  63. :department+STR(salary,8,2)*$i
  64. :STR(yrs_exper,4,1)*$i
  65. :lastname+firstname+initial*$i
  66. ,xx:town*$i
  67. ,xx:*$i
  68. :Codes.dbf*$i
  69. :CITY*$i
  70. :CODE*$i
  71. ,xx:Append*$i
  72. ,xx:town*$i
  73. ,xx:newcode*$i
  74. ,xx:*$i
  75. ,xx:    *$i
  76. :Calc'd Flds*$i
  77. :VAL(SUBST(Employee->Phone,2,3))*$i
  78. ,xx:newcode*$i
  79. ,xx:    
  80.