RE: Clear a file in RPG ?

No only does it have to be closed, but there are several other constraints on the CLRPFM command such
as no job can have the file locked at all, and it doesn't work if there are delete triggers on the
file. There are other reasons why it won't work as well.

BTW using the SQL Delete will work though as long as the user has authority to delete records, and if
the CLRPFM would have worked, and you are on a recent release, the SQL Delete will be just as fast.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Robert
Rogerson
Sent: Thursday, April 03, 2008 3:12 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Clear a file in RPG ?

Note that as Booth's code shows the file must be closed prior to clearing
the file.

Rob

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Booth Martin
Sent: April 3, 2008 3:03 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: Clear a file in RPG ?

See if this works for you:

FTESTFILE if a f 128 disk

ITESTFILE NS
I 1 128 DATA

D wcmd s 1024 varying
D QCMDEXC pr ExtPgm('QCMDEXC')
D 1024 const
D 15 5 const

C close TESTFILE;
C wCmd = 'CLRPFM FILE(TESTFILE)';
C QCmdExc(wCmd: %len(wCmd));
C open TESTFILE;



Phil Kestenbaum wrote:

Hi, is it possible to do a CLRPFM but in the RPG, and how?

Thank you,

Phil