RE: Clearing a physical file

Just call QCMDEXC with the command as a parameter, something like:

D Cmd            PR                  ExtPgm('QCMDEXC')
D  Command                200A    const
D  Length                      15P 5 const

C                  callp    Cmd('CLRPFM FILE(' %trim(filename) + ')':
200)


/Joakim

________________________________________________________________________
_____
Joakim Lindbom
Capgemini Sweden

There are 10 kinds of people; those who can read binary and those who
can not.

-----Original Message-----
....
Is there coding to clear a physical file within a RPGLE program without
calling a CL program to clear it?
....

This message contains information that may be privileged or confidential and is 
the property of the Capgemini Group. It is intended only for the person to whom 
it is addressed. If you are not the intended recipient,  you are not authorized 
to read, print, retain, copy, disseminate,  distribute, or use this message or 
any part thereof. If you receive this  message in error, please notify the 
sender immediately and delete all  copies of this message.