home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / dbase / cubs / dork.prg < prev    next >
Text File  |  1989-03-31  |  442b  |  25 lines
  1. *DORK.PRG
  2.  
  3. GO TOP
  4. SET DECIMALS TO 1
  5. DO WHILE .NOT. EOF()
  6. STORE (DATE() - JOINED)/30 TO MTENURE
  7. ? MTENURE
  8.     IF DTOC(LEFT) <> '0.0'
  9.     STORE (LEFT-JOINED)/30 TO MROTATE
  10.     REPLACE ROTATE WITH MROTATE
  11.     REPLACE TENURE WITH MTENURE
  12.     ENDIF
  13. SKIP
  14. ENDDO
  15. AVERAGE TENURE TO FRED
  16. ?
  17. ? 'AVERAGE TENURE OF PRESENT CUBS'
  18. ? FRED
  19. AVERAGE ROTATE FOR ROTATE > 0 TO MROTATE
  20. ?
  21. ? 'AVERAGE TENURE OF DEPARTED CUBS'
  22. ? MROTATE
  23. WAIT
  24.  
  25.