O'Reilly logo

APIs at Work, Second Edition by Ron Hawkins, Doug Pence, Bruce Vining

Stay ahead with the world's most comprehensive technology and business learning platform.

With Safari, you learn the way you learn best. Get unlimited access to videos, live online training, learning paths, books, tutorials, and more.

Start Free Trial

No credit card required

Using QCMDEXC to Run RGZPFM

In Figure 3.4 of chapter 3, you saw a program to DSPLY the list of files containing a percentage of deleted records above a certain level. Now, let’s modify that example so the program automatically reorganizes the files rather than simply listing them. This changed program is shown in Figure 4.2.

Figure 4.2. Use QCMDEXC to run RGZPFM from within an RPG program.
h dftactgrp(*no) bnddir('APILIB')

DName+++++++++++ETDsFrom+++To/L+++IDc.Keywords++++++++++++++++++++++++++ dFig4_2 pr extpgm('FIG4_2') d LibName 10 const d DltPct 15 5 const dFig4_2 pi d LibName 10 const d DltPct 15 5 const d/copy qsysinc/qrpglesrc,qusgen d/copy qsysinc/qrpglesrc,quslobj d/copy qsysinc/qrpglesrc,qusrmbrd d/copy qsysinc/qrpglesrc,qusec dCrtUsrSpc ...

With Safari, you learn the way you learn best. Get unlimited access to videos, live online training, learning paths, books, interactive tutorials, and more.

Start Free Trial

No credit card required