× 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.



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.



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.