Re: Checking file existence on windows server

["Dave" <daveML@xxxxxxxxxxxx>]

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');



--------------------------------------------------
From: "Mike Cunningham" <mcunning@xxxxxxx>
Sent: Monday, August 09, 2010 6:26 AM
To: "Midrange Systems Technical Discussion" <midrange-l@xxxxxxxxxxxx>
Subject: Checking file existence on windows server

> Can anyone give me an idea of the best, most reliable, way (if it is even 
> possible) to check to see if a file exists on a Windows server from an 
> iSeries RPG (or CL) application? I want to try and condition an action in 
> an RPG application based on a picture files existing or not existing on 
> the windows server. My only thought is to create an IFS directory and FTP 
> all the files from the server directory to the IFS and then check to see 
> if an IFS file exists using CHKIFSOBJ
>
> Thanks
> --
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing 
> list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.