In my CL program I have an OPNQRYF on a file with option as (*UPD)
OvrDbf File(FDFILE) Share(*Yes)
OpnQryF File(FDFILE) Option(*Upd) +
QrySlt('STATUS *NE "A" *And +
FREQ *GT "0" *And
(FDSDTP *LT "' *Cat &CurDat *Cat '") *And
(MATURITY *GT "' *Cat &CurDat *Cat '") ')
After this I am calling an RPG program, and in that RPG I have declared the file in Update mode
FFDFILE UF A E k Disk
Then reading the file
Setll *Loval FDFILE;
This line throws error
I/O error CPF5149 was detected in file
Can anyone help me to figure out the issue?
Free Guide: Managing storage for virtual environments
Complete a brief survey to get a complimentary 70-page whitepaper featuring the best methods and solutions for your virtual environment, as well as hypervisor-specific management advice from TechTarget experts. Don’t miss out on this exclusive content!