RE: Clear a file in RPG ?

["Murphy, Mark" <MurphyM@xxxxxxxxxx>]

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
>
>