_GET_FILE_PATH.GRS

  PROC/FILNAM,PDSW,CDSW,DIRPTH,PTHNAM,VERNUM,SRESP
$$
$$ SUBROUTINE: _GET_FILE_PATH.GRS
$$
$$ KEYWORDS:
$$   UTILITY
$$
$$ ABSTRACT:
$$   THIS PROGRAM LOCATES FILES FOR USE WITH PROGRAMS IN THE GRIP
$$   INTERNATIONAL LIBRARY.
$$
$$ RELEASE HISTORY:
$$   13-AUG-91 VERSION HANDLING ADDED (@GRIPLIB090 vs @GRIPLIB)
$$   03-OCT-91 CHECKED OUT ON NATIVE DG & HP
$$   09-FEB-93 MODIFIED TO WORK WITH NEW VERSIONS OF _GET_GRDIR.GRS &
$$             _GET_GRPATH.GRS
$$   26-NOV-96 Modified to work with newest version of
$$             _get_platform_type.grs
$$   07-FEB-98 Checked out using new version of _GET_GRDIR for V14.0
$$   26-AUG-99 Spun off as a simple-to-use subroutine, current & part
$$             directory switches added.
$$   13-OCT-2001 Contact Information Updated!
$$
$$ REQUIRED DATA/PART FILES:
$$   [GRIP LIBRARY STRUCTURE]
$$
$$ Called by:
$$   access_demo.grs
$$   font2geo.grs
$$   note_engrave.grs
$$   (Also A Utility Subroutine)
$$
$$ AUTHOR:  Greg Krumrey, Information Manager
$$ COMPANY: Patriot Machine, Inc.
$$          951 Harmsted Court
$$          St. Charles, MO 63301
$$          greg.krumrey@patriot-machine.com
$$          636-940-1776 x 130
$$
$$ SYSTEM TYPE: ALL SYSTEMS, UGFM & NATIVE
$$
$$ THEORY/VARIABLE USAGE:
$$   INPUTS:
$$     FILNAM - NAME OF DESIRED FILE. THIS NAME WILL BE CONVERTED TO
$$              LOWER CASE BEFORE IT IS USED.
$$     PDSW   - PART DIRECTORY SWITCH. IF SET TO &YES, THIS ROUTINE WILL
$$              CHECK FOR THE FILE IN THE SAME DIRECTORY AS THE WORK PART.
$$              (THIS SWITCH HAS NO EFFECT IF THERE IS NO CURRENT WORK PART)
$$     CDSW   - CURRENT DIRECTORY SWITCH. IF SET TO &YES, THIS ROUTINE
$$              WILL CHECK FOR THE FILE IN THE USER'S CURRENT DIRECTORY
$$              SECOND.
$$   OUTPUTS:
$$     DIRPTH - PATH TO DIRECTORY CONTAINING FILE
$$     PTHNAM - PATH TO FILE
$$     VERNUM - VERSION OF GRIPLIB THAT THIS ROUTINE WAS LINKED TO
$$     SRESP  - RESPONSE (1 - FILE NOT FOUND, 2 - GRIPLIB NOT FOUND,
$$              3 - FILE FOUND IN CURDIR, 4 - FILE FOUND IN PART DIR,
$$              5 - FILE FOUND IN GRIPLIB)
$$