RE: Clear a file in RPG ?

[Robert Rogerson <robertrogerson@xxxxxxxxxx>]

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