home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / misc1 / dprog12.lzh / DPSORT.PRG < prev    next >
Encoding:
Text File  |  1987-11-01  |  2.1 KB  |  114 lines
  1. ********************************************************************************
  2. *
  3. * System             : DPSORT  
  4. *
  5. *
  6. * System Description : Sort/Select Criteria
  7. *
  8. *
  9. * Module             : DPSORT.PRG
  10. *
  11. *
  12. * Module Description : Main Program
  13. *
  14. *
  15. * Written by         : A. Michael Hearn                                  
  16. *
  17. *
  18. * Copyright (c) 1987 by University Research, Inc                          
  19. *
  20. ********************************************************************************
  21. * database: DPSORT
  22. SET STATUS OFF
  23. SET TALK OFF
  24. SET ECHO OFF
  25. SET BELL OFF
  26. SET HEADING OFF
  27. SET SAFETY OFF
  28. SET DEVICE TO SCREEN
  29. SET PROCEDURE TO DPSORT.PRC
  30. SELECT I
  31. IF .NOT. FILE("DPSORT.NDX")
  32.     DO IND
  33. ENDIF
  34. USE DPSORT   INDEX DPSORT  
  35. SET FILTER TO
  36. DO PUB
  37. STORE .T. TO MH_Loop
  38. CALL DPMMSORT
  39. CLEAR GETS
  40. DO WHILE MH_Loop
  41.     STORE " " TO MH_Function
  42.     @ 24,1 SAY SPACE(78)
  43.     @ 2,3 SAY DTOC(DATE())
  44.     @ 2,69 SAY Time()
  45.     @ 23,47 SAY "Choice:"
  46.     @ 23,55 GET MH_Function
  47.     READ
  48.     DO CASE
  49.     CASE UPPER(MH_Function)="A"
  50.         DO ADD
  51.         CALL DPMMSORT
  52.         LOOP
  53.     CASE UPPER(MH_Function)="U"
  54.         DO UPD
  55.         CALL DPMMSORT
  56.         LOOP
  57.     CASE UPPER(MH_Function)="I"
  58.         DO IND
  59.         LOOP
  60.     CASE UPPER(MH_Function)="H"
  61.         DO HLP WITH 1
  62.         CALL DPMMSORT
  63.         LOOP
  64.     CASE UPPER(MH_Function)="P"
  65.         @24,1 SAY SPACE(78)
  66.         @24,1 SAY "Delete all marked records"
  67.         STORE "N" TO MH_Ans
  68.         @24,30 GET MH_Ans
  69.         READ
  70.         IF  UPPER(MH_Ans) = "Y"
  71.             PACK
  72.         ENDIF
  73.         RELEASE MH_Ans
  74.         LOOP
  75.     CASE UPPER(MH_Function)="Q"
  76.         RELEASE MH_Loop,MH_Function
  77.         DO REL
  78.         CLOSE DATABASES
  79.         QUIT
  80.     CASE UPPER(MH_Function)="D"
  81.         RELEASE MH_Loop,MH_Function
  82.         DO REL
  83.         CLOSE DATABASES
  84.         RETURN
  85.     CASE UPPER(mh_function)="R"
  86.         STORE "        " TO MH_Name
  87.         @24,1 SAY SPACE(78)
  88.         @24,1 SAY "Report Name:"
  89.         @24,14 GET MH_Name
  90.         READ
  91.         IF  MH_Name <> "        "
  92.             SELE A
  93.             CREATE REPORT &MH_Name
  94.             SELE I
  95.         ENDIF
  96.         CALL dpmmsort
  97.         LOOP
  98.     CASE UPPER(mh_function)="L"
  99.         STORE "        " TO MH_Name
  100.         @24,1 SAY SPACE(78)
  101.         @24,1 SAY "Label Name:"
  102.         @24,14 GET MH_Name
  103.         READ
  104.         IF  MH_Name <> "        "
  105.             SELE A
  106.             CREATE LABEL &MH_Name
  107.             SELE I
  108.         ENDIF
  109.         CALL dpmmsort
  110.         LOOP
  111.     ENDCASE
  112. ENDDO
  113. RETURN
  114.