home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / clarion / tools.zip / FILEOPEN.PRG < prev    next >
Text File  |  1988-10-20  |  1KB  |  34 lines
  1. FILEOPEN PROCEDURE(FILEIN)
  2. !---------------------------------------------------------------------!
  3. !  THIS PROCEDURE WILL OPEN 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. !     FILEOPEN(FILEIN)                              !
  9. !                                      !
  10. !  WHERE:                                  !
  11. !                                      !
  12. !     FILEIN = THE NAME OF THE CLARION FILE.               !
  13. !---------------------------------------------------------------------!
  14. !     COMPILER: CLARION V2.0                          !
  15. !    SYSTEM: N/A                              !
  16. !    PROCEDURE: FILEOPEN                          !
  17. !  ENVIRONMENT: CALLED HAS A PROCEDURE                      !
  18. !   REFERENCES: CLARION FILE                          !
  19. !---------------------------------------------------------------------!
  20. !  HISTORY:                                  !
  21. !    WRITTEN   10/20/88 BY DOMINICK G. GALLUCCI               !
  22. !    MODIFIED  00/00/00                           !
  23. !---------------------------------------------------------------------!
  24.  
  25. FILEIN         EXTERNAL,FILE
  26.  
  27.   CODE
  28.  
  29.     ALERT              !CLEAR ALL ALERT KEY'S
  30.     OPEN(FILEIN)          !OPEN THE FILE
  31.     IF ERROR() THEN
  32.       STOP('FILEOPEN-' & NAME(FILEIN) & ' ' & ERRORCODE() & '-' & ERROR())
  33.     .                     !END IF
  34.