RE: Executing Commands within an RPG program

Brian,
Specify DftActGrp(*NO), and ACTGRP(xxxx) where xxxx is a named activation group 
of your choice.
 


Brian Piotrowski <bpiotrowski@xxxxxxxxxxxxxxx> wrote:
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.
-----