Re: Checking file existence on windows server

[Scott Klement <midrange-l@xxxxxxxxxxxxxxxx>]

Assuming that he has decided to use IFS to check for the file (and I'm 
not sure I'd do that) then why on EARTH would he want to do a kludge 
like call CHKIN from an RPG program?!

If you must use CHKIN, do it from a CL program.  Still a kludge, IMHO, 
but at least you don't have to worry about character escaping, et al.

But, I recommend using the access() API, since that's what it's designed 
for.  From RPG, I'd call access() directly.  From CL, I'd use one of the 
wrappers, like CHKIFSOBJ.



On 8/9/2010 10:13 PM, Dave wrote:
> Just use CHKIN and monitor for CPFA0BE.  It has worked without issues for a
> long time in a couple of our apps.
>
> We wrote a small subprocedure in our "general" service program called
> CheckFileExist().
>
> We use this all the time, so we created a small subprocedure to verify files
> exist on the QNTC share...
>
> DCheckFileExist   pi              n
> D sFileIn                       50a   const
>
>   // Work Variables
> D sFile           s             52a   inz
> D sApost          s              1    inz('''')
>
>   /free
>
>    // Setup path name with document name.
>     sFile = sApost + %trim(sFileIn) + sApost;
>
>    // Use CHKIN to determine if any documents exist.
>     system('CHKIN OBJ(' + %trim(sFile) + ')');
>
>    // If documents exist, 'CPFA0BE' will be returned from the CHKIN
>    // command since CHKIN is not allowed for a document in the QNTC
>    // file system. If no documents exist, 'CPFA093' is returned.
>     return (cpfmsg = 'CPFA0BE');