home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / GJKHS.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  1.1 KB  |  84 lines
  1. * ┐╝║╦╓╕▒Ω╝╞╦π
  2. SET EXACT ON
  3. SELECT 1
  4. USE JSJ
  5. SELECT 2
  6. USE JSJ1
  7. REPL SJ2 WITH S6
  8. 15
  9. REPL SJ2 WITH S6
  10. STORE SJ2 TO X1
  11. 2
  12. SELECT 1
  13. 4
  14. STORE SJ TO X2
  15. 5
  16. X2=(X2+SJ)/2
  17. SELECT 2
  18. REPL SJ2 WITH X1/X2*100
  19. 3
  20. REPL SJ2 WITH X2
  21. SELECT 1
  22. set exac off
  23. USE YGZ
  24. SUM FOR G1=N G6,G7 TO X1,X2
  25. SELECT 2
  26. 4
  27. REPL SJ2 WITH X1
  28. 5
  29. REPL SJ2 WITH X1/X2*100
  30. 6
  31. REPL SJ2 WITH X2
  32. SELECT 1
  33. SET EXAC OFF
  34. LOCA FOR G1=N          
  35. DO WHILE .NOT. EOF()
  36. P101=RECNO()
  37. cont
  38. ENDDO
  39. GOTO P101
  40. X1=G9
  41. X2=G8
  42. SELECT 2
  43. 7
  44. REPL SJ2 WITH X1
  45. 8
  46. REPL SJ2 WITH X1/X2*100
  47. 9
  48. REPL SJ2 WITH X2
  49. SELECT 1
  50. USE JH INDEX JH1
  51. COUNT FOR JH2='1' TO X2
  52. COUNT FOR JH2='1' .AND. JHX='Y' TO X1
  53. SELECT 2
  54. 10
  55. REPL SJ2 WITH X1
  56. 11
  57. REPL SJ2 WITH X1/X2*100
  58. 12
  59. REPL SJ2 WITH X2
  60. SELECT 1
  61. USE FYL
  62. SUM F4,F5,F6,F7,F8 TO F4R,F5R,F6R,F7R,F8R FOR F1=N
  63. X1=F4R+F5R+F6R+F7R+F8R
  64. USE JF
  65. P101='01/01/'+N
  66. P99='12/31/'+N
  67. P101=CTOD(P101)
  68. P99=CTOD(P99)
  69. SUM JF10,JF11,JF12,JF13,JF14 TO J1,J2,J3,J4,J5 FOR JF3>=P101 ì
  70. .AND. JF3<=P99
  71. X2=J1+J2+J3+J4+J5
  72. X1=X1-X2
  73. SELECT 2
  74. 13
  75. REPL SJ2 WITH X1
  76. GO BOTTOM
  77. REPL SJ2 WITH X2
  78. 15
  79. X1=(X1+X2)/SJ2*100
  80. 14
  81. REPL SJ2 WITH X1
  82. CLOSE DATABASES
  83. RETURN
  84.