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