Comments on: Check for file lock on the IFS in RPG http://itknowledgeexchange.techtarget.com/itanswers/check-for-file-lock-on-the-ifs-in-rpg/ Sat, 18 May 2013 20:55:13 +0000 hourly 1 By: marvmart http://itknowledgeexchange.techtarget.com/itanswers/check-for-file-lock-on-the-ifs-in-rpg/#comment-62553 marvmart Tue, 21 Apr 2009 20:46:52 +0000 #comment-62553 Here is the basically the whole program. Here is what is happening. If I open an excel file on the IFS and run this program the returnint comes back with a -1 which means the file is locked. If I do the same for a text file the returnint does not come back as a -1. So I am assuming that the program did not find a lock on that file when trying to open the file. I am passing the path where the file is located on the IFS and basically whether I want to lock the file so I can process the file knowing that no one is in the file.

EntryPath = %trim(CompletePath) + Null;
If WhatToDo = ‘L’;
ReturnInt = Open(%Trim(EntryPath):O_RDONLY+O_SHARE_NONE);
Return;
Endif;
If WhatToDo = ‘U’;
CallP Close(ReturnInt);
Return;
EndIf;

]]>