RE: Clear a file in RPG ?

["Terry Anderson" <terrya@xxxxxxxxxxxx>]

Phil,
Try this:

Fmyfile    IF     E             DISK    USROPN   

**************************************************************** 
* PROTOTYPE FOR PROCEDURE TO RUN CL COMMANDS    
**************************************************************** 
D QCMDEXC         PR                  ExtPgm('QCMDEXC')            
D   COMMAND                   3000A   const options(*varsize)      
D   Length                      15P 5 const                        
 ********************************************************************** 
 *  FIELD DEFINITIONS.                                                  
 ********************************************************************** 
D  CMD            S           3000A   VARYING INZ(*BLANKS)              

  // ****************************************************************** 
  // *  START FREE FORM CALCS.                                          
  // ****************************************************************** 
                                                                        
 /FREE                                                                  
       
 // ****************************************************************** 
 // *  CLEAR WORK FILE.                                   
 // ****************************************************************** 
    
CMD = 'CLRPFM MYFILE';
CALLP QCMDEXC(CMD: %LEN(CMD));

/END-FREE
   

> > ---------
> >
> > message: 1
> > date: Thu, 3 Apr 2008 14:50:40 -0400
> > from: "Phil Kestenbaum" <pkestenbaum@xxxxxxxxxxx>
> > subject: Clear a file in RPG ?
> >
> > Hi, is it possible to do a CLRPFM but in  the RPG, and how?
> >
> > Thank you,
> >
> > Phil


Terry Anderson
Programming Manager
Citation Corporation
Switchboard 1.251.867.5481 ext 212
Direct Line 1.251.809.2312
Fax 251.867.0525
Cell  1.251.363.4975