home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / clarion / tools.zip / SORTFILE.PRG < prev    next >
Text File  |  1988-11-06  |  2KB  |  55 lines
  1. SORTFILE PROCEDURE(SORTIN,SORTOUT,SORTPARM,SORTPASS)
  2. !---------------------------------------------------------------------!
  3. !  THIS PROCEDURE WILL SORT A CLARION FILE AND CHECK FOR ERRORS,      !
  4. !  IF A ERROR IS FOUND A MESSAGE IS SENT TO THE SCREEN.              !
  5. !                                      !
  6. !  TO CALL THIS PROCEDURE.                          !
  7. !                                      !
  8. !     SORTFILE(SORTIN,SORTOUT,SORTPARM,SORTPASS)              !
  9. !                                      !
  10. !  WHERE:                                  !
  11. !                                      !
  12. !     SORTIN      = THE NAME OF THE CLARION FILE.              !
  13. !     SORTOUT  = THE NAME OF THE CLARION FILE.              !
  14. !     SORTPARM = SORT PARM SEE CLARION MANUAL.              !
  15. !     SORTPASS = PASSWORD SEE CLARION MANUAL.              !
  16. !---------------------------------------------------------------------!
  17. !     COMPILER: CLARION V2.0                          !
  18. !    SYSTEM: N/A                              !
  19. !    PROCEDURE: SORTFILE                          !
  20. !  ENVIRONMENT: CALLED HAS A PROCEDURE                      !
  21. !   REFERENCES: CLARION FILE AND CSORT                      !
  22. !---------------------------------------------------------------------!
  23. !  HISTORY:                                  !
  24. !    WRITTEN   10/20/88 BY DOMINICK G. GALLUCCI                  !
  25. !    MODIFIED  00/00/00                              !
  26. !---------------------------------------------------------------------!
  27.  
  28. SORTING_MSG  SCREEN      HUE(7,0,0)
  29.            ROW(8,24)  STRING('*{5} Please Wait *{5}'),ENH,BLK
  30.            ROW(6,6)      STRING('Sorting File:')
  31.          COL(19)  ENTRY(@S30),USE(SORTIN)
  32.          .
  33.  
  34. SORTIN         EXTERNAL
  35. SORTOUT         EXTERNAL
  36. SORTPARM     EXTERNAL
  37. SORTPASS     EXTERNAL
  38.  
  39.   CODE
  40.  
  41.     ALERT              !CLEAR ALL ALERT KEY'S
  42.     OPEN(SORTING_MSG)
  43.     DISPLAY              !DISPLAY FILE NAME
  44.     IF OMITTED(4) THEN
  45.       RUN('CSRT I=' & CLIP(SORTIN) & ' O=' &  |
  46.     CLIP(SORTOUT) & ' K=' & CLIP(SORTPARM) & ' /V')
  47.     ELSE
  48.       RUN('CSRT I=' & CLIP(SORTIN) & ' O=' &  |
  49.     CLIP(SORTOUT) & ' K=' & CLIP(SORTPARM) & ' P=' & CLIP(SORTPASS) & ' /V')
  50.     .                  !END IF
  51.     IF RUNCODE() THEN
  52.       STOP('SORTERR-' & CLIP(SORTIN) & ' RC=' & RUNCODE())
  53.     .
  54.     RETURN
  55.