SQL select seems to be creating a lock on a file

Hi everyone
Before I forget, we are on V5r4
I have an RPG program (PGM01) with embedded SQL
The ONLY SQL in this program is
exec sql Set Option Commit = *None;
and
exec SQL Select count(*) Into :Reccount
from FILEA;
and there are NO F-specs for this file (or one of its logicals)within PGM01

When another program (PGM02)is running, its attempting to update FILEA, but FILEA is locked by PGM01.
The only way that I can get PGM02 to continue is by ending PGM01
Two things

1. I was surprised that the file is locked by PGM01

2. How can I get it to be unlocked
As always, any and all answers are gratefully accepted

Alan Shore
E-mail : ASHORE@xxxxxxxx
Phone [O] : (631) 200-5019
Phone [C] : (631) 880-8640


Disclaimer: This message contains confidential information and is intended only for the individual named. If you are not the named addressee you should not disseminate, distribute or copy this e-mail. Please notify the sender immediately by e-mail if you have received this e-mail by mistake and delete this e-mail from your system. E-mail transmission cannot be guaranteed to be secure or error-free as information could be intercepted, corrupted, lost, destroyed, arrive late or incomplete, or contain viruses. The sender therefore does not accept liability for any errors or omissions in the contents of this message, which arise as a result of e-mail transmission. If verification is required please request a hard-copy version. Any views or opinions presented are solely those of the author and do not necessarily represent those of the company.