Re: Clear a RCVF read file

["sjl" <sjl_abc@xxxxxxxxxxx>]

Or he could create a secondary CLP or CLLE program which is called from the 
primary program to read and process the file, and upon return from the 
secondary program the primary program could clear the file...

- sjl


Mark wrote:
  What Version/Release of OS/400 or i5/OS are you on?
  At V6R1 and above, you can use the new CLOSE command to close a file
  opened implicitly by a RCVF command.
  Otherwise, make your CL program an OPM CLP *PGM created with CRTCLPGM,
  and replace the CLOF with RCLRSC LVL(*).



Willie wrote:
> I have the following CL:
>
> Dclf   file(qs36f/pmcstkqr)
> Rcvf
> .
> .
> endpgm:
> dltovr   file(*all)
> clof opnid(pmcstkrq)
> clrpfm  file(qs36f/pmcstkrq)
> endpgm
>
> The problem I am having is when the it runs the clrpfm it give an error 
> that the 'file is in use'.
> I then put the clof in and now get an error message that 'no file open 
> with identifier pmcstkra'.
> I even tried moving the 'dltovr' after the 'clrpfm', but got the same 
> error that 'no file open with identifier pmcstkra'.
> File pmcstkqr format is stkmtd01.
> Any help would be appreciated.
>
>
> William Moore
> California Fine Wire
> 805-489-5144
> wjmoore@xxxxxxxxxxxx