×
The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.
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
midrange.com
