Re: Exists Function

["Lambert, Kent" <klambert@MYPROVIDENT.COM>]

Here's an example of 'Exists'
        !check to see if input exists
        if exists('s:\shared to all\profvis.txt')= 0
            open 's:\shared to all\profvis.txt' as 10 for-reading
status=#ostat record=202
            open 's:\shared to all\newpv.TXT' as 20 for-writing
status=#wstat record=202
            open 's:\shared to all\profadb.txt' as 30 for-reading
status=#xstat record=202
        else
            display 'File "profvis.txt" does not exits: exiting'
            stop quiet
        end-if

        Kent

> -----Original Message-----
> From: Ross, Steven [SMTP:sross@KCM.ORG]
> Sent: Friday, May 03, 2002 9:46 AM
> To:   SQR-USERS@list.iex.net
> Subject:      Exists Function
>
> Is there (or have any of you written) and 'Exists' Function in SQR?  I
> need
> to know if a file exists before I attempt to process it.
>
> Thanks,
>
> Steven Ross
> Applications Developer/Analyst
> sross@kcm.org
>
>
>


**************************************************************************************************
This message contains information that may be confidential and privileged.
The information is intended solely for the recipient and use by any other party 
is not
authorized. If you are not the intended recipient, be aware that any disclosure,
copying, distribution or use of the contents of this information is strictly 
prohibited.
If you have received this electronic transmission in error, please notify us at
help@myprovident.com
**************************************************************************************************