home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / APPS / STATISTI / EPI501B4.ZIP / FILES8.EXE / DUPS.PGM < prev    next >
Encoding:
Text File  |  1991-07-15  |  1.7 KB  |  91 lines
  1. SET SPLIT = OFF
  2. ****************************************
  3. *                                      *
  4. * DUPS.PGM                             *
  5. *                                      *
  6. * Prints line list to check for dups   *
  7. *                                      *
  8. ****************************************
  9.  
  10.  
  11.  
  12. define year ## global
  13.  
  14. cls
  15.  
  16. echo
  17. echo DUPS.PGM
  18. echo
  19. echo Generates a DUPLICATE LINE LIST
  20. echo
  21. echo
  22. echo
  23.  
  24. echo
  25. echo
  26. immedif (0=0) then year=?Hit return for this year or enter a past year:  19?
  27. echo
  28. echo
  29.  
  30. immedif (year < 88 or year > 91) and year <> 0 then type "\07"
  31. immedif (year < 88 or year > 91) and year <> 0 then echo ERROR: Year must be between 88 and 91
  32.  
  33. ? Return to continue, QUIT to abort. ?
  34.  
  35. cls
  36. immedif (year < 88 or year > 91) and year <> 0 then run dups.PGM
  37.  
  38. echo
  39. echo Reading data.  Please wait.
  40. echo
  41.  
  42. immedif (year =  0) then read GEPI
  43. immedif (year = 89) then read GEPI89
  44. immedif (year = 90) then read GEPI90
  45. immedif (year = 91) then read GEPI91
  46.  
  47. cls
  48. echo
  49. echo
  50. echo
  51. select report >= "?Enter beginning date  MM/DD/YY : ?"
  52. select report <= "?         ending date  MM/DD/YY : ?"
  53.  
  54. cls
  55. echo
  56. echo Please wait.  Reading data.
  57. echo
  58.  
  59. ROUTE PRINTER
  60. set page = 60,133
  61. *hp laserjet condensed print code
  62. type "\027(s16.66H"
  63. *ibm/epson condensed print code
  64. *type "\15"
  65.  
  66. set criteria = off
  67.  
  68. cls
  69.  
  70. title 1 "\cLine List For Duplicates Check"
  71. TITLE 2 " "
  72. title 3 "\cAs of @systemdate"
  73. TITLE 4 " "
  74.  
  75. sort lastname disease
  76. cls
  77. list lastname  firstname disease county age sex race onset
  78. newpage
  79.  
  80. *hp laserjet reset printer defaults code
  81. type "\027E"
  82. *ibm/epson reset 10cpi code
  83. *type "\18"
  84.  
  85. route screen
  86.  
  87. echo
  88. echo
  89. ?Report complete.  Press ENTER to return to menu.?
  90. quit
  91.