RE: Executing Commands within an RPG program

OR you could use QCMDEXC instead of worrying about ACTGRP...


 * Run CL Commands Procedure...                                      
 * To use this functionality use the CALLP opcode                    
DRun              PR                  ExtPgm('QCMDEXC')              
D CmdStr                      3000A   Const Options(*VarSize)        
D CmdLen                        15P 5 Const                          
D CmdDBCS                        3A   Const Options(*NoPass)         
 * This are work fields used as parms for the procedure              
 * After you load the Cmd field use Eval CmdStrSize=%LEN(%TRIM(CMD)) 
 *   The call will look like this CALLP   RUN(CMD:CMDSTRSIZE)        
DCmdStr           S           3000A   Inz Varying                    
DCmdStrSize       S              4P 0 Inz                            
 * End Of Run CL Commands Procedure...                                 


Thanks,
Tommy Holden


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Simonse, Arco (CMK)
Sent: Wednesday, September 07, 2005 9:08 AM
To: RPG programming on the AS400 / iSeries
Subject: RE: Executing Commands within an RPG program

Brian,

Since it seems you're not familiar with using Activation Groups now, it
would be safer for you to specify ACTGRP(*NEW).
This ensures that nothing remains open after ending the program. 
If you use a named activation group, it will keep open resources like
ODP's after ending the program.
Using ACTGRP(*NEW) will cause the system to automaticly cleanup after
your program ends.

HTH, Arco Simonse

Peter Colpaert wrote:
> 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
> 
DISCLAIMER:
This message contains information that may be privileged or confidential
and is the property of the sender. 
It is intended only for the person to whom it is addressed. If you are
not the intended recipient, you are not authorized to read, print,
retain, copy,disseminate, distribute, or use this message or any part
thereof. If you receive this message in error, please notify the sender
immediately and delete all copies of this message. 

This footnote also confirms that this email message has been swept of
the presence of computer viruses


--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.