Re: Checking file existence on windows server

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.