RE: Executing Commands within an RPG program

Thanks Peter!

One issue I am having is that when I compile the code, it fails on the
H-Spec with the error "Parameter BNDDIR not allowed with
DFTACTGRP(*YES)".  Can you enlighten me on what it needs and how to
correct it?

Thank you!

Brian.

-----Original Message-----
From: Peter.Colpaert@xxxxxxxxxx [mailto:Peter.Colpaert@xxxxxxxxxx] 
Sent: Wednesday, September 07, 2005 8:39 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: Executing Commands within an RPG program

Brian,

For such things, I rely on the System() API in QC2LE.  This is what you 
need:

     h bnddir('QC2LE')

     fbclbl132  o    e             printer UsrOpn

     d System          PR            10i 0 ExtProc('system')      System

Command
     d                                 *   value options(*string)    

      /free 
 
         If %open(bclbl132);
            Close bclbl132;
         Endif;

         System('OVRPRTF FILE(BCLBL132) CPI(10) OUTQ(PQ2BC) 
FORMTYPE(*STD)');
 
         Open bclbl132;

         // Do your thing here...

      /end-free


HTH,

Peter Colpaert
Application Developer
Massive - Kontich, Belgium
-----
Yoda of Borg are we.  Futile is resistance, assimilated will you be.
-----